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

Changing a background doesn't need a flame recalculation.

Browse Source
This commit is contained in:
utak3r 2007-06-17 16:37:14 +00:00
parent 9a3a039c99
commit 9a873c8331
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
2.10/Source/Adjust.pas
View File

@ -307,7 +307,7 @@ type
// Sample_Density, Zoom: double; // Sample_Density, Zoom: double;
// Center: array[0..1] of double; // Center: array[0..1] of double;
procedure UpdateDisplay(PreviewOnly: boolean = false); procedure UpdateDisplay(PreviewOnly: boolean = false);
procedure UpdateFlame; procedure UpdateFlame(bBgOnly: boolean = false);
end; end;
@ -393,18 +393,18 @@ begin
DrawPreview; DrawPreview;
end; end;
procedure TAdjustForm.UpdateFlame; procedure TAdjustForm.UpdateFlame(bBgOnly: boolean = false);
begin begin
MainForm.StopThread; if not bBgOnly then
MainForm.StopThread;
MainForm.UpdateUndo; MainForm.UpdateUndo;
MainCp.Copy(cp, true); MainCp.Copy(cp, true);
// MainCp.cmap := cmap;
// MainForm.zoom := zoom;
// MainForm.Center[0] := Center[0];
// MainForm.Center[1] := Center[1];
if EditForm.Visible then EditForm.UpdateDisplay; if EditForm.Visible then EditForm.UpdateDisplay;
if MutateForm.Visible then MutateForm.UpdateDisplay; if MutateForm.Visible then MutateForm.UpdateDisplay;
MainForm.RedrawTimer.enabled := true; if bBgOnly then
MainForm.tbShowAlphaClick(Self)
else
MainForm.RedrawTimer.enabled := true;
end; end;
procedure TAdjustForm.DrawPreview; procedure TAdjustForm.DrawPreview;
@ -935,7 +935,7 @@ begin
cp.background[1] := col shr 8 and 255; cp.background[1] := col shr 8 and 255;
cp.background[2] := col shr 16 and 255; cp.background[2] := col shr 16 and 255;
DrawPreview; DrawPreview;
UpdateFlame; UpdateFlame(true);
end; end;
end; end;