Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Riesige Bitmaps erzeugen

  Alt 4. Sep 2015, 17:03
Poste es mal lieber in .Net - Plain Delphi hat auch hiermit keine Probleme:

Delphi-Quellcode:
var
  LBitmap : TBitmap;
  LRect : TRect;
begin
  LRect := Rect(0,0,20000,20000);

  LBitmap := TBitmap.Create;
  LBitmap.PixelFormat := pf32bit;
  LBitmap.Width := LRect.Width;
  LBitmap.Height := LRect.Height;
  LBitmap.Canvas.Brush.Color := clGreen;
  LBitmap.Canvas.FillRect(LRect);
  LBitmap.SaveToFile('c:\temp\monsterbitmap.bmp');
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat