home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d6 / FRCLX.ZIP / SOURCE / FR_Vared.pas < prev    next >
Pascal/Delphi Source File  |  2001-07-03  |  2KB  |  105 lines
  1.  
  2. {******************************************}
  3. {                                          }
  4. {           FastReport CLX v2.4            }
  5. {            Variables editor              }
  6. {                                          }
  7. { Copyright (c) 1998-2001 by Tzyganenko A. }
  8. {                                          }
  9. {******************************************}
  10.  
  11. unit FR_Vared;
  12.  
  13. interface
  14.  
  15. {$I FR.inc}
  16.  
  17. uses
  18.   SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  19.   QExtCtrls, QStdCtrls, QComCtrls, FR_Class, FR_Pars;
  20.  
  21. type
  22.   TfrVaredForm = class(TForm)
  23.     Button4: TButton;
  24.     Button5: TButton;
  25.     Memo1: TMemo;
  26.     Label1: TLabel;
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure FormShow(Sender: TObject);
  29.     procedure FormHide(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.     procedure Localize;
  33.   public
  34.     { Public declarations }
  35.     Variables: TfrVariables;
  36.   end;
  37.  
  38.  
  39. implementation
  40.  
  41. uses FR_Const, FR_Utils;
  42.  
  43. {$R *.xfm}
  44.  
  45. procedure TfrVaredForm.FormShow(Sender: TObject);
  46. var
  47.   i: Integer;
  48.   s: String;
  49. begin
  50.   for i := 0 to Variables.Count - 1 do
  51.   begin
  52.     s := Variables.Name[i];
  53.     if s <> '' then
  54.       if s[1] = ' ' then
  55.         s := Copy(s, 2, 255) else
  56.         s := ' ' + s;
  57.     Memo1.Lines.Add(s);
  58.   end;
  59. end;
  60.  
  61. procedure TfrVaredForm.Localize;
  62. begin
  63.   Caption := S53360;
  64.   Label1.Caption := S53361;
  65.   Button4.Caption := (SOk);
  66.   Button5.Caption := (SCancel);
  67. end;
  68.  
  69. procedure TfrVaredForm.FormCreate(Sender: TObject);
  70. begin
  71.   Localize;
  72. end;
  73.  
  74. procedure TfrVaredForm.FormHide(Sender: TObject);
  75. var
  76.   i: Integer;
  77.   v: TfrVariables;
  78.   s: String;
  79. begin
  80.   if ModalResult = mrOk then
  81.   begin
  82.     v := TfrVariables.Create;
  83.     for i := 0 to Memo1.Lines.Count - 1 do
  84.     begin
  85.       s := Memo1.Lines[i];
  86.       if Trim(s) <> '' then
  87.       begin
  88.         if s[1] = ' ' then
  89.           s := Copy(s, 2, 255) else
  90.           s := ' ' + s;
  91.         if Variables.IndexOf(s) <> -1 then
  92.           v[s] := Variables[s] else
  93.           v[s] := '';
  94.       end;
  95.     end;
  96.     Variables.Clear;
  97.     for i := 0 to v.Count - 1 do
  98.       Variables[v.Name[i]] := v.Value[i];
  99.     v.Free;
  100.   end;
  101. end;
  102.  
  103. end.
  104.  
  105.