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

small (un)fixes to the adjust window :-P

Browse Source
This commit is contained in:
zueuk
2005-10-06 15:54:53 +00:00
parent 30f49d0eae
commit c6185f9095
2 changed files with 40 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
2.10/Source/Adjust.pas
View File

@ -129,6 +129,8 @@ type
txtWidth: TComboBox;
txtHeight: TComboBox;
Bevel2: TBevel;
N8: TMenuItem;
mnuInstantPreview: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
@ -245,6 +247,7 @@ type
procedure GradientImageDblClick(Sender: TObject);
procedure btnColorPresetClick(Sender: TObject);
procedure btnApplySizeClick(Sender: TObject);
procedure mnuInstantPreviewClick(Sender: TObject);
private
Resetting: boolean;
@ -410,7 +413,8 @@ begin
BM.Assign(Render.GetImage);
PreviewImage.Picture.Graphic := bm;
// PreviewImage.Refresh; // --Z-- why was commented out? ;-)
if mnuInstantPreview.Checked then
PreviewImage.Refresh;
//--begin DrawPalette
BitMap := TBitMap.Create;
@ -475,6 +479,7 @@ begin
begin
Registry.WriteInteger('Top', AdjustForm.Top);
Registry.WriteInteger('Left', AdjustForm.Left);
Registry.WriteBool('InstantPreview', mnuInstantPreview.Checked);
end;
finally
Registry.Free;
@ -523,6 +528,8 @@ begin
AdjustForm.Left := Registry.ReadInteger('Left');
if Registry.ValueExists('Top') then
AdjustForm.Top := Registry.ReadInteger('Top');
if Registry.ValueExists('InstantPreview') then
mnuInstantPreview.Checked := Registry.ReadBool('InstantPreview');
Registry.CloseKey;
end;
@ -1033,11 +1040,13 @@ begin
MainCp.CmapIndex := cmbPalette.ItemIndex;
MainCp.cmap := Palette;
// BackupPal := Palette;
if EditForm.visible then EditForm.UpdateDisplay;
if MutateForm.Visible then MutateForm.UpdateDisplay;
// DrawPreview; //hmm
if mnuInstantPreview.Checked then
DrawPreview; //hmm
MainForm.RedrawTimer.enabled := true;
end;
@ -1078,7 +1087,9 @@ begin
// DrawPalette;
cp.copy(MainCp);
// DrawPreview;
if mnuInstantPreview.Checked then
DrawPreview; //hmm
end;
procedure HSVToRGB(H, S, V: real; var Rb, Gb, Bb: integer);
@ -1913,5 +1924,10 @@ begin
SetMainWindowSize;
end;
procedure TAdjustForm.mnuInstantPreviewClick(Sender: TObject);
begin
mnuInstantPreview.Checked := not mnuInstantPreview.Checked;
end;
end.