Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#2

Re: Drucken: "geräteunabhängige Bitmaps"

  Alt 20. Aug 2004, 03:02
Aus dem Kopf (kann in Detaills falsch sein)
Delphi-Quellcode:
procedure MachEsAuf(DenCanvas :TCanvas);
var TmpBmp : TBitmap;
begin
  TmpBmp := TBitmap.Create;
  try
    TmpBmp.width := 100;
    TmpBmp.height := 100;
    TmpBmp.pen.color := clBlack;
    TmpBmp.pen.style := psSolid;
    TmpBmp.LineTo(100,100);
    BitBlt(DenCanvas.Handle,0,0,100,100,TmpBmp.Handle,0,0,0);
  finally
    TmpBmp.free;
  end;
end;
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat