Thema: Delphi Eigenen Brush Style

Einzelnen Beitrag anzeigen

daschaos

Registriert seit: 23. Mai 2007
117 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Eigenen Brush Style

  Alt 5. Jul 2007, 16:12
Ich kapier das noch nich so ganz, also hier mal mein Codeausschnitt:

Delphi-Quellcode:
if (Background = true) then
begin
  Bmp := TBitmap.Create;
  Bmp.Width := 4;
  Bmp.Height := 4;
  Bmp.Canvas.Pen.Width := 2;
  Bmp.Canvas.Pen.Color := clBlack;
  Bmp.Transparent := true;
  Bmp.TransparentColor := clWhite;
  Bmp.TransparentMode := tmFixed;
  Bmp.Canvas.MoveTo(Round(Bmp.Width/2), Round(Bmp.Height/2));
  Bmp.Canvas.LineTo(Round(Bmp.Width/2), Round(Bmp.Height/2));
  Canvas.Brush.Bitmap := Bmp;
end
else
  Canvas.Brush.Style := bsSolid;

Rect.TopLeft := P;
Rect.BottomRight := Q;
Canvas.Rectangle(Rect);
Ich brauche doch mein Rechteck als Begrenzung, ich kann das doch nich irgendwie durch Canvas.Draw ersetzen...Mag sein, dass ich mich momentan extra doof anstelle, aber ...
  Mit Zitat antworten Zitat