Недавно добавленные исходники

•  3D Designer  98

•  Sik Screen Capture  78

•  Patch Maker  70

•  Айболит (remote control)  89

•  ListBox Drag & Drop  69

•  Доска для игры Реверси  1 166

•  Графические эффекты  79

•  Рисование по маске  59

•  Перетаскивание изображений  63

•  Canvas Drawing  64

•  Рисование Луны  141

•  Поворот изображения  49

•  Рисование стержней  42

•  Paint on Shape  40

•  Генератор кроссвордов  51

•  Головоломка Paletto  58

•  Теорема Монжа об окружностях  104

•  Пазл Numbrix  48

•  Заборы и коммивояжеры  72

•  Игра HIP  55

•  Игра Go (Го)  45

•  Симулятор лифта  47

•  Программа укладки плитки  49

•  Генератор лабиринта  90

•  Проверка числового ввода  41

•  HEX View  94

•  Физический маятник  97

•  Задача коммивояжера  123

•  Автомобильная пробка  47

•  Квадратные сетки из слов  41

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



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



Оформил: DeeCo

{ 
  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 © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter