Copy stringgrid canvas in image

[xinyiman]

For my project i have necessity to copy my string grid (with image and rectangol color) into image. But into Mac Os X not work return all black image. Where is the problem?

Thank you

PS: sGanttChart1 is my TStringGrid

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

1. procedure TForm1.Button3Click(Sender: TObject);
2. var
3.    Bitmap : TBitmap;
4.    DC     : HDC ;
5. begin
6.  
7.      Bitmap := TBitmap.Create;
8.      DC := GetDC(Self.sGanttChart1.Handle);
9.      Bitmap.LoadFromDevice(DC);
10.      Bitmap.SaveToFile('/tmp/screen.png');
11.      ReleaseDC(Self.sGanttChart1.Handle, DC) ;
12.      Bitmap.Free;
13.      ShowMessage('ok');
14. end;
15.  
16. procedure TForm1.Button4Click(Sender: TObject);
17. var
18.   h: THandle;
19.   bmp: TBitmap;
20. begin
21.   h := sGanttChart1.Handle;
22.   bmp := TBitmap.Create;
23.   bmp.Width := sGanttChart1.Width;
24.   bmp.Height := sGanttChart1.Height;
25.   Image1.Width := sGanttChart1.Width;
26.   Image1.Height := sGanttChart1.Height;
27.   BitBlt(bmp.Canvas.Handle, 0, 0, sGanttChart1.Width, sGanttChart1.Height, sGanttChart1.Canvas.handle, 0, 0, SRCCOPY);
28.   Image1.Picture.Bitmap.Assign(bmp);
29.   //Image1.Picture.Bitmap.SaveToFile('c:\sg1.bmp');
30.   bmp.Free;
31.  
32. end;        
33.  

[RayoGlauco]

This code works for me (tested on Windows):

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   bmp: Graphics.TBitmap;
4. begin
5.   bmp := Graphics.TBitmap.Create;
6.   bmp.SetSize(StringGrid1.ClientWidth, StringGrid1.ClientHeight);
7.   bmp.Canvas.Brush.Color := clWhite;
8.   bmp.Canvas.FillRect(0, 0, bmp.Width, bmp.Height);
9.   StringGrid1.PaintTo(bmp.Canvas, 0, 0);
10.   bmp.SaveToFile('test.bmp');
11.   FreeAndNil(bmp);
12. end;  

[xinyiman]

This code works for me (tested on Windows):

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   bmp: Graphics.TBitmap;
4. begin
5.   bmp := Graphics.TBitmap.Create;
6.   bmp.SetSize(StringGrid1.ClientWidth, StringGrid1.ClientHeight);
7.   bmp.Canvas.Brush.Color := clWhite;
8.   bmp.Canvas.FillRect(0, 0, bmp.Width, bmp.Height);
9.   StringGrid1.PaintTo(bmp.Canvas, 0, 0);
10.   bmp.SaveToFile('test.bmp');
11.   FreeAndNil(bmp);
12. end;  

Thank you, but not work on Mac. Return all white image

[Josh]

No tested on Mac..

Maybe?

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

1. var bmp:tbitmap;
2. begin
3.   bmp:=TBitmap.Create;
4.   bmp.SetSize(stringgrid1.ClientWidth,stringgrid1.ClientHeight);
5.   bmp.PixelFormat:= pf24bit;
6.   bmp.Canvas.Brush.Color := clWhite;
7.   bmp.clear;
8.   StringGrid1.PaintTo(bmp.Canvas, 0, 0);
9.   bmp.SaveToFile('test.bmp');
10.   bmp.free;
11. end;  
12.  

[xinyiman]

No tested on Mac..

Maybe?

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

1. var bmp:tbitmap;
2. begin
3.   bmp:=TBitmap.Create;
4.   bmp.SetSize(stringgrid1.ClientWidth,stringgrid1.ClientHeight);
5.   bmp.PixelFormat:= pf24bit;
6.   bmp.Canvas.Brush.Color := clWhite;
7.   bmp.clear;
8.   StringGrid1.PaintTo(bmp.Canvas, 0, 0);
9.   bmp.SaveToFile('test.bmp');
10.   bmp.free;
11. end;  
12.  

