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.
|