fr_gedit.pas

来自「FreeReport 2.34 consists of the report e」· PAS 代码 · 共 95 行

{*****************************************}
{                                         }
{             FastReport v2.3             }
{              Picture editor             }
{                                         }
{  Copyright (c) 1998-99 by Tzyganenko A. }
{                                         }
{*****************************************}

unit FR_GEdit;

interface

{$I FR.inc}

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, FR_Const;

type
  TfrGEditorForm = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    OpenDlg: TOpenDialog;
    CB1: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure CB1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frGEditorForm: TfrGEditorForm;

implementation

{$R *.DFM}

uses FR_Class, FR_Desgn;

procedure TfrGEditorForm.BitBtn1Click(Sender: TObject);
begin
{$IFDEF JPEG}
  OpenDlg.Filter := LoadStr(SPictFile) +
    ' (*.bmp *.jpg *.ico *.wmf *.emf)|*.bmp;*.jpg;*.ico;*.wmf;*.emf|' +
    LoadStr(SAllFiles) + '|*.*';
{$ELSE}
  OpenDlg.Filter := LoadStr(SPictFile) +
    ' (*.bmp *.ico *.wmf *.emf)|*.bmp;*.ico;*.wmf;*.emf|' +
    LoadStr(SAllFiles) + '|*.*';
{$ENDIF}
  if OpenDlg.Execute then
    Image1.Picture.LoadFromFile(OpenDlg.FileName);
end;

procedure TfrGEditorForm.CB1Click(Sender: TObject);
begin
  Image1.Stretch := CB1.Checked;
end;

procedure TfrGEditorForm.Button4Click(Sender: TObject);
begin
  Image1.Picture.Assign(nil);
end;

procedure TfrGEditorForm.FormCreate(Sender: TObject);
begin
  Caption := LoadStr(frRes + 460);
  CB1.Caption := LoadStr(frRes + 461);
  Button3.Caption := LoadStr(frRes + 462);
  Button4.Caption := LoadStr(frRes + 463);
  Button5.Caption := LoadStr(frRes + 464);
  Button1.Caption := LoadStr(SOk);
  Button2.Caption := LoadStr(SCancel);
end;

procedure TfrGEditorForm.Button5Click(Sender: TObject);
begin
  TfrDesignerForm(frDesigner).ShowMemoEditor;
end;

end.