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}
OldCreateOrder = False
Position = poDefault
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy

14
2.10/Source/Adjust.pas
View File

@ -253,6 +253,7 @@ type
procedure DragPanelMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DragPanelDblClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
Resetting: boolean;
@ -916,7 +917,7 @@ begin
if ColorDialog.Execute then
begin
ColorPanel.Color := ColorDialog.Color;
//cbColor.text := IntToHex(integer(ColorDialog.Color), 6);
//cbColor.text := IntToHex(integer(ColorDialog.Color), 6);
col := ColorToRGB(ColorDialog.Color);
cp.background[0] := col and 255;
cp.background[1] := col shr 8 and 255;
@ -2041,5 +2042,16 @@ begin
UpdateFlame;
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.