mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Randomize gradient on doubleclick.

Browse Source
This commit is contained in:
utak3r 2005-09-11 21:07:13 +00:00
parent 0013bdf1c7
commit 389efeaf78
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2.10/Source/Adjust.dfm
View File

@ -173,7 +173,7 @@ object AdjustForm: TAdjustForm
Top = 133 Top = 133
Width = 390 Width = 390
Height = 131 Height = 131
ActivePage = TabSheet2 ActivePage = TabSheet3
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
@ -681,6 +681,7 @@ object AdjustForm: TAdjustForm
Align = alClient Align = alClient
PopupMenu = GradientPopup PopupMenu = GradientPopup
Stretch = True Stretch = True
OnDblClick = GradientImageDblClick
OnMouseDown = GradImageMouseDown OnMouseDown = GradImageMouseDown
OnMouseMove = GradImageMouseMove OnMouseMove = GradImageMouseMove
OnMouseUp = GradImageMouseUp OnMouseUp = GradImageMouseUp

6
2.10/Source/Adjust.pas
View File

@ -242,6 +242,7 @@ type
procedure GetMainWindowSize; procedure GetMainWindowSize;
procedure btnUndoClick(Sender: TObject); procedure btnUndoClick(Sender: TObject);
procedure btnRedoClick(Sender: TObject); procedure btnRedoClick(Sender: TObject);
procedure GradientImageDblClick(Sender: TObject);
private private
Resetting: boolean; Resetting: boolean;
@ -1647,6 +1648,11 @@ begin
Apply; Apply;
end; end;
procedure TAdjustForm.GradientImageDblClick(Sender: TObject);
begin
mnuRandomizeClick(Sender);
end;
procedure TAdjustForm.GradImageMouseDown(Sender: TObject; procedure TAdjustForm.GradImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin