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

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