[Nikita4]

На форме TImage, добавлена картинка.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, pngimage, ExtCtrls, StdCtrls;   type   TForm2 = class(TForm)     Button1: TButton;     Image1: TImage;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); var   Color: TColor;  begin   Image1.Picture.LoadFromFile('1.png');   Color:=Image1.Picture.Bitmap.Canvas.Pixels[10,10];   Showmessage(inttostr(Color)); end;   end.

[dr. F.I.N.]

Вам ColorToString() надо?

[Nikita4]

Выводит цвет рисунка bmp,но не в HEX.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, pngimage, ExtCtrls, StdCtrls;   type   TForm2 = class(TForm)     Button1: TButton;     Label1: TLabel;     Image1: TImage;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); var   Color: TColor;   bmp: TBitMap;  //для конвертации из png в bmp begin   //для конвертации из png в bmp---------------------------   Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.png');   bmp := TBitMap.Create;   bmp.Assign(Image1.Picture.Graphic);   bmp.SaveToFile('1.bmp');   bmp.Free;   //-------------------------------------------------------   Image1.Picture.LoadFromFile('1.bmp');   color:=Image1.Picture.Bitmap.Canvas.Pixels[5,1];   Label1.Caption:=IntToStr(color);//выводим  в шестнадцатиричном числе end; end.

Как его в Hex преобразовать?

[dr. F.I.N.]

Yandex/Google: Delphi color to HEX - на каждой странице решение. Например так

[Nikita4]

Так проще:
ShowMessage(IntToHex(16777215, 1));//перевод из 16-го в HEX

Только вместо цвета 990082 наоборот 820099 показывает

dr. F.I.N. , спасибо за ответы.