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

Store the cmapindex and use it to select the correct gradien in the adjust window

Browse Source
This commit is contained in:
ronaldhordijk
2005-09-25 08:10:09 +00:00
parent 3c5e316960
commit ea11c313df
9 changed files with 53 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
2.10/Source/Adjust.pas
View File

@ -281,6 +281,7 @@ type
procedure WritePreset(n: integer);
function PresetToStr(n: integer): string;
procedure UpdateGradient(Pal: TColorMap);
// --
public
PreviewDensity: double;
@ -291,7 +292,6 @@ type
procedure UpdateDisplay;
procedure UpdateFlame;
procedure UpdateGradient(Pal: TColorMap);
end;
var
@ -364,7 +364,12 @@ begin
Resetting := False;
DrawPreview;
Palette:=cp.cmap;
// gradient
if cp.cmapindex >= 0 then
cmbPalette.ItemIndex := cp.cmapindex;
ScrollBar.Position := 0;
Palette := cp.cmap;
BackupPal := cp.cmap;
DrawPalette;
end;