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

randomize color preset button

Browse Source
This commit is contained in:
zueuk
2005-09-23 11:22:49 +00:00
parent 573de31ffc
commit 3c5e316960
2 changed files with 38 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
2.10/Source/Adjust.pas
View File

@ -78,7 +78,6 @@ type
btnMenu: TSpeedButton;
btnOpen: TSpeedButton;
btnSmoothPalette: TSpeedButton;
Label1: TLabel;
btnPaste: TSpeedButton;
btnCopy: TSpeedButton;
cmbPalette: TComboBox;
@ -125,10 +124,10 @@ type
txtHeight: TComboBox;
Bevel1: TBevel;
Bevel2: TBevel;
trkQuality: TTrackBar;
btnUndo: TSpeedButton;
btnRedo: TSpeedButton;
chkTransparent: TCheckBox;
btnColorPreset: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
@ -243,6 +242,7 @@ type
procedure btnUndoClick(Sender: TObject);
procedure btnRedoClick(Sender: TObject);
procedure GradientImageDblClick(Sender: TObject);
procedure btnColorPresetClick(Sender: TObject);
private
Resetting: boolean;
@ -1635,13 +1635,6 @@ begin
SaveMap(AppPath + 'default.map');
end;
{
function RandomGradient: TColorMap;
begin
Result := GradientHelper.RandomGradient;
end;
}
procedure TAdjustForm.mnuRandomizeClick(Sender: TObject);
begin
UpdateGradient(GradientHelper.RandomGradient);
@ -1873,5 +1866,11 @@ begin
MainForm.Redo;
end;
procedure TAdjustForm.btnColorPresetClick(Sender: TObject);
begin
cmbPalette.ItemIndex := random(701);
cmbPaletteChange(Sender);
end;
end.