From: Peter S. <zu...@us...> - 2005-10-06 15:55:01
|
Update of /cvsroot/apophysis/2.10/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30396/Source Modified Files: Adjust.dfm Adjust.pas Log Message: small (un)fixes to the adjust window :-P Index: Adjust.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/Adjust.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Adjust.pas 2 Oct 2005 22:01:18 -0000 1.11 --- Adjust.pas 6 Oct 2005 15:54:53 -0000 1.12 *************** *** 130,133 **** --- 130,135 ---- txtHeight: TComboBox; Bevel2: TBevel; + N8: TMenuItem; + mnuInstantPreview: TMenuItem; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); *************** *** 246,249 **** --- 248,252 ---- procedure btnColorPresetClick(Sender: TObject); procedure btnApplySizeClick(Sender: TObject); + procedure mnuInstantPreviewClick(Sender: TObject); private *************** *** 411,415 **** PreviewImage.Picture.Graphic := bm; ! // PreviewImage.Refresh; // --Z-- why was commented out? ;-) //--begin DrawPalette --- 414,419 ---- PreviewImage.Picture.Graphic := bm; ! if mnuInstantPreview.Checked then ! PreviewImage.Refresh; //--begin DrawPalette *************** *** 476,479 **** --- 480,484 ---- Registry.WriteInteger('Top', AdjustForm.Top); Registry.WriteInteger('Left', AdjustForm.Left); + Registry.WriteBool('InstantPreview', mnuInstantPreview.Checked); end; finally *************** *** 524,527 **** --- 529,534 ---- if Registry.ValueExists('Top') then AdjustForm.Top := Registry.ReadInteger('Top'); + if Registry.ValueExists('InstantPreview') then + mnuInstantPreview.Checked := Registry.ReadBool('InstantPreview'); Registry.CloseKey; end; *************** *** 1034,1042 **** MainCp.CmapIndex := cmbPalette.ItemIndex; MainCp.cmap := Palette; ! // BackupPal := Palette; if EditForm.visible then EditForm.UpdateDisplay; if MutateForm.Visible then MutateForm.UpdateDisplay; ! // DrawPreview; //hmm MainForm.RedrawTimer.enabled := true; end; --- 1041,1051 ---- MainCp.CmapIndex := cmbPalette.ItemIndex; MainCp.cmap := Palette; ! if EditForm.visible then EditForm.UpdateDisplay; if MutateForm.Visible then MutateForm.UpdateDisplay; ! if mnuInstantPreview.Checked then ! DrawPreview; //hmm ! MainForm.RedrawTimer.enabled := true; end; *************** *** 1079,1083 **** cp.copy(MainCp); ! // DrawPreview; end; --- 1088,1094 ---- cp.copy(MainCp); ! ! if mnuInstantPreview.Checked then ! DrawPreview; //hmm end; *************** *** 1914,1917 **** --- 1925,1933 ---- end; + procedure TAdjustForm.mnuInstantPreviewClick(Sender: TObject); + begin + mnuInstantPreview.Checked := not mnuInstantPreview.Checked; + end; + end. Index: Adjust.dfm =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/Adjust.dfm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Adjust.dfm 29 Sep 2005 14:11:29 -0000 1.10 --- Adjust.dfm 6 Oct 2005 15:54:53 -0000 1.11 *************** *** 174,178 **** Width = 390 Height = 131 ! ActivePage = TabSheet3 Align = alBottom TabOrder = 1 --- 174,178 ---- Width = 390 Height = 131 ! ActivePage = TabSheet1 Align = alBottom TabOrder = 1 *************** *** 961,966 **** object QualityPopup: TPopupMenu Images = MainForm.Buttons ! Left = 320 ! Top = 8 object mnuLowQuality: TMenuItem Caption = 'Low Quality' --- 961,966 ---- object QualityPopup: TPopupMenu Images = MainForm.Buttons ! Left = 200 ! Top = 16 object mnuLowQuality: TMenuItem Caption = 'Low Quality' *************** *** 979,992 **** OnClick = mnuHighQualityClick end end object ColorDialog: TColorDialog Options = [cdFullOpen] ! Left = 352 ! Top = 8 end object GradientPopup: TPopupMenu Images = MainForm.Buttons ! Left = 320 ! Top = 48 object mnuRandomize: TMenuItem Caption = 'Randomize' --- 979,999 ---- OnClick = mnuHighQualityClick end + object N8: TMenuItem + Caption = '-' + end + object mnuInstantPreview: TMenuItem + Caption = 'Instant Preview' + OnClick = mnuInstantPreviewClick + end end object ColorDialog: TColorDialog Options = [cdFullOpen] ! Left = 232 ! Top = 16 end object GradientPopup: TPopupMenu Images = MainForm.Buttons ! Left = 200 ! Top = 56 object mnuRandomize: TMenuItem Caption = 'Randomize' *************** *** 1053,1058 **** AutoHotkeys = maManual AutoPopup = False ! Left = 352 ! Top = 48 object mnuRotate: TMenuItem Caption = 'Rotate' --- 1060,1065 ---- AutoHotkeys = maManual AutoPopup = False ! Left = 232 ! Top = 56 object mnuRotate: TMenuItem Caption = 'Rotate' *************** *** 1093,1103 **** DefaultExt = 'map' Filter = 'Map files|*.map' ! Left = 320 ! Top = 80 end object ApplicationEvents: TApplicationEvents OnActivate = ApplicationEventsActivate ! Left = 352 ! Top = 80 end end --- 1100,1110 ---- DefaultExt = 'map' Filter = 'Map files|*.map' ! Left = 200 ! Top = 88 end object ApplicationEvents: TApplicationEvents OnActivate = ApplicationEventsActivate ! Left = 232 ! Top = 88 end end |