Delphi, DevExpress, примеры, решения

function TfmMain.FTPFileExists(const RemoteFile: String): Boolean;
begin
  IdFTP1.List (nil, '-la ' + RemoteFile, False);
  Result:=IdFTP1.DirectoryListing.Count > 0;
end;

 if IdFTP1.Size('upload/директория/директория/искомый файл.расширение') > 0 then
   ShowMessage('Искомый файл есть');

uses LookAndFeelPainters;
...

procedure GetSkins(comboSkins: TcxCombobox);
Var
 PaintersManager : TcxCustomLookAndFeelPainter;
 i: integer;
begin
  //загружаем список скинов
  comboSkins.Properties.Items.Clear;
  comboSkins.Properties.Items.Add('');//пустую строку тоже нужно добавить, чтобы пользоватtль мог отменять выбор скина

  for i := 0 to Pred(cxLookAndFeelPaintersManager.Count) do
    comboSkins.Properties.Items.Add(cxLookAndFeelPaintersManager.Items[i].LookAndFeelName);

end;

uses LookAndFeelPainters;
...

Var
 PaintersManager : TcxCustomLookAndFeelPainter;
 i: integer;
begin
  //загружаем список скинов
  TcxComboBoxProperties(comboSkins.Properties).Items.Clear;
  TcxComboBoxProperties(comboSkins.Properties).Items.Add('');//пустую строку тоже нужно добавить, чтобы пользоватtль мог отменять выбор скина

  for i := 0 to Pred( cxLookAndFeelPaintersManager.Count ) do
    TcxComboBoxProperties(comboSkins.Properties).Items.Add(cxLookAndFeelPaintersManager.Items[i].LookAndFeelName);

unit uSpinEditHack;

interface

uses
  cxEdit, cxSpinEdit, cxGraphics, Windows, Classes;

// этот модуль должен быть последним в верхнем списке USES
   
type
  TMySpinEditViewData = class(TcxSpinEditViewData)
  protected
    procedure CalculateButtonsBounds(ACanvas: TcxCanvas; AViewInfo: TcxCustomEditViewInfo; var ButtonsRect: TRect); override;
  end;

  TMySpinEditProperties = class(TcxSpinEditProperties)
  public
    class function GetViewDataClass: TcxCustomEditViewDataClass; override;
  end;

  TMySpinEdit = class(TcxSpinEdit)
  public
    class function GetPropertiesClass: TcxCustomEditPropertiesClass; override;
  end;

  TcxSpinEdit = class(TMySpinEdit);

implementation

uses
  uShares;

{ TMySpinEdit }

class function TMySpinEdit.GetPropertiesClass: TcxCustomEditPropertiesClass;
begin
  Result := TMySpinEditProperties;
end;

{ TMySpinEditProperties }

class function TMySpinEditProperties.GetViewDataClass: TcxCustomEditViewDataClass;
begin
  Result := TMySpinEditViewData;
end;

{ TMycxSpinEditViewData }

procedure TMySpinEditViewData.CalculateButtonsBounds(ACanvas: TcxCanvas;
  AViewInfo: TcxCustomEditViewInfo; var ButtonsRect: TRect);
begin

  with AViewInfo.ButtonsInfo[cxSpinForwardButtonIndex] do
  begin
    Bounds := Rect(ButtonsRect.Right - uShares.iSpinEditButtonSize , ButtonsRect.Top, ButtonsRect.Right, ButtonsRect.Bottom);
    ButtonsRect.Right := Bounds.Left + 200;
  end;

  with AViewInfo.ButtonsInfo[cxSpinBackwardButtonIndex] do
  begin
    Bounds := Rect(ButtonsRect.Left, ButtonsRect.Top, ButtonsRect.Left + uShares.iSpinEditButtonSize, ButtonsRect.Bottom);
    ButtonsRect.Left := Bounds.Right - 200;
  end;
end;

end.

{iSpinEditButtonSize - это глобальная переменная, а где-то в другой форме меняем размер кнопок и присваиваем его этой переменной}

 cxSpinEdit1.Properties.Buttons[0].Width := 42;
 cxSpinEdit1.Properties.Buttons[1].Width := 42;

TcxGridDBTableView.DataController.MakeRecordVisible(RecoedIndex);

TcxGridDBTableView.Controller.FocusedRow.MakeVisible;

<TcxGridDBTableView>.Controller.TopRecordIndex 

<TcxGridDBTableView>.Controller.LeftPos

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  ANode: TcxTreeListNode;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
  begin
    ANode := cxDBTreeList1.AbsoluteItems[I];
    if ANode.Values[cxDBTreeList1FilterColumn.ItemIndex] = 2 then
      ANode.Visible := false;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
    cxDBTreeList1.AbsoluteItems[I].Visible := true;
end;