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

Adjust values change reflecting to the current flame settings on Adjust window activating.

Browse Source
This commit is contained in:
utak3r 2006-04-17 18:14:44 +00:00
parent e2ae3b9329
commit 78f090e855
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.10/Source/Adjust.dfm
View File

@ -43,6 +43,7 @@ object AdjustForm: TAdjustForm
0000000100000001000000010000000100000001000000010000FFFF0000} 0000000100000001000000010000000100000001000000010000FFFF0000}
OldCreateOrder = False OldCreateOrder = False
Position = poDefault Position = poDefault
OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy

12
2.10/Source/Adjust.pas
View File

@ -253,6 +253,7 @@ type
procedure DragPanelMouseUp(Sender: TObject; Button: TMouseButton; procedure DragPanelMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure DragPanelDblClick(Sender: TObject); procedure DragPanelDblClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private private
Resetting: boolean; Resetting: boolean;
@ -2041,5 +2042,16 @@ begin
UpdateFlame; UpdateFlame;
end; end;
procedure TAdjustForm.FormActivate(Sender: TObject);
begin
txtVibrancy.text := FloatToStr(cp.Vibrancy);
txtGamma.text := FloatToStr(cp.Gamma);
txtBrightness.text := FloatToStr(cp.Brightness);
txtZoom.text := FloatToStr(cp.zoom);
txtCenterX.text := FloatToStr(cp.center[0]);
txtCentery.text := FloatToStr(cp.center[1]);
txtAngle.text := FloatToStr(cp.FAngle * 180 / PI);
end;
end. end.