mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 10:03:56 +01:00
61 lines
1.1 KiB
ObjectPascal
61 lines
1.1 KiB
ObjectPascal
unit ipsEverDlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls;
|
|
|
|
type
|
|
TipsEverFrm = class(TForm)
|
|
ipsBox: TMemo;
|
|
resetBtn: TButton;
|
|
totalLbl: TLabel;
|
|
editBtn: TButton;
|
|
procedure resetBtnClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure editBtnClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
procedure refreshData();
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
ipsEverFrm: TipsEverFrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
main, utilLib;
|
|
|
|
procedure TipsEverFrm.resetBtnClick(Sender: TObject);
|
|
begin
|
|
ipsEverConnected.clear();
|
|
refreshData();
|
|
end;
|
|
|
|
procedure TipsEverFrm.editBtnClick(Sender: TObject);
|
|
var
|
|
fn: string;
|
|
begin
|
|
fn:=saveTempFile(ipsEverConnected.text);
|
|
if renameFile(fn, fn+'.txt') then exec(fn+'.txt')
|
|
else msgDlg(MSG_NO_TEMP, MB_ICONERROR);
|
|
end;
|
|
|
|
procedure TipsEverFrm.FormShow(Sender: TObject);
|
|
begin refreshData() end;
|
|
|
|
procedure TipsEverFrm.refreshData();
|
|
begin
|
|
ipsBox.text:=ipsEverConnected.text;
|
|
totalLbl.caption:=format('Total: %d', [ipsEverConnected.count]);
|
|
repaintTray();
|
|
end; // refreshData
|
|
|
|
end.
|