Class TImageEdit (unit Ie_main)

Inherits from

TForm

Constructors



Functions

procedure BackColorChanged(Sender: TObject);


procedure ColorPickMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ColorPickMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure DrawFillStyle(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawFont(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawLineStyle(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawLineWidth(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawText(Sender: TObject);


procedure FilePrint(Sender: TObject);

******************** } { ------------- } { | | 1 | | } { 1 ------------- } { - * | 1 | 2 | 1 | } { 6 ------------- } { | | 1 | | } { ------------- } { ********************

procedure ForeColorChanged(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Use the best quality

procedure FormKeyPress(Sender: TObject; var Key: Char);


procedure FormResize(Sender: TObject);


procedure iBalance(Sender: TObject);


procedure IEImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure IEImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

dtCurve: if CurveIndex = 0 then begin Drawing := True; CurvePoint[0] := Point(x,y); CurveIndex := 1; MoveTo(X, Y); Origin := Point(X, Y); MovePt := Origin; OriginPanel.

procedure IEImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure iFlip90(Sender: TObject);


procedure iFlipHor(Sender: TObject);


procedure iFlipVer(Sender: TObject);


procedure iGrayScale(Sender: TObject);


procedure iInverse(Sender: TObject);


procedure ImageCopy(Sender: TObject);


procedure ImagePaste(Sender: TObject);


procedure iSmear(Sender: TObject);


procedure iSmear2(Sender: TObject);

row 3

procedure mPropertyBarClick(Sender: TObject);


procedure mQuitClick(Sender: TObject);


procedure mResizeClick(Sender: TObject);

CurveIndex := 0;

procedure mSaveExistClick(Sender: TObject);

Save setting

procedure mToolbarClick(Sender: TObject);


procedure SetDrawingTool(Sender: TObject);


procedure SetFillStyle(Sender: TObject);


procedure SetLineStyle(Sender: TObject);


procedure SetLineWidth(Sender: TObject);


procedure TextBoundMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure DrawPolyLine;

CurveIndex := 0;

procedure DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);


Properties

Events

Variables

BackColor : TByGradientSlider;


BackColorLabel : TLabel;


bar1 : TImage;


bar2 : TImage;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


Bevel6 : TBevel;


Bevel7 : TBevel;


BtnCancel : TBitBtn;


BtnCurve : TSpeedButton;


BtnEllipse : TSpeedButton;


BtnFill : TSpeedButton;


BtnFlip90 : TSpeedButton;


BtnFlipHor : TSpeedButton;


BtnFlipVer : TSpeedButton;


BtnGrayScale : TSpeedButton;


BtnInverse : TSpeedButton;


BtnLine : TSpeedButton;


BtnMarker : TSpeedButton;


BtnOK : TBitBtn;


BtnPick : TSpeedButton;


BtnPolygon : TSpeedButton;


BtnRect : TSpeedButton;


BtnRGB : TSpeedButton;


BtnRRect : TSpeedButton;


BtnSmear : TSpeedButton;


BtnSmear2 : TSpeedButton;


BtnTxt : TSpeedButton;


ColorPick : TImage;


ComboFillStyle : TComboBox;


ComboLineStyle : TComboBox;


ComboLineWidth : TComboBox;


CurrentPanel : TPanel;


Font3D : TSpeedButton;


FontBold : TSpeedButton;


FontItalic : TSpeedButton;


FontName : TComboBox;


FontSize : TComboBox;


FontStrike : TSpeedButton;


FontUnderline : TSpeedButton;


ForeColor : TByGradientSlider;


ForeColorLabel : TLabel;


Gauge : TGauge;


IEImage : TImage;


IEScroll : TScrollBox;


MainMenu : TMainMenu;


mCopy : TMenuItem;


mEdit : TMenuItem;


mEfBalance : TMenuItem;


mEffect : TMenuItem;


mEfFlip90 : TMenuItem;


mEfFlipHor : TMenuItem;


mEfFlipVer : TMenuItem;


mEfGray : TMenuItem;


mEfInverse : TMenuItem;


mEfSmear : TMenuItem;


mEfSmear2 : TMenuItem;


mFile : TMenuItem;


mPaste : TMenuItem;


mPrint : TMenuItem;


mPropertyBar : TMenuItem;


mQuit : TMenuItem;


mResize : TMenuItem;


mSaveExist : TMenuItem;


mToolbar : TMenuItem;


mView : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N4 : TMenuItem;


OriginPanel : TPanel;


Panel2 : TPanel;


StatusBar : TPanel;


TColorBar : TPanel;


TextAngle : TSpinEdit;


TextAngleBmp : TImage;


TextBound : TShape;


TextEdit : TEdit;


TPropertyBar : TPanel;


TPropertyBarPage : TNotebook;


TTextBar : TPanel;


TToolBar : TPanel;


Drawing : Boolean;


DrawingTool : Integer;


FontWeight : Integer;


MovePt : TPoint;


Origin : TPoint;


PolyIndex : Integer;

CurveIndex : Integer; CurvePoint : Array [0.

PolyPoint : TPolyPoint;


TempBMP : TBitmap;



Constructors


Functions


procedure BackColorChanged(Sender: TObject);


procedure ColorPickMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ColorPickMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure DrawFillStyle(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawFont(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawLineStyle(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawLineWidth(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure DrawText(Sender: TObject);


procedure FilePrint(Sender: TObject);

******************** } { ------------- } { | | 1 | | } { 1 ------------- } { - * | 1 | 2 | 1 | } { 6 ------------- } { | | 1 | | } { ------------- } { ********************


procedure ForeColorChanged(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Use the best quality


procedure FormKeyPress(Sender: TObject; var Key: Char);


procedure FormResize(Sender: TObject);


procedure iBalance(Sender: TObject);


procedure IEImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure IEImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

dtCurve: if CurveIndex = 0 then begin Drawing := True; CurvePoint[0] := Point(x,y); CurveIndex := 1; MoveTo(X, Y); Origin := Point(X, Y); MovePt := Origin; OriginPanel.Caption := Format('(%d, %d)', [X, Y]); end;


procedure IEImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure iFlip90(Sender: TObject);


procedure iFlipHor(Sender: TObject);


procedure iFlipVer(Sender: TObject);


procedure iGrayScale(Sender: TObject);


procedure iInverse(Sender: TObject);


procedure ImageCopy(Sender: TObject);


procedure ImagePaste(Sender: TObject);


procedure iSmear(Sender: TObject);


procedure iSmear2(Sender: TObject);

row 3


procedure mPropertyBarClick(Sender: TObject);


procedure mQuitClick(Sender: TObject);


procedure mResizeClick(Sender: TObject);

CurveIndex := 0;


procedure mSaveExistClick(Sender: TObject);

Save setting


procedure mToolbarClick(Sender: TObject);


procedure SetDrawingTool(Sender: TObject);


procedure SetFillStyle(Sender: TObject);


procedure SetLineStyle(Sender: TObject);


procedure SetLineWidth(Sender: TObject);


procedure TextBoundMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure DrawPolyLine;

CurveIndex := 0;


procedure DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);


Properties


Events


Variables


BackColor : TByGradientSlider;


BackColorLabel : TLabel;


bar1 : TImage;


bar2 : TImage;


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


Bevel6 : TBevel;


Bevel7 : TBevel;


BtnCancel : TBitBtn;


BtnCurve : TSpeedButton;


BtnEllipse : TSpeedButton;


BtnFill : TSpeedButton;


BtnFlip90 : TSpeedButton;


BtnFlipHor : TSpeedButton;


BtnFlipVer : TSpeedButton;


BtnGrayScale : TSpeedButton;


BtnInverse : TSpeedButton;


BtnLine : TSpeedButton;


BtnMarker : TSpeedButton;


BtnOK : TBitBtn;


BtnPick : TSpeedButton;


BtnPolygon : TSpeedButton;


BtnRect : TSpeedButton;


BtnRGB : TSpeedButton;


BtnRRect : TSpeedButton;


BtnSmear : TSpeedButton;


BtnSmear2 : TSpeedButton;


BtnTxt : TSpeedButton;


ColorPick : TImage;


ComboFillStyle : TComboBox;


ComboLineStyle : TComboBox;


ComboLineWidth : TComboBox;


CurrentPanel : TPanel;


Font3D : TSpeedButton;


FontBold : TSpeedButton;


FontItalic : TSpeedButton;


FontName : TComboBox;


FontSize : TComboBox;


FontStrike : TSpeedButton;


FontUnderline : TSpeedButton;


ForeColor : TByGradientSlider;


ForeColorLabel : TLabel;


Gauge : TGauge;


IEImage : TImage;


IEScroll : TScrollBox;


MainMenu : TMainMenu;


mCopy : TMenuItem;


mEdit : TMenuItem;


mEfBalance : TMenuItem;


mEffect : TMenuItem;


mEfFlip90 : TMenuItem;


mEfFlipHor : TMenuItem;


mEfFlipVer : TMenuItem;


mEfGray : TMenuItem;


mEfInverse : TMenuItem;


mEfSmear : TMenuItem;


mEfSmear2 : TMenuItem;


mFile : TMenuItem;


mPaste : TMenuItem;


mPrint : TMenuItem;


mPropertyBar : TMenuItem;


mQuit : TMenuItem;


mResize : TMenuItem;


mSaveExist : TMenuItem;


mToolbar : TMenuItem;


mView : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N4 : TMenuItem;


OriginPanel : TPanel;


Panel2 : TPanel;


StatusBar : TPanel;


TColorBar : TPanel;


TextAngle : TSpinEdit;


TextAngleBmp : TImage;


TextBound : TShape;


TextEdit : TEdit;


TPropertyBar : TPanel;


TPropertyBarPage : TNotebook;


TTextBar : TPanel;


TToolBar : TPanel;


Drawing : Boolean;


DrawingTool : Integer;


FontWeight : Integer;


MovePt : TPoint;


Origin : TPoint;


PolyIndex : Integer;

CurveIndex : Integer; CurvePoint : Array [0..3] of TPoint;


PolyPoint : TPolyPoint;


TempBMP : TBitmap;