Guten Tag,
ich habe in meinem einen Fehler bei Bereichsprüfung.
kann jemanden mir dabei helfen??
Danke im Voraus.
Delphi-Quellcode:
procedure TOSMap.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if WebOSMaps1.Focused = true then exit; // wenn im Focus, dann nichts tun, da dann sowieso auf das Mausrad reagiert wird
if (WheelDelta=120) then
WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1; // zommmap von 0..18
if (WheelDelta =-120)then
WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
end;