Also zum Thema Texturen werden vergrößert, die OnClick-Events aber nicht richtig berechnet geb ich euch hier mal eine Demo.
Einfach mal das Spiel starten und dann das Fenster resizen. Dann versucht mal die Buttons anzuklicken...
Der Code zum Überprüfen ob ein Button gedrückt wurde ist der folgenden:
Delphi-Quellcode:
function TGameButton.CheckOnClick(aX, aY: Integer; Up: Boolean): Boolean;
begin
Result := false;
if Enabled then
begin
if ((aX < X + Width) and (aX > X)) and
((aY > Y) and (aY < Y + Height)) then
begin
Result := true;
if Up then
OnUp
else
OnDown;
end
else
begin
ButtonStat := bsUp;
ChangeTex(true);
end;
end;
end;