TCanvas til BMP

Hvad med at have panelet på en anden form, som aldrig bliver vist for brugeren?

Prøv dette Jens:

procedure CustomControlToBitmap(const aControl : TWinControl; FileName : TFileName);
var
  MyCanvas: TControlCanvas;
  MyBitmap : TBitmap;
  MyRect: TRect;
begin
  MyCanvas := TControlCanvas.Create;
  MyBitmap := TBitmap.Create;
  MyBitmap.Width := TWinControl(AControl).Width;
  MyBitmap.Height := TWinControl(AControl).Height;
  with MyCanvas do
  try
    //Assigner en Canvas til Panelen
    Control := TControl(AControl);
    //Tegner på Panelen's Canvas
    MyCanvas.TextOut(10,10,'Hej BorrisHolt');
    //Kopiér Canvas til Bitmap
    with TWinControl(AControl) do
    MyCanvas.CopyRect(ClientRect,MyBitmap.Canvas,ClientRect);
    //Gemmer
    MyBitmap.SaveToFile(FileName);
  finally
    Free;
    MyBitmap.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CustomControlToBitmap(Panel1,'C:\HestTest.bmp');
end;

Held og Lykke
ZeroHero

Nu ved jeg ikke nøjagtig din idé. Men det jeg har gjort er at overskrive din Panel's canvas (som af en eller anden grund ikke er sat Public i sin klasse) med en ny Canvas som du har 100% kontrol over. Ideén er så at Skrive/Tegne alt det som du har lyst til på den nye Canvas! Du kan selvfølgelig gøre MyCanvas til en global variant!

PS: MyRect bliver ikke brugt!!!!

zerohero -> Din ide virker ikke hos mig :-(

Jens -> Min ide med at bruge en anden form virker heller ikke hos mig :-(
Måske virker zeroheros forslag hos dig, evt. med lidt flere heste ;-)

(Zeroheros funktion giver et hvidt bitmap hos mig...)

He he selvfølgeligt det er jo en helt "ren" canvas!

Så skal der jo bare tegnes på den!!!!

hvis noget af det andet ikke virker, prøvede jeg lige med denne metode. Den ser altså ud til at virke:


procedure TForm1.Button1Click(Sender: TObject);
var
  Rect              : TRect;
  ScreenDC          : HDC;
  fBitmap, fbitmap2 : TBitmap;
begin
  ScreenDC := GetWindowDC(Handle);

  fBitmap := TBitmap.Create;
  fbitmap2 := TBitmap.Create;

  GetWindowRect(Handle, Rect);
  try
    fBitmap.Width := Rect.Right - Rect.Left;
    fBitmap.Height := Rect.Bottom - Rect.Top;
    BitBlt(fBitmap.Canvas.Handle, 0, 0, fBitmap.Width, fBitmap.Height, ScreenDC, 0, 0, SRCCOPY);
    ReleaseDC(Handle, ScreenDC);

    // Ok nu har vi screenshot af hele formen, så skal vi jo bare have fundet
    // det der ligger på panel
    // pga af et eller anden kan man ikke bruge clientrect, eller BoundsRect
    // ved at lave recten selv, kan man nok også få den anden kode til at virke
    // som capture control

    fbitmap2.Width := panel1.Width;
    fbitmap2.Height := panel1.Height;
    fbitmap2.Canvas.CopyRect(Classes.rect(0, 0, panel1.width, panel1.height), fbitmap.Canvas, Classes.Rect(panel1.Left, panel1.Top, panel1.Width + panel1.Left, panel1.Height + panel1.Top));
    fbitmap2.SaveToFile('.\Test.bmp');
  finally
    ReleaseDC(Handle, ScreenDC);
    fBitmap.Free;
    fbitmap2.Free;
  end;
end;


Men tror sku den anden function CustomControlToBitmap også ville virke, hvis man selv lavede det rect.

dkn>> BitBlt har desværre også den ulempe at den tager en screen-shot (det man ser på skærmen) og ikke bare kopiere pixels direkte fra canvas'en!

Såvidt jeg kan se er Jens' ønske at kunne kovertere en controls (med Visible := false; //!!!) canvas til bitmap... eller, som jeg har forstået, at lave et "screenshot" af noget der ikke vises på skærmen...

Er der nogen af jer der tolker Jens' spørgsmål anderledes end jeg gør?

ok så havde jeg ikke lige læst spm ordenligt

Problemet er bare, at du ikke kan lave en screen-shot af noget som ikke eksitere på skærmen (hvilket egentligt også er logisk nok) uden at lave en kreativ løsning (grifisk simulering). Det vil sige, at hvis det er Panel'ens Canvas du vil bruge som udgangs punkt (Parent Canvas), skal man vel bare assigne en canvas til din panel (som jeg har vist) og kopiér de andre control's canvas (i de rigtige positioner selvfølig) til panelens canvas. Men Jens har ikke rigtigt præciseret i hvilken sammenhæng koden skal bruges. Hvis han laver er mere detaljeret beskrivelse af sit projekt vil det også være nemmere at hjælpe ham!

ZeroHero

ZeroHero -> Det er derfor jeg skrev "screenshot" og ikke screenshot :-)

OKI Jeg er tilbage !!

fbitmap2.Canvas.CopyRect virker ikke den baserer sig på BitBlt !

Jeg tegner et diagram vha. nogle kontroller. Det skal blive til en TBitmap, fordi jeg skal bruge det til en raport.

Disse kontroller bliver sat på en TPanel, fordi jeg så har et vel defineret område jeg kan konvetere til en Bitmap.

JEg vil helst være fri for at skulle tegne det i hånden.

Jens B

PaintTo var løsningen.

Jeg har hacket lidt om. Men det her virker :

function WinControlToBitmap(const aControl: TWinControl): TBitmap;
begin
  Result := TBitmap.Create;
  with Result do
  try
    Width := aControl.Width;
    Height := aControl.Height;
    PixelFormat := pfDevice;
    aControl.PaintTo(Canvas.Handle, 0, 0);
  except
    Free;
  end;
end;


Sæt et TPanel på en form og prøv så det her :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.Left := -400;
  Image1.Picture.Bitmap.Assign(WinControlToBitmap(Panel1));
end;

Det er godt du fandt en løsning :-)