Проблема с Delphi
2445
7
Помогите преобразовать переменную типа TColor в String.
Нужно считать с экрана цвет пиксел (это работает точно),
а потом вывести его в Edit1....
Пробовал Tcolor -> Int -> String тоже не получается.
Нужно считать с экрана цвет пиксел (это работает точно),
а потом вывести его в Edit1....
Пробовал Tcolor -> Int -> String тоже не получается.
Если бы на C++, то создаешь такую вещь:
union xxx{
TColor a;
unsigned char b[4];
}z;
И усе. В поле "a" присваиваешь значение цвета, а из массива b берешь его составляющие по цветам. При желании преобразовываешь их в строки.
Для Дельфи посмотри есть ли аналог union.
union xxx{
TColor a;
unsigned char b[4];
}z;
И усе. В поле "a" присваиваешь значение цвета, а из массива b берешь его составляющие по цветам. При желании преобразовываешь их в строки.
Для Дельфи посмотри есть ли аналог union.
Я так понял, ему нужно на составляющие разложить, а не просто в целое преобразовать. В целое он это уже преобразовывал.
Дык берем гугль и суем ему ColorToRGB и получаем ответ
Full http://full.nm.ru
-------
Только сядешь поpаботать - обязательно кто-нить pазбyдит!!!
От: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
Если правильно помню тип TColor это и есть как integer. Очевидно, если Color:=clBlack, то в String надо записать "черный". Тогда надо строить таблицу соответствия, типа
function ColorToString(Color:TColor):string;
begin
case Color of
clBlack: Result:='Чёрный';
clWhite: Result:='Белый';
.
.
end;
end;
function ColorToString(Color:TColor):string;
begin
case Color of
clBlack: Result:='Чёрный';
clWhite: Result:='Белый';
.
.
end;
end;
Ну вы намутили! Но все равно большое спасибо вам!!!
А я спрашивал про colorToString();! Кто бы знал что так все просто???
А я спрашивал про colorToString();! Кто бы знал что так все просто???
Сейчас читают
Штрафы за ремень...
49722
439
Может кто знает, где купить.
310390
597
Натяжные потолки (часть 2)
305415
1000
ТОП 5
2
4