home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 May / Chip_1999-05_cd.bin / ctenari / Lukas / svatek_f.pas < prev    next >
Pascal/Delphi Source File  |  1999-03-02  |  15KB  |  502 lines
  1. {Autor: FrantiÜek Lukas
  2. Losinskß 166, 33209 èt∞novice
  3. listopad-prosinec 1998
  4. rozÜφ°eno o formulß° Velikonoce a reverznφ volbu
  5. - ·nor 1999}
  6. unit svatek_f;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, MmSystem, StdCtrls, Buttons, Mask;
  13.  
  14. type
  15.   Tdenvtydnu = class(TForm)
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     MaskEdit1: TMaskEdit;
  20.     BitBtn1: TBitBtn;
  21.     BitBtn2: TBitBtn;
  22.     BitBtn3: TBitBtn;
  23.     BitBtn4: TBitBtn;
  24.     Label4: TLabel;
  25.     Label5: TLabel;
  26.     SpeedButton1: TSpeedButton;
  27.     SpeedButton2: TSpeedButton;
  28.     procedure BitBtn1Click(Sender: TObject);
  29.     procedure BitBtn2Click(Sender: TObject);
  30.     procedure BitBtn4Click(Sender: TObject);
  31.     procedure BitBtn3Click(Sender: TObject);
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure SpeedButton1Click(Sender: TObject);
  34.     procedure SpeedButton2Click(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   denvtydnu: Tdenvtydnu;
  43.  
  44. implementation
  45.  
  46. uses Unit1, Unit2;
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure Tdenvtydnu.BitBtn1Click(Sender: TObject);
  51. VAR
  52. Adate:TDateTime;
  53. Datum:String;
  54. Den,Year,Month,Day:word;
  55. begin
  56. Datum:=DateToStr(Now);
  57. ADate := StrToDate(MaskEdit1.Text);
  58. den:=DayOfWeek(Adate);
  59. DecodeDate(ADate,Year,Month,Day);
  60. SndPlaySound('trumpet.wav',snd_Async);
  61.     case Month of
  62.     12 : case Day of
  63.     1 : Label4.Caption:='Iva';
  64.     2 : Label4.Caption:='Blanka';
  65.     3 : Label4.Caption:='Svatoslav';
  66.     4 : Label4.Caption:= 'Barbora';
  67.     5 : Label4.Caption:= 'Jitka';
  68.     6 : Label4.Caption:='MikulßÜ';
  69.     7 : Label4.Caption:='Ambro₧';
  70.     8 : Label4.Caption:= 'Kv╪toslava';
  71.     9 : Label4.Caption:= 'Vratislav';
  72.    10 : Label4.Caption:='Julie';
  73.    11 : Label4.Caption:= 'Dana ';
  74.    12 : Label4.Caption:='Simona';
  75.    13 : Label4.Caption:='Lucie';
  76.    14 : Label4.Caption:='Lydie';
  77.    15 : Label4.Caption:='Radana';
  78.    16 : Label4.Caption:='Albina';
  79.    17 : Label4.Caption:='Daniel';
  80.    18 : Label4.Caption:='Miloslav';
  81.    19 : Label4.Caption:='Ester';
  82.    20 : Label4.Caption:='Dagmar';
  83.    21 : Label4.Caption:='Natßlie';
  84.    22 : Label4.Caption:='èimon';
  85.    23 : Label4.Caption:='Vlasta';
  86.    24 : Label4.Caption:='Adam a Eva';
  87.    25 : Label4.Caption:='1.svßtek vanoΦni';
  88.    26 : Label4.Caption:='2.svßtek vanoΦni';
  89.    27 : Label4.Caption:= 'Äaneta';
  90.    28 : Label4.Caption:='Bohumila';
  91.    29 : Label4.Caption:='Judita';
  92.    30 : Label4.Caption:='David';
  93.    31 : Label4.Caption:='Silvestr';
  94.    end;
  95.    1:case day of
  96. 1: Label4.Caption:='Nov² Rok';
  97. 2: Label4.Caption:= 'Karina';
  98. 3: Label4.Caption:= 'Radmila';
  99. 4: Label4.Caption:= 'Diana';
  100. 5: Label4.Caption:= 'Dalimil';
  101. 6: Label4.Caption:= 'T°i krßlovΘ ';
  102. 7: Label4.Caption:= 'Vilma';
  103. 8: Label4.Caption:= '╚estmφr';
  104. 9: Label4.Caption:= 'Vladan';
  105. 10: Label4.Caption:= 'B°etislav';
  106. 11: Label4.Caption:= 'Bohdana';
  107. 12: Label4.Caption:= 'Pravoslav';
  108. 13: Label4.Caption:= 'Edita';
  109. 14: Label4.Caption:= 'Radovan';
  110. 15: Label4.Caption:= 'Alice';
  111. 16: Label4.Caption:= 'Ctirad';
  112. 17: Label4.Caption:= 'Drahoslav';
  113. 18: Label4.Caption:= 'Vladislav';
  114. 19: Label4.Caption:= 'Doubravka';
  115. 20: Label4.Caption:= 'Ilona';
  116. 21: Label4.Caption:= 'Bela ';
  117. 22: Label4.Caption:= 'Slavomφr';
  118. 23: Label4.Caption:= 'Zden∞k';
  119. 24: Label4.Caption:= 'Milena';
  120. 25: Label4.Caption:= 'MiloÜ';
  121. 26: Label4.Caption:= 'Zora ';
  122. 27: Label4.Caption:= 'Ingrid';
  123. 28: Label4.Caption:= 'Ot∞lie';
  124. 29: Label4.Caption:= 'Zdislava';
  125. 30: Label4.Caption:= 'Robin';
  126. 31: Label4.Caption:= 'Marika';
  127.     end;
  128.    2: case day of
  129. 1 : Label4.Caption:= 'Hynek';
  130. 2 : Label4.Caption:= 'Nela ';
  131. 3 : Label4.Caption:= 'Bla₧ej';
  132. 4 : Label4.Caption:= 'Jarmila';
  133. 5 : Label4.Caption:= 'Dobromila';
  134. 6 : Label4.Caption:= 'Vanda';
  135. 7 : Label4.Caption:= 'Veronika';
  136. 8 : Label4.Caption:= 'Milada';
  137. 9 : Label4.Caption:= 'Apolena';
  138. 10 : Label4.Caption:= 'Mojmφr';
  139. 11 : Label4.Caption:= 'Bo₧ena';
  140. 12 : Label4.Caption:= 'Slav╪na';
  141. 13 : Label4.Caption:= 'V╪nceslav';
  142. 14 : Label4.Caption:= 'Valent∞n';
  143. 15 : Label4.Caption:= 'Ji²ina';
  144. 16 : Label4.Caption:= 'Ljuba';
  145. 17 : Label4.Caption:= 'Miloslava';
  146. 18 : Label4.Caption:= 'Gizela';
  147. 19 : Label4.Caption:= 'Patrik';
  148. 20 : Label4.Caption:= 'Old²ich';
  149. 21 : Label4.Caption:= 'Lenka';
  150. 22 : Label4.Caption:= 'Petr ';
  151. 23 : Label4.Caption:= 'Svatopluk';
  152. 24 : Label4.Caption:= 'Mat∞j';
  153. 25 : Label4.Caption:= 'nenφ ';
  154. 26 : Label4.Caption:= 'Dora ';
  155. 27 : Label4.Caption:='Alexandr';
  156. 28 : Label4.Caption:='Lumφr';
  157. 29 : Label4.Caption:= 'Albφn';
  158. end;
  159. 3: case Day of
  160. 1 : Label4.Caption:= 'Bed°ich';
  161. 2 : Label4.Caption:= 'Ane₧ka';
  162. 3 : Label4.Caption:= 'Kamil';
  163. 4 : Label4.Caption:= 'Stela';
  164. 5 : Label4.Caption:= 'Kazimφr';
  165. 6 : Label4.Caption:= 'Miroslav';
  166. 7 : Label4.Caption:= 'TomßÜ';
  167. 8 : Label4.Caption:= 'Gabriela';
  168. 9 : Label4.Caption:= 'FrantiÜka';
  169. 10 : Label4.Caption:= 'Viktorie';
  170. 11 : Label4.Caption:= 'And╪la';
  171. 12 : Label4.Caption:= '╪eho°';
  172. 13 : Label4.Caption:= 'R∙e₧na';
  173. 14 : Label4.Caption:= 'Matylda';
  174. 15 : Label4.Caption:= 'Ida  ';
  175. 16 : Label4.Caption:= 'Amos ';
  176. 17 : Label4.Caption:= 'Vlastimil';
  177. 18 : Label4.Caption:= 'Eduard';
  178. 19 : Label4.Caption:= 'Josef';
  179. 20 : Label4.Caption:= 'Sv∞tlana';
  180. 21 : Label4.Caption:= 'Radek';
  181. 22 : Label4.Caption:= 'Leona';
  182. 23 : Label4.Caption:= 'Ivona';
  183. 24 : Label4.Caption:= 'Gabriel';
  184. 25 : Label4.Caption:= 'Marian';
  185. 26 : Label4.Caption:= 'Emanuel';
  186. 27 : Label4.Caption:= 'Dita ';
  187. 28 : Label4.Caption:= 'So≥a ';
  188. 29 : Label4.Caption:= 'Ta¥ßna';
  189. 30 : Label4.Caption:= 'ArnoÜt';
  190. 31 : Label4.Caption:= 'Kvφdo';
  191.     end;
  192. 4: case Day of
  193. 1 : Label4.Caption:= 'Hugo ';
  194. 2 : Label4.Caption:= 'Erika';
  195. 3 : Label4.Caption:= 'Richard';
  196. 4 : Label4.Caption:= 'Ivana';
  197. 5 : Label4.Caption:= 'Miroslava';
  198. 6 : Label4.Caption:= 'Vendula';
  199. 7 : Label4.Caption:= 'Herman';
  200. 8 : Label4.Caption:= 'Ema  ';
  201. 9 : Label4.Caption:= 'DuÜan';
  202. 10 : Label4.Caption:= 'Darja';
  203. 11 : Label4.Caption:= 'Izabela';
  204. 12 : Label4.Caption:= 'Julius';
  205. 13 : Label4.Caption:= 'AleÜ ';
  206. 14 : Label4.Caption:= 'Vincenc';
  207. 15 : Label4.Caption:= 'Anastßzie';
  208. 16 : Label4.Caption:= 'Irena';
  209. 17 : Label4.Caption:= 'Rudolf';
  210. 18 : Label4.Caption:= 'Valerie';
  211. 19 : Label4.Caption:= 'nenφ svßtek';
  212. 20 : Label4.Caption:= 'nenφ svßtek';
  213. 21 : Label4.Caption:= 'Alexandra';
  214. 22 : Label4.Caption:=  'Ev₧enie';
  215. 23 : Label4.Caption:= 'Vojt∞ch';
  216. 24 : Label4.Caption:= 'Ji°φ ';
  217. 25 : Label4.Caption:= 'Marek';
  218. 26 : Label4.Caption:= 'Oto  ';
  219. 27 : Label4.Caption:= 'Jaroslav';
  220. 28 : Label4.Caption:= 'Vlastislav';
  221. 29 : Label4.Caption:= 'Robert';
  222. 30 : Label4.Caption:= 'Blahoslav';
  223.     end;
  224.  5:   case day of
  225. 1 : Label4.Caption:='1.mßje';
  226. 2  : Label4.Caption:='Zikmund';
  227. 3 : Label4.Caption:='Alexej';
  228. 4 : Label4.Caption:='Kv∞toslav';
  229. 5 : Label4.Caption:='nenφ svßtek';
  230. 6 : Label4.Caption:='Radoslav';
  231. 7 : Label4.Caption:='Stanislav';
  232. 8 : Label4.Caption:='Ctibor';
  233. 9 : Label4.Caption:='revoluce';
  234. 10 : Label4.Caption:='Bla₧ena';
  235. 11 : Label4.Caption:='Svatava';
  236. 12 : Label4.Caption:='Pankrßc';
  237. 13 : Label4.Caption:='Servßc';
  238. 14 : Label4.Caption:='Bonifßc';
  239. 15 : Label4.Caption:='Äofie';
  240. 16 : Label4.Caption:='P°emysl';
  241. 17 : Label4.Caption:='Aneta';
  242. 18 : Label4.Caption:='NataÜa';
  243. 19 : Label4.Caption:='Ivo';
  244. 20 : Label4.Caption:='ZbyÜek';
  245. 21 : Label4.Caption:='Monika';
  246. 22 : Label4.Caption:='Emil';
  247. 23 : Label4.Caption:='Vladimφr';
  248. 24 : Label4.Caption:='Jana';
  249. 25 : Label4.Caption:='Viola';
  250. 26 : Label4.Caption:='Filip';
  251. 27 : Label4.Caption:='Valdemar';
  252. 28 : Label4.Caption:='VilΘm';
  253. 29 : Label4.Caption:='Maxim';
  254. 30 : Label4.Caption:='Ferdinand';
  255. 31 : Label4.Caption:='Kamila';
  256. end;
  257. 6: case day of
  258. 1 : Label4.Caption:='Laura';
  259. 2 : Label4.Caption:='Jarmil';
  260. 3 : Label4.Caption:='Tamara';
  261. 4 : Label4.Caption:='Dalibor';
  262. 5 : Label4.Caption:='Dobroslav';
  263. 6 : Label4.Caption:='Norbert';
  264. 7 : Label4.Caption:='Iveta';
  265. 8 : Label4.Caption:='Medard';
  266. 9 : Label4.Caption:='Stanislava';
  267. 10 : Label4.Caption:='Gita';
  268. 11 : Label4.Caption:='Flora';
  269. 12 : Label4.Caption:='Antonie';
  270. 13 : Label4.Caption:='Antonφn';
  271. 14 : Label4.Caption:='Vasil';
  272. 15 : Label4.Caption:='Vφt';
  273. 16 : Label4.Caption:='Zbyn∞k';
  274. 17 : Label4.Caption:='Adolf';
  275. 18 : Label4.Caption:='Milan';
  276. 19 : Label4.Caption:='LeoÜ';
  277. 20 : Label4.Caption:='Kv∞ta';
  278. 21 : Label4.Caption:='Alois';
  279. 22 : Label4.Caption:='Pavla';
  280. 23 : Label4.Caption:='Zde≥ka';
  281. 24 : Label4.Caption:='Jan';
  282. 25 : Label4.Caption:='Ivan';
  283. 26 : Label4.Caption:='Adriana';
  284. 27 : Label4.Caption:='Ladislav';
  285. 28 : Label4.Caption:='Lubomφr';
  286. 29 : Label4.Caption:='Petr a Pavel';
  287. 30 : Label4.Caption:='èßrka';
  288.     end;
  289. 7: case Day of
  290. 1 : Label4.Caption:='Jaroslava';
  291. 2 : Label4.Caption:='Patricie';
  292. 3 : Label4.Caption:='Radomφr';
  293. 4 : Label4.Caption:='Prokop';
  294. 5 : Label4.Caption:='Cyril';
  295. 6 : Label4.Caption:='nenφ svßtek';
  296. 7 : Label4.Caption:='Bohuslava';
  297. 8 : Label4.Caption:='Nora';
  298. 9 : Label4.Caption:='Drahoslava';
  299. 10 : Label4.Caption:='LibuÜe';
  300. 11 : Label4.Caption:='Olga';
  301. 12 : Label4.Caption:='Borek';
  302. 13 : Label4.Caption:='MarkΘta';
  303. 14 : Label4.Caption:='Karolφna';
  304. 15 : Label4.Caption:='Jind°ich';
  305. 16 : Label4.Caption:='LuboÜ';
  306. 17 : Label4.Caption:='Martina';
  307. 18 : Label4.Caption:='Drahomφra';
  308. 19 : Label4.Caption:='╚enek';
  309. 20 : Label4.Caption:='Ilja';
  310. 21 : Label4.Caption:='Vφt∞zslav';
  311. 22 : Label4.Caption:='Magdalena';
  312. 23 : Label4.Caption:='Libor';
  313. 24 : Label4.Caption:='Krist²na';
  314. 25 : Label4.Caption:='Jakub';
  315. 26 : Label4.Caption:='Anna';
  316. 27 : Label4.Caption:='V∞roslav';
  317. 28 : Label4.Caption:='Viktor';
  318. 29 : Label4.Caption:='Marta';
  319. 30 : Label4.Caption:='Bo°ivoj';
  320. 31 : Label4.Caption:='Ignßc';
  321.     end;
  322. 8: case day of
  323. 1 : Label4.Caption:='Oskar';
  324. 2 : Label4.Caption:='Gustav';
  325. 3 : Label4.Caption:='MiluÜe';
  326. 4 : Label4.Caption:='Dominik';
  327. 5 : Label4.Caption:='Milivoj';
  328. 6 : Label4.Caption:='Old°iÜka';
  329. 7 : Label4.Caption:='Lada';
  330. 8 : Label4.Caption:='Sob╪slav';
  331. 9 : Label4.Caption:='Roman';
  332. 10 : Label4.Caption:='Vav°inec';
  333. 11 : Label4.Caption:='Zuzana';
  334. 12 : Label4.Caption:='Klßra';
  335. 13 : Label4.Caption:='Alena';
  336. 14 : Label4.Caption:='Alan';
  337. 15 : Label4.Caption:='Hana';
  338. 16 : Label4.Caption:='Jßchym';
  339. 17 : Label4.Caption:='Petra';
  340. 18 : Label4.Caption:='Helena';
  341. 19 : Label4.Caption:='Ludvφk';
  342. 20 : Label4.Caption:='Bernard';
  343. 21 : Label4.Caption:='Johana';
  344. 22 : Label4.Caption:='Bohuslav';
  345. 23 : Label4.Caption:='Sandra';
  346. 24 : Label4.Caption:='Bartolom∞j';
  347. 25 : Label4.Caption:='Radim';
  348. 26 : Label4.Caption:='Lud∞k';
  349. 27 : Label4.Caption:='Otakar';
  350. 28 : Label4.Caption:='August²n';
  351. 29 : Label4.Caption:='nenφ svßtek';
  352. 30 : Label4.Caption:='èt∞pßn';
  353. 31 : Label4.Caption:='Pavlφna';
  354. end;
  355. 9: case day of
  356. 1 : Label4.Caption:='Linda';
  357. 2 : Label4.Caption:='Adela';
  358. 3 : Label4.Caption:='Bronislav';
  359. 4 : Label4.Caption:='Jind°iÜka';
  360. 5 : Label4.Caption:='Boris';
  361. 6 : Label4.Caption:='Boleslav';
  362. 7 : Label4.Caption:='Regina';
  363. 8 : Label4.Caption:='Mariana';
  364. 9 : Label4.Caption:='Daniela';
  365. 10 : Label4.Caption:='Irma';
  366. 11 : Label4.Caption:='Denisa';
  367. 12 : Label4.Caption:='Marie';
  368. 13 : Label4.Caption:='Lubor';
  369. 14 : Label4.Caption:='Radka';
  370. 15 : Label4.Caption:='Jolana';
  371. 16 : Label4.Caption:='Ludmil';
  372. 17 : Label4.Caption:='Nad∞₧da';
  373. 18 : Label4.Caption:='KryÜtof';
  374. 19 : Label4.Caption:='Zita';
  375. 20 : Label4.Caption:='Oleg';
  376. 21 : Label4.Caption:='MatouÜ';
  377. 22 : Label4.Caption:='Darina';
  378. 23 : Label4.Caption:='Berta';
  379. 24 : Label4.Caption:='Jaromφr';
  380. 25 : Label4.Caption:='Zlata';
  381. 26 : Label4.Caption:='Andrea';
  382. 27 : Label4.Caption:='Jonas';
  383. 28 : Label4.Caption:='Vßclav';
  384. 29 : Label4.Caption:='Michal';
  385. 30 : Label4.Caption:='Jeron²m';
  386.     end;
  387.     10:case day of
  388. 1 : Label4.Caption:='Igor';
  389. 2 : Label4.Caption:='Galina';
  390. 3 : Label4.Caption:='Bohumil';
  391. 4 :
  392.    begin
  393.    SndPlaySound('joy.wav',snd_Async);
  394.    Label4.Caption:='FrantiÜek';
  395.    end;
  396. 5 : Label4.Caption:='EliÜka';
  397. 6 : Label4.Caption:='Hanus';
  398. 7 : Label4.Caption:='Sergej';
  399. 8 : Label4.Caption:='V∞ra';
  400. 9 : Label4.Caption:='ètefan';
  401. 10 : Label4.Caption:='Marina';
  402. 11 : Label4.Caption:='Andrej';
  403. 12 : Label4.Caption:='Marcel';
  404. 13 : Label4.Caption:='Renata';
  405. 14 : Label4.Caption:='nenφ svßtek';
  406. 15 : Label4.Caption:='Tereza';
  407. 16 : Label4.Caption:='Havel';
  408. 17 : Label4.Caption:='Hedvika';
  409. 18 : Label4.Caption:='LukßÜ';
  410. 19 : Label4.Caption:='Michaela';
  411. 20 : Label4.Caption:='Vendelín';
  412. 21 : Label4.Caption:='Brigita';
  413. 22 : Label4.Caption:='Sabina';
  414. 23 : Label4.Caption:='Teodor';
  415. 24 : Label4.Caption:='Nina';
  416. 25 : Label4.Caption:='Beata';
  417. 26 : Label4.Caption:='Erik';
  418. 27 : Label4.Caption:='Zoja';
  419. 28 : Label4.Caption:='nenφ svßtek';
  420. 29 : Label4.Caption:='Silvie';
  421. 30 : Label4.Caption:='TadeßÜ';
  422. 31 : Label4.Caption:='èt∞pßnka';
  423. end;
  424.  11:case day of
  425. 1 : Label4.Caption:='Felix';
  426. 2 : Label4.Caption:='nenφ svßtek';
  427. 3 : Label4.Caption:='Hubert';
  428. 4 : Label4.Caption:='Karel';
  429. 5 : Label4.Caption:='Miriam';
  430. 6 : Label4.Caption:='nenφ svßtek';
  431. 7 : Label4.Caption:='Bohumir';
  432. 8 : Label4.Caption:='Bohdan';
  433. 9 : Label4.Caption:='Ev₧en';
  434. 10 : Label4.Caption:='Martin';
  435. 11 : Label4.Caption:='Benedikt';
  436. 12 : Label4.Caption:='Tibor';
  437. 13 : Label4.Caption:='Sßva';
  438. 14 : Label4.Caption:='Leopold';
  439. 15 : Label4.Caption:='Otmar';
  440. 16 : Label4.Caption:='Mahulena';
  441. 17 : Label4.Caption:='Romana';
  442. 18 : Label4.Caption:='Al₧b∞ta';
  443. 19 : Label4.Caption:='Nikola';
  444. 20 : Label4.Caption:='Albert';
  445. 21 : Label4.Caption:='Cecílie';
  446. 22 : Label4.Caption:='Klement';
  447. 23 : Label4.Caption:='Emilie';
  448. 24 : Label4.Caption:='Kate°ina';
  449. 25 : Label4.Caption:='Artur';
  450. 26 : Label4.Caption:='XΘnie';
  451. 27 : Label4.Caption:='RenΘ';
  452. 28 : Label4.Caption:='Zina';
  453. 29 : Label4.Caption:='Ond°ej';
  454. 30 : Label4.Caption:='nenφ svßtek';
  455. end;
  456.     end;
  457. Label1.Caption:=MaskEdit1.Text;
  458. Label2.Caption:=MaskEdit1.Text;
  459. Label1.Caption := IntToStr(DayOfWeek(ADate)) + '. den v t²dnu';
  460. case den of
  461. 1: Label3.Caption:='ned∞le';
  462. 2: Label3.Caption:='pond∞lφ';
  463. 3: Label3.Caption:='·ter²';
  464. 4: Label3.Caption:='st°eda';
  465. 5: Label3.Caption:='Φtvrtek';
  466. 6: Label3.Caption:='pßtek';
  467. 7: Label3.Caption:='sobota';
  468. end;
  469. end;
  470.  
  471. procedure Tdenvtydnu.BitBtn2Click(Sender: TObject);
  472. begin
  473. MaskEdit1.Text:= DatetoStr(Now);
  474. BitBtn1.Click;
  475. end;
  476. procedure Tdenvtydnu.BitBtn4Click(Sender: TObject);var i:integer;begin
  477. begin
  478. close;
  479. end;
  480. end;
  481. procedure Tdenvtydnu.BitBtn3Click(Sender: TObject);
  482. begin
  483. MaskEdit1.SetFocus;
  484. end;
  485. procedure Tdenvtydnu.Button1Click(Sender: TObject);
  486. begin
  487. Form1.Show;
  488. end;
  489.  
  490. procedure Tdenvtydnu.SpeedButton1Click(Sender: TObject);
  491. begin
  492. Form1.ShowModal;
  493. end;
  494.  
  495. procedure Tdenvtydnu.SpeedButton2Click(Sender: TObject);
  496. begin
  497. Form2.Show;
  498.  
  499. end;
  500.  
  501. end.
  502.