Ausrichtung Bitmap bei FillRect

[Mario]

Hallo,

ich fülle einen rechteckigen Bereich in einem Canvas mit einem Bitmap-Brush 8x8 Pixel. Nun wird dieser scheinbar immer am Canvas-Punkt (0,0) ausgerichtet, nicht aber an der Ecke vom Rechteck.

Weiß jemand, wie ich das beieinflussen kann?

[Luckie]

Na dann gib in der TRect-Struktur doch an, wo es hin soll.

[Mario]

Zitat:

Zitat von Luckie

Na dann gib in der TRect-Struktur doch an, wo es hin soll.

Habe ich gemacht, doch dann sah es leider so aus:
http://www.delphipraxis.net/attached_files/demo.gif

Die zwei gefüllten Rechtecke sind auf dem gleichen Canvas plaziert und die Füllung wird nur am Canvas ausgerichtet. Ich hatte vergessen zu sagen, das der Effekt natürlich erst bei Kachelung stört...

[Luckie]

Zeig mal Code. Oder häng ein kleines Demo-Projekt an.

[Mario]

Klar!

Im Beispiel anbei werden zwei, um zwei Pixel vertikal verschoben, Rechtecke gezeichnet. Deutlich zu sehen ist, dass die Strucktur trotzdem wie eine große Fläche angelegt ist. Ich möchte aber gern den Startpunkt der Kachelung definieren, damit ich auch so versetzte Rechtecke jederzeit identisch füllen kann.

[negaH]

Code:

SetBrushOrgEx(

    HDC  hdc,   // handle of device context 
    int  nXOrg,   // x-coordinate of new origin 
    int  nYOrg,   // y-coordinate of new origin 
    LPPOINT  lppt    // points to previous brush origin  
   );

Gruß Hagen

[negaH]

Ums dir einfacher zu machen:

Delphi-Quellcode:

function SetBrushOrg(Canvas: TCanvas; X,Y: Integer): TPoint; overload;
begin
  if not SetBrushOrgEx(Canvas.Handle, X, Y, @Result) then Result := Point(0, 0);
end;

function SetBrushOrg(Canvas: TCanvas; P: TPoint): TPoint; overload;
begin
  if not SetBrushOrgEx(Canvas.Handle, P.X, P.Y, @Result) then Result := Point(0, 0);
end;

// Anwendung mit

procedure PaintRectangle(Canvas: TCanvas; X,Y,W,H: Integer);
var
  SaveOrg: TPoint;
begin
  SaveOrg := SetBrushOrg(Canvas, X {mod 8}, Y {mod 8});
  try
    Canvas.Rectangle(X, Y, W, H);
  finally  
    SetBrushOrg(Canvas, SaveOrg);
  end;
end;

Das "mod 8" kann eventuell nötig sein und sollte genauso groß wie die Bitmap vom Brush sein.

Gruß Hagen

[Mario]

Super, funktioniert :dancer: