Habe jetzt das ganze mal in den Messages wmsizing und wmmoving getestet.
Delphi-Quellcode:
procedure TBaseCustomControl.WMMoving(var Message: TWMMove);
begin
if Grid then
RastControl;
end;
procedure TBaseCustomControl.WMSizing(var Message: TWMSize);
begin
if Grid then
RastControl;
end;
procedure TBaseCustomControl.RastControl;
var ALeft, ATop, AHeight, AWidth : Integer;
begin
if not Grid then
Exit;
ALeft := (Left Div FGridWidth) * FGridWidth;
ATop := (Top Div FGridWidth) * FGridWidth;
AWidth := (Width Div FGridWidth) * FGridWidth;
AHeight := (Height Div FGridWidth) * FGridWidth;
SetBounds(ALeft, ATop, AWidth, AHeight);
end;
Gute Nachricht: Er rastet jetzt auch während des Movens.
Schlechte Nachricht: Das Control "zappelt" am Mauszeiger. Dabei habe ich den Eindruck, dass das Control beim bewegen auf die neue "krumme" Koordinate verschoben und gezeichnet und dann wmmoving ausgeführt wird. Dort wird dann korrigiert und wieder neu an den Gitterkoordinaten gezeichnet (SetBounds siehe Code).
Ein Problem gelöst, nächste da.
Somit müsste vor dem Zeichnen korrigiert werden. Aber wie?
Gruß oki