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

small fixes to the gradient editor.

Browse Source
This commit is contained in:
utak3r
2005-10-02 22:01:18 +00:00
parent f3d73d6d6f
commit 443ae93f75
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
2.10/Source/Adjust.pas
View File

@ -410,7 +410,7 @@ begin
BM.Assign(Render.GetImage); BM.Assign(Render.GetImage);
PreviewImage.Picture.Graphic := bm; PreviewImage.Picture.Graphic := bm;
PreviewImage.Refresh; // --Z-- why was commented out? ;-) // PreviewImage.Refresh; // --Z-- why was commented out? ;-)
//--begin DrawPalette //--begin DrawPalette
BitMap := TBitMap.Create; BitMap := TBitMap.Create;
@ -1037,7 +1037,7 @@ begin
if EditForm.visible then EditForm.UpdateDisplay; if EditForm.visible then EditForm.UpdateDisplay;
if MutateForm.Visible then MutateForm.UpdateDisplay; if MutateForm.Visible then MutateForm.UpdateDisplay;
DrawPreview; //hmm // DrawPreview; //hmm
MainForm.RedrawTimer.enabled := true; MainForm.RedrawTimer.enabled := true;
end; end;
@ -1078,7 +1078,7 @@ begin
// DrawPalette; // DrawPalette;
cp.copy(MainCp); cp.copy(MainCp);
{//?} DrawPreview; // DrawPreview;
end; end;
procedure HSVToRGB(H, S, V: real; var Rb, Gb, Bb: integer); procedure HSVToRGB(H, S, V: real; var Rb, Gb, Bb: integer);