root/trunk/CheckShablForm.pas

Revision 4, 2.3 kB (checked in by sagrer, 1 year ago)

Исходник помещен в trunk

  • Property svnmailer:content-charset set to cp1251
Line 
1 ///////////////////////////////////////////////////////////
2 //                        EiEdit                         //
3 //      Ðåäàêòîð ÷àñòè ðåñóðñîâ Ïðîêëÿòûõ Çåìåëü         //
4 //             Copyright (C) 2002 Gipat Group            //
5 //              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             //
6 //    Gipat Group's opened EI-editor-utility license     //
7 //                      âåðñèè 1.0                       //
8 //                                                       //
9 //                  www.gipatgroup.org                   //
10 ///////////////////////////////////////////////////////////
11
12 //Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
13 // 1) Sagrer (sagrer@yandex.ru)
14
15 ////////////////////////////////////////////////////////////////////////
16
17 unit CheckShablForm;
18
19 interface
20
21 uses
22   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
23   Dialogs, StdCtrls, initer, MySys;
24
25 type
26   TCheckShablF = class(TForm)
27     ShabList: TListBox;
28     OkBut: TButton;
29     CancelBut: TButton;
30     procedure FormShow(Sender: TObject);
31     procedure ShabListClick(Sender: TObject);
32     procedure OkButClick(Sender: TObject);
33     procedure CancelButClick(Sender: TObject);
34   private
35     { Private declarations }
36   public
37     { Public declarations }
38   end;
39
40 var
41   CheckShablF: TCheckShablF;
42
43 implementation
44 uses ShablonimForm;
45
46 {$R *.dfm}
47
48 procedure TCheckShablF.FormShow(Sender: TObject);
49 var
50   SRec : TSearchRec;
51   old : string;
52 begin
53   //Î÷èñòêà.
54   ShabList.Clear;
55
56   //Ïîëó÷èòü ñïèñîê.
57   findFirst(ShablonimF.ShablsPath+'*.zap',FaAnyFile,SRec);
58   If SRec.Name <> '' then ShabList.Items.Add(GetFileName(SRec.Name));
59   repeat
60     old := SRec.name;
61     FindNext(SRec);
62     If SRec.Name <> old then ShabList.Items.Add(GetFileName(SRec.Name));
63   until old = SRec.name;
64   FindClose(SRec);
65
66   //Çàáëîêèðîâàòü êíîïêó OK.
67   OkBut.Enabled := false;
68 end;
69
70 procedure TCheckShablF.ShabListClick(Sender: TObject);
71 begin
72   OkBut.Enabled := true;
73 end;
74
75 procedure TCheckShablF.OkButClick(Sender: TObject);
76 begin
77   ShablonimF.ShablPath := ShablonimF.ShablsPath+ShabList.Items.Strings[ShabList.ItemIndex]+'.zap';
78   ModalResult := mrOk;
79 end;
80
81 procedure TCheckShablF.CancelButClick(Sender: TObject);
82 begin
83   ModalResult := MrCancel;
84 end;
85
86 end.
Note: See TracBrowser for help on using the browser.