Список для выбора цвета

Советы » Цвета и Палитра » Список для выбора цвета

{ 
  IMPORTANT: This code won't run if you don't 
  change the ComboBox or ListBox's property 
  "Style" to csOwnerDrawVariable. 

  WICHTIG: Die Eigenschaft "Style" der ComboBox muss auf 
  csOwnerDrawVariable gesetzt werden, damit der Code 
  funktioniert 
}

 const

COLOR_NUM = 15; ColorConst: array

[0..COLOR_NUM] of

TColor = (clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite); ColorNames: array

[0..COLOR_NUM] of

string

= ('Black', 'Maroon', 'Green', 'Olive', 'Navy', 'Purple', 'Teal', 'Gray', 'Silver', 'Red', 'Lime', 'Yellow', 'Blue', 'Fuchsia', 'Aqua', 'White'); implementation

{...} procedure

TForm1.ComboBox1DrawItem(Control: TWinControl; Index

: Integer; Rect: TRect; State: TOwnerDrawState); begin

with

(Control as

TComboBox).Canvas do

begin

FillRect(Rect); TextOut(30, Rect.Top, ComboBox1.Items[Index

]); Pen.Color := clBlack; Brush.Color := ColorConst[Index

]; Rectangle(Rect.Left + 2, Rect.Top + 2, 24, Rect.Top + 15); end

; end

; procedure

TForm1.FormCreate(Sender: TObject); var

i: Integer; begin

for

i := Low(ColorNames) to

High(ColorNames) do

ComboBox1.Items.Add(ColorNames[i]); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com