Class TImageEdit (unit Ie_main) |
Inherits from
TForm
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);
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;
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);
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;