Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Диалоговые окна



Вернуться к списку функций
 Открытие сокращённого или полного диалога выбора цвета

 Прислал: Igor Kovalevsky (Владикавказ) ( 1 июня 2002 г. )
©  Igor Kovalevsky
 Описание:
Вид диалога зависит от того, можно ли показать начальный цвет (C : TColor) в сокращённом диалоге или нужно раскрывать его полностью. Возвращает выбранный пользователем цвет.

 Зависимости:
Windows, Messages, SysUtils, Classes, DIALOGS;

 Ограничения:
нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Открытие сокращённого или полного диалога выбора цвета

Вид диалога зависит от того, можно ли показать начальный цвет (C : TColor) в сокращённом диалоге или нужно раскрывать его полностью. Возвращает выбранный пользователем цвет.

Зависимости: Windows, Messages, SysUtils, Classes, DIALOGS;
Автор:       Igor Kovalevsky, pc-ambulance@mail.ru, Владикавказ
Copyright:   Igor Kovalevsky
Дата:        1 июня 2002 г.
***************************************************************** }

function SelectColor(C : TColor) : TColor;
const
     BasicColors = [ $00, $40, $80, $A0, $C0, $FF ];
begin
     with TColorDialog.Create(Application) do
          begin
               Color := C;
               if (GetRValue(Color) in BasicColors) and
                  (GetGValue(Color) in BasicColors) and
                  (GetBValue(Color) in BasicColors) then
                  begin
                       Options := Options - [ cdFullOpen ];
                  end
               else
                   begin
                        Options := Options + [ cdFullOpen ];
                   end;
               if Execute then
                  begin
                       Result := Color
                  end
               else
                   begin
                        Result := clNone;
                   end;
               Free;
          end;
end;

 Пример использования:
Form1.Color := SelectColor( Form1.Color );


Вернуться к списку функций

Наверх ▲