Menu ▾ ▴

[r7]: / extdll.pas  Maximize  Restore  History

Download this file

71 lines (52 with data), 1.3 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
unit ExtDll;



{$mode objfpc}{$H+}



interface



uses

  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

  StdCtrls, BaseModule;



type



  { TExtDlForm }



  TExtDlForm = class(TForm)

    btnOk: TButton;

    btnCancel: TButton;

    btnConfig: TButton;

    cbPlugins: TComboBox;

    edFrom: TEdit;

    edTo: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    procedure btnConfigClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);



  private

    { private declarations }

  public

    { public declarations }

     PluginParams:string;



  end; 





var

  ExtDlForm: TExtDlForm;

  EdPlugins: TPlugins;



implementation



{ TExtDlForm }



procedure TExtDlForm.FormCreate(Sender: TObject);

begin

  EdPlugins:=TPlugins.Create;

  EdPlugins.LoadLibs;

  cbPlugins.Items:=EdPlugins.NamesList;

  //cbPlugins.Items:=StringsToList(EdPlugins.Names);

end;



procedure TExtDlForm.btnConfigClick(Sender: TObject);

begin

  if cbPlugins.ItemIndex>-1 then

  begin

    PluginParams:=Copy(EdPlugins[cbPlugins.ItemIndex].Edit(PluginParams,Application),1,255);

  end;

end;



procedure TExtDlForm.FormDestroy(Sender: TObject);

begin

  EdPlugins.Free;

end;



initialization

  {$I extdll.lrs}



end.