Bad Hint related to TLazIntfImage

[jipété]

Hello,

When I move the mouse over that word, a big window hint is displayed with a piece of code, code which doesn't compile anymore due to the fact that GetDescriptionFromDevice is badly used : should be IntfImg1.DataDescription := GetDescriptionFromDevice(0);

See the last line in the attached image.

Thank you for the correction.

[paweld]

Report a bug in: https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues

[jipété]

Report a bug in: https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues

I don't have account at gitlab, sorry.

[wp]

Submitted a bug report: https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/40970

[dsiders]

I have changed the example code (based on @wp's suggestions) to:

Code: Pascal  [Select][+][-]

1. var
2.   BmpHnd,MaskHnd: HBitmap;
3.   Bitmap1: TBitmap;
4.   IntfImg1: TLazIntfImage;
5.   Reader: TLazReaderXPM;
6. begin
7.   // create a bitmap (or use an existing one)
8.   Bitmap1:=TBitmap.Create;
9.   // create the raw image
10.   IntfImg1:=TLazIntfImage.Create(0,0);
11.   // get the description for the current screen (bitsperpixel, depth, ...)
12.   IntfImg1.DataDescription := GetDescriptionFromDevice(0);
13.   // create the XPM reader
14.   Reader:=TLazReaderXPM.Create;
15.   // load the image
16.   IntfImg1.LoadFromFile('filename.xpm',Reader);
17.   // create the bitmap handles
18.   IntfImg1.CreateBitmaps(BmpHnd,MaskHnd);
19.   // apply handles to the Bitmap1
20.   Bitmap1.Handle:=BmpHnd;
21.   Bitmap1.MaskHandle:=MaskHnd;
22.   // clean up
23.   Reader.Free;
24.   IntfImg1.Free;
25.   // do something with the Bitmap1
26.   // ...
27. end;
28.  

Let me know if there are any other changes needed.