Context Navigation

UFormSetting.pas@ 8

Last change on this file since 8 was 6, checked in by chronos, 13 years ago
Přidáno: Zobrazení seznamu položek dle zadání struktury tabulky pomocí definice sloupců seznamu. Přidáno: Pamatování si pozice a velikosti okna. Přidáno: Překlad rozhraní do češtiny.
File size: 985 bytes

Rev	Line
[5]	1	unit UFormSetting;
	2
	3	{$mode delphi}
	4
	5	interface
	6
	7	uses
	8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;
	9
	10	type
	11
	12	{ TFormSetting }
	13
	14	TFormSetting = class(TForm)
[6]	15	procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
	16	procedure FormCreate(Sender: TObject);
	17	procedure FormDestroy(Sender: TObject);
	18	procedure FormShow(Sender: TObject);
[5]	19	private
	20	{ private declarations }
	21	public
	22	{ public declarations }
	23	end;
	24
	25	var
	26	FormSetting: TFormSetting;
	27
	28	implementation
	29
	30	{$R *.lfm}
	31
[6]	32	uses
	33	UCore;
	34
	35	{ TFormSetting }
	36
	37	procedure TFormSetting.FormClose(Sender: TObject; var CloseAction: TCloseAction
	38	);
	39	begin
	40	end;
	41
	42	procedure TFormSetting.FormCreate(Sender: TObject);
	43	begin
	44	Core.PersistentForm.Load(Self);
	45	end;
	46
	47	procedure TFormSetting.FormDestroy(Sender: TObject);
	48	begin
	49	Core.PersistentForm.Save(Self);
	50	end;
	51
	52	procedure TFormSetting.FormShow(Sender: TObject);
	53	begin
	54	end;
	55
[5]	56	end.
	57

Note: See TracBrowser for help on using the repository browser.