Hi,

This code work on Linux not on Windows xp.
// Preview is a TImage.
[code]
  Preview.Canvas.Pen.Color:=clblue;
  Preview.Canvas.Line(...);
[/code]

The color is always White on Windows (with last svn).

Thanks,

See
http://wiki.lazarus.freepascal.org/Developing_with_Graphics#Draw_to_a_TImage

Mattias

2008/8/9 Mattias Gaertner

Thanks Mattias,

I do not believe that it rule my problem, it seems to me having tested several solution...

I look in the week, no time now

regards,

I tested...

This work :

[code]
procedure TForm1.Button3Click(Sender: TObject);
begin
 with Image1.Picture.Bitmap do begin
   Width:=100;
   Height:=120;
   // fill the entire bitmap with red
   Canvas.Pen.Color:=clBlue;
   Canvas.Line(0,0,Width,Height);
 end;
end;
[/code]

This don't work...

[code]
procedure TForm1.Button4Click(Sender: TObject);
var
  LazImage: TLazIntfImage;
  ImgHandle,ImgMaskHandle: HBitmap;
begin
  LazImage:= TLazIntfImage.create(0,0);
  LazImage.DataDescription:=GetDescriptionFromDevice(0, 0, 0); // if comment
this error handle
  LazImage.LoadFromFile('d:/lazarus/images/LazarusForm.bmp');
  LazImage.CreateBitmaps(ImgHandle, ImgMaskHandle);
  Image1.Picture.bitmap.sethandles(ImgHandle, ImgMaskHandle);
  LazImage.Free;
 with Image1.Picture.Bitmap do begin
   Canvas.Pen.Color:=clBlue;
   Canvas.Line(0,0,Width,Height);
 end;
end;
[/code]

Always white !!

Regards,

Hi,

It works better after the holidays.

Thanks,