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.