mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 17:25:39 +02:00
95 lines
2.2 KiB
ObjectPascal
95 lines
2.2 KiB
ObjectPascal
unit plgDial;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ExtCtrls, Buttons,PcTypesUtils;
|
|
|
|
Type TCommandEvent = procedure ( comId: integer; values: string; valueI: integer ) of object;
|
|
type
|
|
TfrmPlugin = class(TForm)
|
|
Edit1: TEdit;
|
|
Label1: TLabel;
|
|
SpeedButton1: TSpeedButton;
|
|
Bevel1: TBevel;
|
|
SpeedButton2: TSpeedButton;
|
|
ListBox1: TListBox;
|
|
Memo1: TMemo;
|
|
SpeedButton3: TSpeedButton;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
procedure SpeedButton3Click(Sender: TObject);
|
|
procedure SpeedButton1Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure ListBox1Click(Sender: TObject);
|
|
procedure SpeedButton2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
InfoList: TstringList;
|
|
end;
|
|
|
|
var
|
|
frmPlugin: TfrmPlugin;
|
|
OnCommand : TCommandEvent;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmPlugin.SpeedButton3Click(Sender: TObject);
|
|
begin
|
|
self.ModalResult := mrOk;
|
|
end;
|
|
|
|
procedure TfrmPlugin.SpeedButton1Click(Sender: TObject);
|
|
var folder: String;
|
|
begin
|
|
folder := FolderDialog('Select Plugins Directory');
|
|
if folder <> '' then begin
|
|
edit1.Text := folder;
|
|
Listbox1.Items.clear;
|
|
memo1.Lines.clear;
|
|
onCommand(0,folder,0);
|
|
if listbox1.Items.Count > 0 then begin
|
|
listbox1.ItemIndex := 0;
|
|
ListBox1Click(nil);
|
|
end;
|
|
RegWrite('PlgDir',edit1.Text);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmPlugin.FormCreate(Sender: TObject);
|
|
begin
|
|
InfoList := TStringList.Create;
|
|
end;
|
|
|
|
procedure TfrmPlugin.FormDestroy(Sender: TObject);
|
|
begin
|
|
InfoList.Free;
|
|
end;
|
|
|
|
procedure TfrmPlugin.ListBox1Click(Sender: TObject);
|
|
begin
|
|
if ListBox1.ItemIndex > -1 then begin
|
|
memo1.Lines.Text := InfoList[ListBox1.ItemIndex];
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmPlugin.SpeedButton2Click(Sender: TObject);
|
|
begin
|
|
|
|
Listbox1.Items.clear;
|
|
memo1.Lines.clear;
|
|
onCommand(1,'',0);
|
|
if listbox1.Items.Count > 0 then begin
|
|
listbox1.ItemIndex := 0;
|
|
ListBox1Click(nil);
|
|
end;
|
|
end;
|
|
|
|
end.
|