74 lines
1.5 KiB
Plaintext
74 lines
1.5 KiB
Plaintext
unit fMain;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
|
|
StdCtrls, ExtCtrls, Buttons, ActnList, EditBtn, Menus, VirtualTrees, Types,
|
|
uFileUtils, uPackage, uPackageUtils;
|
|
|
|
type
|
|
|
|
{ TfmMain }
|
|
|
|
TfmMain = class(TForm)
|
|
btnSoftStart: TButton;
|
|
btnToolsPkgEdit: TSpeedButton;
|
|
btnToolsPkgReload: TSpeedButton;
|
|
btnToolsRun: TButton;
|
|
cmbSoftPkgSelect: TComboBox;
|
|
cmbToolsPkgSelect: TComboBox;
|
|
edSoftSearch: TEdit;
|
|
edToolsSearch: TEdit;
|
|
labSoftPkgDescription: TLabel;
|
|
labToolsPkgDescription: TLabel;
|
|
PageControl: TPageControl;
|
|
pnSoftTop: TPanel;
|
|
btnSoftPkgEdit: TSpeedButton;
|
|
btnSoftPkgReload: TSpeedButton;
|
|
pnToolsTop: TPanel;
|
|
tabSoft: TTabSheet;
|
|
tabLog: TTabSheet;
|
|
tabSystem: TTabSheet;
|
|
tabTools: TTabSheet;
|
|
vstSoftPkgContents: TVirtualStringTree;
|
|
vstToolsPkgContents: TVirtualStringTree;
|
|
procedure btnSoftPkgReloadClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
procedure ReloadSoftPackagesList();
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
fmMain: TfmMain;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfmMain }
|
|
|
|
procedure TfmMain.btnSoftPkgReloadClick(Sender: TObject);
|
|
begin
|
|
ReloadSoftPackagesList;
|
|
end;
|
|
|
|
procedure TfmMain.FormCreate(Sender: TObject);
|
|
begin
|
|
ReloadSoftPackagesList;
|
|
end;
|
|
|
|
|
|
procedure TfmMain.ReloadSoftPackagesList();
|
|
begin
|
|
cmbSoftPkgSelect.Items.AddStrings(GetPackagesIniFileList(ptSoft, False), True);
|
|
cmbSoftPkgSelect.ItemIndex := 0;
|
|
end;
|
|
|
|
end.
|
|
|