From 3c5e31696013dccf04a69293e615a5be1e226902 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Fri, 23 Sep 2005 11:22:49 +0000
Subject: [PATCH] randomize color preset button
---
2.10/Source/Adjust.dfm | 72 ++++++++++++++++++------------------------
2.10/Source/Adjust.pas | 17 +++++-----
2 files changed, 38 insertions(+), 51 deletions(-)
diff --git a/2.10/Source/Adjust.dfm b/2.10/Source/Adjust.dfm
index 966736c..76c6282 100644
--- a/2.10/Source/Adjust.dfm
+++ b/2.10/Source/Adjust.dfm
@@ -173,7 +173,7 @@ object AdjustForm: TAdjustForm
Top = 133
Width = 390
Height = 131
- ActivePage = TabSheet1
+ ActivePage = TabSheet2
Align = alBottom
TabOrder = 1
object TabSheet1: TTabSheet
@@ -446,8 +446,8 @@ object AdjustForm: TAdjustForm
OnKeyPress = txtVibrancyKeyPress
end
object ColorPanel: TPanel
- Left = 104
- Top = 76
+ Left = 112
+ Top = 78
Width = 113
Height = 21
Cursor = crHandPoint
@@ -457,8 +457,8 @@ object AdjustForm: TAdjustForm
OnClick = ColorPanelClick
end
object cbColor: TComboBox
- Left = 224
- Top = 76
+ Left = 232
+ Top = 78
Width = 59
Height = 21
Enabled = False
@@ -466,6 +466,7 @@ object AdjustForm: TAdjustForm
ItemIndex = 0
TabOrder = 7
Text = '000000'
+ Visible = False
Items.Strings = (
'000000'
'FFFFFF')
@@ -473,11 +474,12 @@ object AdjustForm: TAdjustForm
object chkTransparent: TCheckBox
Left = 296
Top = 80
- Width = 97
+ Width = 81
Height = 17
Caption = 'Transparent'
Enabled = False
TabOrder = 8
+ Visible = False
end
end
object TabSheet3: TTabSheet
@@ -491,9 +493,9 @@ object AdjustForm: TAdjustForm
Caption = '0'
end
object btnMenu: TSpeedButton
- Left = 6
+ Left = 4
Top = 52
- Width = 75
+ Width = 61
Height = 21
Hint = 'Click for menu'
Caption = 'Rotate'
@@ -504,7 +506,7 @@ object AdjustForm: TAdjustForm
end
object btnOpen: TSpeedButton
Left = 333
- Top = 77
+ Top = 78
Width = 23
Height = 22
Hint = 'Open Gradient Browser'
@@ -544,7 +546,7 @@ object AdjustForm: TAdjustForm
end
object btnSmoothPalette: TSpeedButton
Left = 357
- Top = 77
+ Top = 78
Width = 23
Height = 22
Hint = 'Smooth Palette'
@@ -580,18 +582,9 @@ object AdjustForm: TAdjustForm
ShowHint = True
OnClick = mnuSmoothPaletteClick
end
- object Label1: TLabel
- Left = 5
- Top = 80
- Width = 57
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'Preset'
- end
object btnPaste: TSpeedButton
Left = 309
- Top = 77
+ Top = 78
Width = 23
Height = 22
Hint = 'Paste fradient from clipboard'
@@ -629,7 +622,7 @@ object AdjustForm: TAdjustForm
end
object btnCopy: TSpeedButton
Left = 285
- Top = 77
+ Top = 78
Width = 23
Height = 22
Hint = 'Copy gradient to clipboard'
@@ -665,6 +658,18 @@ object AdjustForm: TAdjustForm
ShowHint = True
OnClick = btnCopyClick
end
+ object btnColorPreset: TSpeedButton
+ Left = 4
+ Top = 78
+ Width = 61
+ Height = 21
+ Hint = 'Click to choose random preset'
+ Caption = 'Preset'
+ Flat = True
+ ParentShowHint = False
+ ShowHint = True
+ OnClick = btnColorPresetClick
+ end
object GradientPnl: TPanel
Left = 0
Top = 0
@@ -689,9 +694,9 @@ object AdjustForm: TAdjustForm
end
end
object ScrollBar: TScrollBar
- Left = 88
+ Left = 72
Top = 55
- Width = 255
+ Width = 271
Height = 15
LargeChange = 16
Max = 128
@@ -702,9 +707,9 @@ object AdjustForm: TAdjustForm
OnScroll = ScrollBarScroll
end
object cmbPalette: TComboBox
- Left = 69
+ Left = 72
Top = 79
- Width = 201
+ Width = 206
Height = 19
Style = csOwnerDrawFixed
Color = clBlack
@@ -942,23 +947,6 @@ object AdjustForm: TAdjustForm
end
end
end
- object trkQuality: TTrackBar
- Left = 288
- Top = 0
- Width = 33
- Height = 129
- Hint = 'Preview image quality'
- Max = 5
- Min = 1
- Orientation = trVertical
- ParentShowHint = False
- Position = 3
- ShowHint = True
- TabOrder = 2
- TabStop = False
- ThumbLength = 18
- Visible = False
- end
object QualityPopup: TPopupMenu
Images = MainForm.Buttons
Left = 320
diff --git a/2.10/Source/Adjust.pas b/2.10/Source/Adjust.pas
index c76e291..1aaefcd 100644
--- a/2.10/Source/Adjust.pas
+++ b/2.10/Source/Adjust.pas
@@ -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.