Not work, return all black image 

[Josh]

What about changing the paintto to :=

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

1. //StringGrid1.PaintTo(bmp.Canvas, 0, 0); // Removed for testing purposes..
2. bmp.Canvas.CopyRect(rect(0, 0, bmp.Width, bmp.Height),stringgrid1.canvas,rect(0, 0, stringgrid1.ClientWidth, stringgrid1.ClientHeight));
3.  

[xinyiman]

Not work, return all black image

[Phil]

Not work, return all black image

Test with Cocoa widgetset if you're not already doing that. If bug there too, file bug report. If no bug, use Cocoa widgetset.

[MISV]

Cocoa is the future - carbon apps will soon no run on Mac. As Phil said, if the bug is there on Cocoa as well report bug!

Hint: I use fpcupdeluxe to get newest trunk version of Cocoa (easiest way to get started I think)

[xinyiman]

Cocoa is the future - carbon apps will soon no run on Mac. As Phil said, if the bug is there on Cocoa as well report bug!

Hint: I use fpcupdeluxe to get newest trunk version of Cocoa (easiest way to get started I think)

Problem with my actual version of cocoa lazarus 1.8.4
I test install cocoa lazarus trunk yesterday but not function. When i start ide return arithmetic overflow.

[Phil]

Cocoa is the future - carbon apps will soon no run on Mac. As Phil said, if the bug is there on Cocoa as well report bug!

Hint: I use fpcupdeluxe to get newest trunk version of Cocoa (easiest way to get started I think)

Problem with my actual version of cocoa lazarus 1.8.4
I test install cocoa lazarus trunk yesterday but not function. When i start ide return arithmetic overflow.

You can compile your app with Cocoa using lazbuild regardless of whether the Cocoa IDE is available.

https://macpgmr.github.io/MacXPlatform/UsingCocoaFromTrunk.html

[Josh]

Hi

If you click the OK Button, and the IDE stays there; try rebuilding the IDE from the Tools Menu, this has sometimes fixed an odd Startup with Laz-FPC-Trunk->for Cocoa.

Please always check that you are using the very latest Trunk version when testing Laz(1.9.0) Cocoa, as it is being rapidly developed multi comit changes per day in some cases; and it is probable that a fix/addition may have a knock on effect, if so report to forum to check if others can confirm and then post on bugtracker, this is the best route to getting Lazarus-Cocoa working...

[xinyiman]

Hi

If you click the OK Button, and the IDE stays there; try rebuilding the IDE from the Tools Menu, this has sometimes fixed an odd Startup with Laz-FPC-Trunk->for Cocoa.

Please always check that you are using the very latest Trunk version when testing Laz(1.9.0) Cocoa, as it is being rapidly developed multi comit changes per day in some cases; and it is probable that a fix/addition may have a knock on effect, if so report to forum to check if others can confirm and then post on bugtracker, this is the best route to getting Lazarus-Cocoa working...

Yes, i test of rebuild with normal ide but not function. Return error with ok and abort button. I reinstall all next week with hope

[MISV]

Hi

If you click the OK Button, and the IDE stays there; try rebuilding the IDE from the Tools Menu, this has sometimes fixed an odd Startup with Laz-FPC-Trunk->for Cocoa.

Please always check that you are using the very latest Trunk version when testing Laz(1.9.0) Cocoa, as it is being rapidly developed multi comit changes per day in some cases; and it is probable that a fix/addition may have a knock on effect, if so report to forum to check if others can confirm and then post on bugtracker, this is the best route to getting Lazarus-Cocoa working...

Sounds like OP has some problem as I have I have reported here:
https://bugs.freepascal.org/view.php?id=33969

(startup errors + build ide not possible)