home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / APLIKACE.EXE / BANKOMAT / PROGRAM / CODE02.KL3 < prev    next >
Text File  |  1999-04-24  |  913b  |  34 lines
  1. Program Firma;
  2.  
  3. procedure TForm.FormCreate(Sender: TObject);
  4. begin
  5.   Form.Visible:=False;
  6.   Form.Left:=(SysVarGet('fleft')+(SysVarGet('fwidth')/2 ))-(Form.Width/2);
  7.   Form.Top :=(SysVarGet('ftop') +(SysVarGet('fheight')/2))-(Form.Height/2);
  8.   If Form.Left<=0 Then Begin
  9.     Form.Left:=0;Form.Top:=0;
  10.   End;
  11.   UpDown1.Height:=21;
  12.   UpDown1.Left:=256;
  13.   UpDown1.Width:=56;
  14.   Edit1.Text:=SysVarGet("Obdobi1");
  15.   Form.ActiveControl:=UpDown1;
  16.   Form.Visible:=True;
  17. end;
  18.  
  19. procedure TForm.Button1Click(Sender: TObject);
  20. begin
  21.   If SysVarGet("op")=1 Then Begin
  22.     If (StrToInt(Edit1.Text)>1900) And (StrToInt(Edit1.Text)<2200) Then Begin
  23.       SysVarSet("Obdobi1",Copy(Trim(Edit1.Text),1,4));
  24.       SysVarSet("rest",1);
  25.       Form.Close;
  26.     End
  27.     Else Begin
  28.       ShowMessage("Nesprßvn∞ vlo₧en² rok"+Chr(13)+"Vlo₧te sprßvnΘ Φφslo nebo stornujte operaci.");
  29.     End;
  30.   End;
  31. end;
  32.  
  33. end.
  34.