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
Download Patch File Download Diff File Expand all files Collapse all files

6
2.10/Source/Adjust.pas
View File

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