canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwicklung

[himitsu]

Noch eine kleine Anmerkung zu Stanlay's Post.

Zitat von Stanlay:

Funzt natürlich nur mit einfarbigem Hintergrund

Hast du schon ein mal ein bissel mit PenMode rumgespielt?
OH > TPenMode

Einfach mal in das OnPaint-Ereignis eine leeren Formulars setzen.

Delphi-Quellcode:

Procedure TForm1.FormPaint(Sender: TObject);
  Procedure Z(P: Integer; PM: TPenMode);
    Begin
      Canvas.Pen.Mode := PM;
      Canvas.Rectangle(20, P, 100, P + 7);
      Canvas.Rectangle(120, P, 200, P + 7);
      Canvas.Rectangle(120, P, 200, P + 7);
    End;

  Var X: Integer;

  Begin
    Canvas.Pen.Mode := pmCopy;
    Canvas.Brush.Color := clBtnFace;
    Canvas.FillRect(Rect(0, 0, 220, 202));

    Canvas.Brush.Color := clGreen;
    For X := 1 to 13 do
      Canvas.FillRect(Rect(X * 15, 25, X * 15 + 8, 192));

    Canvas.Brush.Color := clBlue;
    Canvas.Pen.Color := clRed;
    Canvas.Rectangle(10, 10, 210, 17);
    Z(30, pmBlack);
    Z(40, pmWhite);
    Z(50, pmNop);
    Z(60, pmNot);          {x}
    Z(70, pmCopy);         {Standard}
    Z(80, pmNotCopy);
    Z(90, pmMergePenNot);
    Z(100, pmMaskPenNot);
    Z(110, pmMergeNotPen);
    Z(120, pmMaskNotPen);
    Z(130, pmMerge);
    Z(140, pmNotMerge);
    Z(150, pmMask);
    Z(160, pmNotMask);
    Z(170, pmXor);         {x}
    Z(180, pmNotXor);      {x}
  End;