/components/lazreport/source/lr_gedit.pas

http://github.com/graemeg/lazarus · Pascal · 91 lines · 58 code · 20 blank · 13 comment · 1 complexity · 038ca5a1db3d3542be47068d8f264dd3 MD5 · raw file

  1. {*****************************************}
  2. { }
  3. { FastReport v2.3 }
  4. { Picture editor }
  5. { }
  6. { Copyright (c) 1998-99 by Tzyganenko A. }
  7. { }
  8. {*****************************************}
  9. unit LR_GEdit;
  10. interface
  11. {$I LR_Vers.inc}
  12. uses
  13. Classes, SysUtils, LResources,
  14. Forms, Controls, Graphics, Dialogs,
  15. ExtCtrls, Buttons, StdCtrls, ExtDlgs,
  16. LR_Const;
  17. type
  18. { TfrGEditorForm }
  19. TfrGEditorForm = class(TForm)
  20. Image1: TImage;
  21. Bevel1: TBevel;
  22. CB1: TCheckBox;
  23. Button1: TButton;
  24. Button2: TButton;
  25. Button3: TButton;
  26. Button4: TButton;
  27. Button5: TButton;
  28. OpenDlg: TOpenPictureDialog;
  29. procedure BitBtn1Click(Sender: TObject);
  30. procedure CB1Click(Sender: TObject);
  31. procedure Button4Click(Sender: TObject);
  32. procedure FormCreate(Sender: TObject);
  33. procedure Button5Click(Sender: TObject);
  34. private
  35. { Private declarations }
  36. public
  37. { Public declarations }
  38. end;
  39. var
  40. frGEditorForm: TfrGEditorForm;
  41. implementation
  42. {$R *.lfm}
  43. uses LR_Class, LR_Desgn;
  44. procedure TfrGEditorForm.BitBtn1Click(Sender: TObject);
  45. begin
  46. if OpenDlg.Execute then
  47. Image1.Picture.LoadFromFile(OpenDlg.FileName);
  48. end;
  49. procedure TfrGEditorForm.CB1Click(Sender: TObject);
  50. begin
  51. Image1.Stretch := CB1.Checked;
  52. end;
  53. procedure TfrGEditorForm.Button4Click(Sender: TObject);
  54. begin
  55. Image1.Picture.Assign(nil);
  56. end;
  57. procedure TfrGEditorForm.FormCreate(Sender: TObject);
  58. begin
  59. Caption := sGEditorFormCapt;
  60. CB1.Caption := sGEditorFormStretch;
  61. Button3.Caption := sGEditorFormLoad;
  62. Button4.Caption := sGEditorFormClear;
  63. Button5.Caption := sGEditorFormMemo;
  64. Button1.Caption := sOk;
  65. Button2.Caption := sCancel;
  66. end;
  67. procedure TfrGEditorForm.Button5Click(Sender: TObject);
  68. begin
  69. TfrDesignerForm(frDesigner).ShowMemoEditor;
  70. end;
  71. end.