Kalenderübersicht als jpg

[Harry Stahl]

Unter Lazarus würde ich das so (mit PaintTo) machen (geht bei Bedarf unter Delphi VCL auch genau so):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bm: TBitmap;
begin
  bm := tbitmap.create;
  try
    bm.setsize (calendar1.width, calendar1.height);

    calendar1.PaintTo(bm.canvas,0,0);
    //Image1.picture.bitmap.assign (bm); //falls Ergebnis angesehen werden soll    
  finally
    bm.free;
  end;
end;

Unter Delphi, FMX so:

Delphi-Quellcode:

procedure TForm44.Button1Click(Sender: TObject);
var
  bm: TBitmap;
begin
  bm := Tbitmap.create;
  try
    bm := calendar1.MakeScreenshot;
    //... weitere Nutzung von bm
    //image1.Bitmap.Assign(bm); falls Ergebnis betrachtet werden soll
  finally
    bm.free;
  end;
end;