53 lines
1.2 KiB
Plaintext
53 lines
1.2 KiB
Plaintext
//------------------------------------------------------------------------------
|
|
// ImageEn Painter : Version 1.0
|
|
// Copyright (c) 2007 : Adirondack Software & Graphics
|
|
// Created : 05-25-2007
|
|
// Last Modification : 05-25-2007
|
|
// Description : Flip Unit
|
|
//------------------------------------------------------------------------------
|
|
|
|
unit uFlip;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, {$IfNDef VER130} Variants, {$EndIf} Classes, Graphics, Controls, Forms,
|
|
Dialogs, ieview, imageenview, imageenproc, StdCtrls, ExtCtrls, hyiedefs, hyieutils, iexBitmaps, iesettings,
|
|
iexLayers, iexRulers;
|
|
|
|
type
|
|
TFrmFlip = class( TForm )
|
|
RadioGroup1: TRadioGroup;
|
|
Label1: TLabel;
|
|
ImageEnView1: TImageEnView;
|
|
MergeAlpha1: TCheckBox;
|
|
Panel1: TPanel;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
procedure RadioGroup1Click( Sender: TObject );
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
FrmFlip: TFrmFlip;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses uMain;
|
|
|
|
procedure TFrmFlip.RadioGroup1Click( Sender: TObject );
|
|
begin
|
|
case RadioGroup1.ItemIndex of
|
|
0: ImageEnView1.Proc.Flip( fdHorizontal );
|
|
1: ImageEnView1.Proc.Flip( fdVertical );
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|