Bitmap into Paintbox

[Handoko]

Thank you for answer! I'll try what you linked.
--------
There's no TBitmap.Scanline... is there in Lazarus?
--------

I changed component to TImage.

I need to draw bitmap on TImage, but It doesn't show anything.(On win7PC, fine)

If you decided to use Scanline, that's good. It's really very fast compare to pixel by pixel accessing. But I should tell you, you may need to use pointer to direct access the data and you need to understand what is pixel format.

I saw your code, but I don't think that is the correct way to show text on TImage. You can download the code I provide.

On the screenshot, you can the code runs correctly on both Ubuntu Linux (left image) and Windows (right image). But there is a small bug: if you start the program and press the button to draw the text, the result is not what we want. So the trick is, you need to clear the background before use TextOut command.

[BubikolRamios]

NOTE: pcfDelphiBitmap is not recognized as something valid

Currently (v 3.2) this works on windows

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

1. // as suggested here: https://wiki.freepascal.org/Clipboard
2. uses
3.   Clipbrd, LCLIntf, LCLType, ...;
4.  

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

1. var
2.   Bitmap: TBitmap;
3. begin
4.    Bitmap:=tbitmap.Create;
5.    Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfBitmap));
6.  
7.    with PaintBox1 do begin;
8.     //Width := Bitmap.Width;
9.     //height := Bitmap.Height;
10.     Canvas.Clear;
11.     //Width := Bitmap.Width;
12.     //height := Bitmap.Height;
13.     Paintbox1.Canvas.Draw(0,0,Bitmap)
14.  
15.   end;
16.   Bitmap.Free;
17. end;  
18.