die 0,0 koordinate in der PB verändert sich ständig

[danielkussin]

hi...

wir haben ein kleines problem mit unserer prozedur.
unsere paintbox ist 300x300 gross. und in dieser sollen wir verschiedene geometrische figuren erstellen können. diese sollen nur dann dargestellt werden wenn diese auch ganz in die box passen.
in der unten eingefügten prozedur kann man sehen wie wir die position in der paintbox berechnen.
die x-position -242 und die y-position -153 ist die 0,0 koordinate in der paintbox.
und genau da steckt das problem. die werte -242 und -153 passen machmal nicht mehr.
man kann das programm einige male starten und immer stimmen die koordinaten. doch dann passiert es immer wieder das man die werte veränder muss damit die koordinaten stimmen.... dies passiert auch, wenn man am quellcode nichts weiter verändert hat.



procedure THURecords.PaintBoxMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var
a, b : integer;
begin
resetPaintBox;
a := mouse.CursorPos.x-242;
b := mouse.CursorPos.y-153;
HURecords.lbXpos.Caption := IntToStr(a);
HURecords.lbYpos.Caption := IntToStr(b);
if RandChecked then
Zeichnen;
end;



vielen dank schon mal...