Riesige Bitmaps erzeugen

Thema durchsuchen

Ansicht

Themen-Optionen

Riesige Bitmaps erzeugen

Ein Thema von Neutral General · begonnen am 4. Sep 2015 · letzter Beitrag vom 5. Sep 2015

Vorheriger Beitrag

Nächster Beitrag

Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge

Delphi 7 Enterprise

AW: Riesige Bitmaps erzeugen

4. Sep 2015, 16:03

Poste es mal lieber in .Net - Plain Delphi hat auch hiermit keine Probleme:

zusammenfalten · markieren

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');