Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Вниз

Код цвета   Найти похожие ветки 

 
nordic3   (2006-09-01 21:03) [0]

Как при нажатии кнопки в Edit записать код пиксела Image?
Собственно проблема: преобразовать TColor в string.
И причем не должно быть всяких clBlue или clRed. Только код типа $00FF00FF.


 
Anatoly Podgoretsky ©   (2006-09-01 21:07) [1]

Придется переводить TColor в RGB, ну а дальше побайтно в hex


 
nordic3   (2006-09-01 21:08) [2]

А можно по-подробнее?


 
Loginov Dmitry ©   (2006-09-01 22:24) [3]

IntToHex()


 
Anatoly Podgoretsky ©   (2006-09-02 00:09) [4]

nordic3   (01.09.06 21:08) [2]
TColor это не RGB, поэтому его надо преобразовывать.
Если надо именно так $00FF00FF, то достаточно IntToHex, но это опять же не RGB, а Integer в hex нотации. RGB будет если перевернуть. А так это Palette, B, G, R


 
Германн ©   (2006-09-02 01:31) [5]


> Anatoly Podgoretsky ©   (02.09.06 00:09) [4]
>
> nordic3   (01.09.06 21:08) [2]
> TColor это не RGB, поэтому его надо преобразовывать.

Так в сабже никто и не просил преобразовывать в RGB. Так что действительно  достаточно IntToHex(PixelColor,8);

Но вот только неясна суть замысла. Зачем его записывать в Edit?


 
Vovan#1   (2006-09-02 18:48) [6]

Начиная с какой-то версии (с 6-ой?) Delphi есть в стандартной поставке модуль GraphUtil:

uses GraphUtil;

{ Converts a TColor to a Web color constant like #FFFFFF }
function ColorToWebColorStr(Color: TColor): string;

Её код:

function ColorToWebColorStr(Color: TColor): string;
var
 RGB: Integer;
begin
 RGB := ColorToRGB(Color);
 Result := UpperCase(Format("#%.2x%.2x%.2x", [GetRValue(RGB),
   GetGValue(RGB), GetBValue(RGB)]));  { do not localize }
end;


 
nordic3   (2006-09-03 17:59) [7]

Вот более точный вопрос:
нажимаешь на кнопку, в Edit пишется код (типа $00FF00FF) цвета [5,5]пиксела из Image!
Пожалуйста, можно подробный пример!


 
PSPF2003 ©   (2006-09-03 18:05) [8]

Col := Image1.Canvas.Pixels[125, 125];
Edit1.Text := "$" + IntToHex(Col, 2);


 
Gydvin ©   (2006-09-03 20:20) [9]

а чем функции colortostring, stringtocolor не устраивают?


 
vrem   (2006-09-03 20:55) [10]

function divdw(col:longword; he:byte):byte; //col = цвет, he: 0=pal,  1=B, 2=G, 3=R, result - выбранный байт из 4-х
asm
      mov     ecx,eax
      cmp     dl,0
      je      @@1
      shl     ecx,8
      cmp     dl,1
      je      @@1
      shl     ecx,8
      cmp     dl,2
      je      @@1
      shl     ecx,8
@@1:   shld    eax,ecx,8
end;



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.044 c
15-1156954704
Rule
2006-08-30 20:18
2006.09.24
Поздравте меня, я уже не безработаный :-)))


15-1157521275
Ega23
2006-09-06 09:41
2006.09.24
Как сказать по-английски?


3-1153354723
VitalikS
2006-07-20 04:18
2006.09.24
Из FireBird в PostgreSQL


2-1157264642
TimScorp
2006-09-03 10:24
2006.09.24
Создание отчета


15-1157101383
Gorlum
2006-09-01 13:03
2006.09.24
Ну и нафига они это сделали





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский