Canvas transparente linien zeichnen ?!

[turboPASCAL]

Ok, keine Linie. Aaber ein Rechteck, was eigentlich auch eine "dicke" Linie ist, das Prinzip ist das selbe.

Wenn es um Horizontale oder Vertikale Linie(n) geht ist es einfach.
Will man nun Diagonele Linie(n) wird es komplexer da man diede selbst berechnen muss.

Delphi-Quellcode:

//////////////////////////////////////////////////////////////////////////////
// Fillrect per Bitmap & Scanline  (unoptimiert)
// - mittelschnell
// - medium rechenrechenintensiv
// - "T" for Transparent & "S" for Scanlinie
// by turboPASCAL aka MatthiasG.
procedure FillrectTS(Bitmap: TBitmap; X1, Y1, X2, Y2: integer; Color: TColor32);
type
  TRGBA = Record
    R,G,B,A: Byte;
  end;
  TRGBQuadArray = array[WORD] of TRGBA;
  pRGBQuadArray = ^TRGBQuadArray;
var
  p: pRGBQuadArray;
  x,y: integer;
  h1,h2: single;
begin

  if (X2 > X1) and (Y2 > Y1) then
    with Bitmap.Canvas do
    begin
      if X1 < ClipRect.Left then X1 := ClipRect.Left;
      if Y1 < ClipRect.Top then Y1 := ClipRect.Top;
      if X2 > ClipRect.Right then X2 := ClipRect.Right;
      if Y2 > ClipRect.Bottom then Y2 := ClipRect.Bottom;
    end;

  if Bitmap.PixelFormat <> pf32Bit then
    Bitmap.PixelFormat := pf32Bit;

  h1:= GetAValue(Color) / 255;
  h2:= 1 - h1;

  for y := y1 to y2 - 1 do
  begin
    p := Bitmap.Scanline[y];
    for x := x1 to x2 - 1 do
    begin
      p[x].R := BYTE( round( h1 * p[x].R  + h2 * GetRValue(Color) ) );
      p[x].G := BYTE( round( h1 * p[x].G  + h2 * GetGValue(Color) ) );
      p[x].B := BYTE( round( h1 * p[x].B  + h2 * GetBValue(Color) ) );
    end;
  end;
end;