root/trunk/AboutForm.cpp

Revision 3, 2.5 kB (checked in by sagrer, 10 months ago)

Добавил информационную шапку в файлы исходников.

Line 
1 ///////////////////////////////////////////////////////////
2 //                      MobSurgeon                       //
3 //          Ðåäàêòîð mob-îâ äëÿ Ïðîêëÿòûõ Çåìåëü         //
4 //           Copyright (C) 2005-2007 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 //---------------------------------------------------------------------------
18
19 #include <vcl.h>
20 #pragma hdrstop
21
22 #include "AboutForm.h"
23 #include "initer.h"
24 //---------------------------------------------------------------------------
25 #pragma package(smart_init)
26 #pragma resource "*.dfm"
27 TAboutF *AboutF;
28
29 //Ëîêàëüíî-ãëîáàëüíûå :D ïåðåìåííûå...
30 //bool FirstShowed = false;
31
32 //---------------------------------------------------------------------------
33 __fastcall TAboutF::TAboutF(TComponent* Owner)
34         : TForm(Owner)
35 {
36   //Êîíñòðóêòîð
37   FirstShowed = false;
38 }
39 //---------------------------------------------------------------------------
40 void __fastcall TAboutF::OkButClick(TObject *Sender)
41 {
42   Close();   //Ïðîñòî çàêðûòü îêíî!       
43 }
44 //---------------------------------------------------------------------------
45 void __fastcall TAboutF::FormShow(TObject *Sender)
46 {
47   if (FirstShowed == false)
48   {
49     //Äåéñòâèÿ ïðè ïåðâîé ïðîðèñîâêå...
50     FirstShowed = true;
51
52     //Îòîáðàçèòü íà ôîðìå èíôó î âåðñèè...
53     ProgaNamLab->Caption = MobSurgeon_AppName;
54     DescrLab->Caption = MobSurgeon_AppDescription;
55     FileVerLab->Caption = VitInfo->GenerateVersionString();
56     CopyrightLab->Caption = MobSurgeon_Copyright;
57     CraftedByLab->Caption = MobSurgeon_CraftedBy;
58     DevelsContactsLab->Caption = MobSurgeon_DevelsContacts;
59
60   }
61 }
62 //---------------------------------------------------------------------------
63 void __fastcall TAboutF::LicenseButClick(TObject *Sender)
64 {
65   WinExec(AnsiString("notepad.exe "+ProgPath+"GG_opened_EI-editor-utility_license.txt").c_str() , SW_SHOWNORMAL);
66 }
67 //---------------------------------------------------------------------------
68
Note: See TracBrowser for help on using the browser.