david
778b05bf9f
- Mustangpeak Common Library - 1.7.0 - EasyListview - 1.7.0 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.Mustangpeak@2 60b41242-d4b9-2247-b156-4ccd40706241
60 lines
1.6 KiB
ObjectPascal
60 lines
1.6 KiB
ObjectPascal
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, MPCommonObjects, EasyListview, EasyTaskPanelForm,
|
|
SearchPanel, ReplacePanel, StdCtrls, ImgList, ExtCtrls, XPMan;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
ImageList1: TImageList;
|
|
EasyTaskPanelBand1: TEasyTaskPanelBand;
|
|
Splitter1: TSplitter;
|
|
Panel1: TPanel;
|
|
XPManifest1: TXPManifest;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure EasyTaskPanelBand1TEasyGroupsTaskPanelTEasyGroupTaskPanelGetTaskPanel(
|
|
Sender: TCustomEasyListview; Group: TEasyGroup;
|
|
var TaskPanel: TEasyTaskPanelFormClass);
|
|
procedure EasyTaskPanelBand1GetTaskPanel(Sender: TCustomEasyListview;
|
|
Group: TEasyGroup; var TaskPanel: TEasyTaskPanelFormClass);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
|
|
// EasyTaskPanelBand1.Groups[0].Panel := EasyTaskPanelFormSearch
|
|
end;
|
|
|
|
procedure TForm1.EasyTaskPanelBand1TEasyGroupsTaskPanelTEasyGroupTaskPanelGetTaskPanel(
|
|
Sender: TCustomEasyListview; Group: TEasyGroup;
|
|
var TaskPanel: TEasyTaskPanelFormClass);
|
|
begin
|
|
TaskPanel := TEasyTaskPanelFormSearch
|
|
end;
|
|
|
|
procedure TForm1.EasyTaskPanelBand1GetTaskPanel(
|
|
Sender: TCustomEasyListview; Group: TEasyGroup;
|
|
var TaskPanel: TEasyTaskPanelFormClass);
|
|
begin
|
|
case Group.Index of
|
|
0: TaskPanel := TEasyTaskPanelFormSearch;
|
|
1: TaskPanel := TEasyTaskPanelFormReplace;
|
|
end
|
|
end;
|
|
|
|
end.
|