Ausrichtung Bitmap bei FillRect

[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