Difference between revisions of "LMD VCL - LMD ElPack FAQ"

procedure TForm1.FormCreate(Sender: TObject);
begin
// destroy old form if need:
  ElDateTimePicker1.ShowPopupCalendar := False;
// change variable that contains caption for Today button:
  TodayCap := 'Now!';
// new form with new captions will be created:
  ElDateTimePicker1.ShowPopupCalendar := True;
end;

type
   THElDateTimePicker = class(TElDateTimePicker);

procedure TForm1.ElDateTimePicker1DropDown(Sender: TObject);
var
  LForm: TElCalendarForm;
begin
  LForm := THElDateTimePicker(Sender).FForm;
  if Assigned(LForm) then
  begin
    // tuneup the form.
    LForm.ClearBtn.Visible := false;
  end;
end;

type

  TForm1 = class(TForm)

    ElInspector1: TElInspector;
    ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;
...

  end;

  TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)
  protected
    procedure BtnClick(Sender: TObject); override;
  end;


implementation

{ TMyElInspectorInplaceButtonEdit }

procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);
begin
  if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then
  begin
    TElInspectorItem(Item).InspectorData.AsString := 'True';
    Editor.Text := 'True';
  end
  else
  begin
    TElInspectorItem(Item).InspectorData.AsString := 'False';
    Editor.Text := 'False';
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  LT: TElInspectorRegister;
begin
// we must to find current editor for boolean values in inspector's editors list
  for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do
  begin
    LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);
    if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then
    begin 
    // remove current boolean editor
      ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );
    // register our editor
      ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));
      Break;
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  ParentItem, ChildItem: TElXTreeItem;
begin
 Memo1.Lines.Clear;
 if Assigned(ElXTree1.Selected) then
 begin
   i := ElXTree1.Selected.Index; // index of item in parent's list
   ChildItem := ElXTree1.Selected;
   ParentItem := ChildItem.Parent;
   while Assigned(ParentItem) do  //check parent here. I get items until root
   begin
     while i >= 0 do
     begin
       Memo1.Lines.Add(ParentItem.Children[i].Text);
       dec(i);
     end;
     ChildItem := ParentItem;  // new children
     ParentItem := ChildItem.Parent; // new parent
     i := ChildItem.Index; // new children's index
   end;
   Memo1.Lines.Add(ChildItem.Text); // last children
 end;
end;

uses .... , LMDTypes, ShlObj;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ElShellTree1.ShowCheckBoxes := True;
// don't clear items on collapse to not discard checkbox's state
  ElShellTree1.ClearOnCollapse := False;
end;

procedure TForm1.ElShellTree1ItemChecked(Sender: TObject;  Item: 
TElTreeItem);
  procedure CheckChilds(AItem: TElTreeItem);
  var
    it : TElTreeItem;
  begin
    it := AItem.GetFirstChild;
    while Assigned(it) do
    begin
      it.Checked := AItem.Checked;
      CheckChilds(it);
      it := AItem.GetNextChild(it);
    end;
  end;
begin
  CheckChilds(Item);
end;

procedure TForm1.ElShellTree1ItemAdded(Sender: TObject;
  ItemName: TLMDString; ShellFolder: IShellFolder; RelPIDL: PItemIDList;
  Item: TElShellTreeItem);
begin
// check that the item has checkbox's state as its parent
// this is necessary only for TElShellTree because it's build dynamically
  if Assigned(Item.Parent) then
    Item.Checked := Item.Parent.Checked;
end;

procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);
var
  LList: TElShellList;
  LTree: TElShellTree;
  LPIDL: PItemIDList;
  LTemp: TLMDString;
begin
  LList := nil;
  LTree := nil;
  if ATree is TElShellTree then
  begin
    LTree := TElShellTree(ATree);
    LPIDL := LTree.FocusedPIDL;
    GetPathFromPIDL(LPIDL, LTemp);
  end
  else if ATree is TElShellList then
  begin
    LList := TElShellList(ATree);
    LPIDL := LList.FocusedPIDL;
    GetPathFromPIDL(LPIDL, LTemp);
  end
  else
    raise Exception.CreateFmt('Only TElShellTree and TElShellList supported. But not %s', [ATree.ClassName]);
  CreateDirectoryW(PWideChar(LTemp + PathDelim + AFolder), nil);
  if Assigned(LList) then
    LList.RefreshList(True);
  if Assigned(LTree) then
    LTree.RefreshTree(LTree.Selected, 2);
end;

var
  LItem: TElTreeItem;
begin
  LItem := ElTreeStringGrid1.GetNextSelected(nil);
  while Assigned(it) do
  begin
    // do something with item
    LItem := ElTreeStringGrid1.GetNextSelected(LItem);
  end;
end;

uses elstrutils;

procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;
  Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);
var
  R: TRect;
  s: TElFString;
  i: integer;
begin
  R := ItemRect;
  R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;
  R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result
  // this is main column so we need to take into account space for lines and buttons
  R.Left := R.Left + Item.IndentAdjust;
  if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then
    Inc(R.Left, ElTree1.ItemIndent)
  else
    Inc(R.Left, ElTree1.ItemIndent div 5);
  // offset rect if we use images
  R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20
  Canvas.Brush.Style := bsSolid;
  Canvas.Brush.Color := clWhite; // set item's color if need
  // my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'
  i := Pos(#10, Item.Text);
  s := '';
  if i > 0 then
    s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'
  DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);
end;

procedure TForm1.ElXTree1SortEnd(Sender: TObject);
var
  i, j: integer;
begin
  for j := 0 to ElXTree1.Items.Count - 1 do
  begin
    for i := 0 to ElXTree1.HeaderSections.Count - 1 do
    begin
      ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;
      if (i = ElXTree1.SortSection) and
       (ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)
      then
      begin
        ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;
        ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;
        ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;
      end
      else
      begin
        ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;
        ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;
        ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;
      end;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
// create test tree with 5 items. set custom colors in cells but not activate it
  for j := 0 to 5 do
  begin
    ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));
    ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);
    for i := 0 to ElXTree1.HeaderSections.Count - 1 do
    begin
      ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;
      ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;
      ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;
    end;
  end;
end;

procedure TForm1.ElXTree1SortEnd(Sender: TObject);
var
  i, j: integer;
begin
// in this procedure we activate using own colors for cells in sorted section
  for j := 0 to ElXTree1.Items.Count - 1 do
  begin
    for i := 0 to ElXTree1.HeaderSections.Count - 1 do
    begin
      if (i = ElXTree1.SortSection) and
       (ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) 
      then
        ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false
      else
        ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;
    end;
  end;
end;

procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);
var
  i: integer;
begin
  for i := 0 to ElXTree1.HeaderSections.Count - 1 do
  begin
    Item.Cells[i].UseOwnStyle := True;
    if (i = ElXTree1.SortSection) and
       (ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)
    then
    begin
      Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;
      Item.Cells[i].Style.ParentColors := false;
      Item.Cells[i].Style.UseBackGroundColor := true;
    end
    else
    begin
      Item.Cells[i].Style.CellBackGroundColor := clWhite;
      Item.Cells[i].Style.ParentColors := false;
      Item.Cells[i].Style.UseBackGroundColor := true;
    end;
  end;
end;