НГС.Форум /Компьютеры Интернет Связь / Программирование /

Проблема с Delphi

Печать RSS Деревом

Анонимный пользователь
15.05.03 22:24
Помогите преобразовать переменную типа TColor в String.

Нужно считать с экрана цвет пиксел (это работает точно),
а потом вывести его в Edit1....

Пробовал Tcolor -> Int -> String тоже не получается.
КопироватьСсылка
Рассказать друзьям
Cactus
Анонимный пользователь
15.05.03 23:52Ответ на сообщение Проблема с Delphi пользователя Анонимный пользователь
Если бы на C++, то создаешь такую вещь:

union xxx{
TColor a;
unsigned char b[4];
}z;

И усе. В поле "a" присваиваешь значение цвета, а из массива b берешь его составляющие по цветам. При желании преобразовываешь их в строки.

Для Дельфи посмотри есть ли аналог union.
КопироватьСсылка
Рассказать друзьям
Full
guru
Сообщений: 2561
16.05.03 08:46Ответ на сообщение Проблема с Delphi пользователя Анонимный пользователь
ColorToRGB?

---
Full http://full.nm.ru
-------
Толк из меня вышел - а вот бестолочь осталась.
КопироватьСсылка
Рассказать друзьям
Cactus
Анонимный пользователь
16.05.03 23:32Ответ на сообщение Re: Проблема с Delphi пользователя Full
Я так понял, ему нужно на составляющие разложить, а не просто в целое преобразовать. В целое он это уже преобразовывал.
КопироватьСсылка
Рассказать друзьям
Full
guru
Сообщений: 2561
19.05.03 08:44Ответ на сообщение Re: Проблема с Delphi пользователя Cactus
Дык берем гугль и суем ему ColorToRGB и получаем ответ

В ответ на: От:AlanGLLoyd (alanglloyd@aol.com)
Заголовок:Re: Konverting from TColor to HTML-Color-System (Hex?)
View: Complete Thread (5 сообщений)
Original Format
Группы новостей:comp.lang.pascal.delphi.misc
Число:1999/02/22

In article , "Graham Pyne"
writes:

>function FixColor(OldColor: longint): longint;
>var Red, Green, Blue: Longint;
>begin
> Red := (OldColor and $ff0000) shr 16;
> Green := OldColor and $00ff00;
> Blue := (OldColor and $0000ff) shl 16;
> Result := Red or Green or Blue;
>end;

Surely that is a RGB to TColor coversion - not from TColor.

HTML is the same as windows RGB, so use the Delphi ColorToRGB() function.

Alan Lloyd
alanglloyd@aol.com
---
Full http://full.nm.ru
-------
Только сядешь поpаботать - обязательно кто-нить pазбyдит!!!
КопироватьСсылка
Рассказать друзьям
Юра
veteran
Сообщений: 1347
19.05.03 18:23Ответ на сообщение Проблема с Delphi пользователя Анонимный пользователь
Если правильно помню тип TColor это и есть как integer. Очевидно, если Color:=clBlack, то в String надо записать "черный". Тогда надо строить таблицу соответствия, типа

function ColorToString(Color:TColor):string;
begin
case Color of
clBlack: Result:='Чёрный';
clWhite: Result:='Белый';
.
.
end;
end;
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
19.05.03 23:12Ответ на сообщение Re: Проблема с Delphi пользователя Full
Ну вы намутили! Но все равно большое спасибо вам!!!
А я спрашивал про colorToString();! Кто бы знал что так все просто???
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
20.05.03 08:49Ответ на сообщение Re: Проблема с Delphi пользователя Анонимный пользователь
я знал.

но, извините, такие задачи ставят школьникам начальной школы... а не обсуждают в форуме программистов.
КопироватьСсылка
Рассказать друзьям

НГС.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic