71 lines
1.4 KiB
ObjectPascal
Executable file
71 lines
1.4 KiB
ObjectPascal
Executable file
unit MainWindow;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, Picogus;
|
|
|
|
type
|
|
TPicoGusForm = class(TForm)
|
|
CDImageList: TListBox;
|
|
Label1: TLabel;
|
|
LblFirmwareVersion: TLabel;
|
|
BtnLoad: TButton;
|
|
BtnRefresh: TButton;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure CDImageListDblClick(Sender: TObject);
|
|
procedure BtnRefreshClick(Sender: TObject);
|
|
procedure BtnLoadClick(Sender: TObject);
|
|
private
|
|
procedure Refresh;
|
|
procedure LoadCD;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
PicoGusForm: TPicoGusForm;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TPicoGusForm.Refresh;
|
|
begin
|
|
if DetectPicoGUS then
|
|
begin
|
|
Self.LblFirmwareVersion.Caption := ReadModeString(MODE_FWSTRING);
|
|
Self.CDImageList.Items := ReadCDList;
|
|
Self.CDImageList.ItemIndex := SelectedCD - 1;
|
|
end
|
|
else
|
|
Self.LblFirmwareVersion.Caption := 'PicoGUS not detected!';
|
|
end;
|
|
|
|
procedure TPicoGusForm.LoadCD;
|
|
begin
|
|
SelectCD(CDImageList.ItemIndex + 1);
|
|
end;
|
|
|
|
procedure TPicoGusForm.FormCreate(Sender: TObject);
|
|
begin
|
|
Self.Refresh;
|
|
end;
|
|
|
|
procedure TPicoGusForm.CDImageListDblClick(Sender: TObject);
|
|
begin
|
|
Self.LoadCD;
|
|
end;
|
|
|
|
procedure TPicoGusForm.BtnRefreshClick(Sender: TObject);
|
|
begin
|
|
Self.Refresh;
|
|
end;
|
|
|
|
procedure TPicoGusForm.BtnLoadClick(Sender: TObject);
|
|
begin
|
|
Self.LoadCD;
|
|
end;
|
|
|
|
end.
|