Gem Panel indh. som bitmap

Du kunne eventuelt lave et PrintScreen af skærmen (se ScreenCapture på www.borrisholt.com), men jeg tror ikke det kan lade sig gøre med OpenGL... Så skal det i hvert fald være på en speciel måde...

prøv det her

var
  B : TBitmap;
begin
  B := TBitmap.Create;
  try
    B.Width := Panel1.Width;
    B.Height := Panel1.Height;

    Panel1.PaintTo(B.Canvas.Handle, 0, 0);
    B.SaveToFile("SomeName");
  finally
    B.Free;
  end;
end;

nico22 >> Din code fanger fint Panel1, men desværre kommer OpenGL scenen ikke med. Men ved at mixe Borrisholts kode med din, kom der hul (kun hul - men natten er lang) på bylden. Skal du have point med Hermandsen, tryk ok

Kan du ikke gå ind i den metoder der tegner på Panelet, og så tegne på et bitmap i stedet?

>>nico22
Det er jo en masse OpenGL stas... Er ikker 100% sikker på hvordan det fungerer, men så vidt jeg ved, så er det ikke så lige til... :)

FYI:

procedure SavePanelGLSceneToBitmap;
var
  Bitmap      :  TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width  := FormMain.PanelGLScene.Width;
    Bitmap.Height := FormMain.PanelGLScene.Height;
    Bitmap.PixelFormat := pf24bit;  // avoid palettes

    // Copy the Panel area from the Form into a separate Bitmap
    Bitmap.Canvas.CopyRect(Rect(0,0, Bitmap.Width,Bitmap.Height),
                    FormMain.Canvas,
                    Rect(FormMain.PanelGLScene.Left, FormMain.PanelGLScene.Top,
                    FormMain.PanelGLScene.Left + FormMain.PanelGLScene.Width-1,
                    FormMain.PanelGLScene.Top  + FormMain.PanelGLScene.Height-1) );


    Bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + XPROGRAM + '.bmp');
  finally
    Bitmap.Free
  end;
end;