Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Mausrad und Fehler Bei Bereichsprüfung

  Alt 15. Mär 2019, 11:02
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;
Vielleicht klappt es so?

Delphi-Quellcode:
procedure TOSMap.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

begin
if not WebOSMaps1.Focused then
  begin
     if (WheelDelta=120) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1; // zommmap von 0..18
     if (WheelDelta =-120) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
  end;
end;

Grüße
Klaus
Klaus

Geändert von Klaus01 (15. Mär 2019 um 11:08 Uhr)
  Mit Zitat antworten Zitat