Выводит цвет рисунка bmp,но не в HEX.
Код:
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 преобразовать?