Mausrad und Fehler Bei Bereichsprüfung

[zeina]

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;

[Klaus01]

Zitat von zeina:

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

[zeina]

Zitat von Klaus01:

Zitat von zeina:

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

vielen Dank für die Hilfe.Es ist geklappt.
Aber jetzt tritt ein neues Problem auf:
es macht zoommap nicht +1 oder -1!! für jeder Mausrad geht es(2 --> 4--> 8-->12 -->16) nicht (1 --> 2--> 3-->4......)????

[Klaus01]

.. und 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 > 0) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1; // zommmap von 0..18
     if (WheelDelta < 0) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
  end;
end;

Grüße
Klaus

[zeina]

Zitat von Klaus01:

.. und 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 > 0) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1; // zommmap von 0..18
     if (WheelDelta < 0) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
  end;
end;

Grüße
Klaus

ja ,das ist funktioniert..Danke.
aber zoommap geht nicht in Ordnung.
sie folge nicht (1..2..3..4..5.......18)sonder(2..4..6..8)????

[Klaus01]

.. in dem cODE sehe ich diesbezüglich keinen Fehler.
Wird an "WebOSMaps1.MapOptions.ZoomMap" noch an anderen Stellen
"herumgeschraubt"?

Grüße
Klaus

[zeina]

Zitat von Klaus01:

.. in dem cODE sehe ich diesbezüglich keinen Fehler.
Wird an "WebOSMaps1.MapOptions.ZoomMap" noch an anderen Stellen
"herumgeschraubt"?

Grüße
Klaus

Danke...jetzt ist es geklappt.

Delphi-Quellcode:

procedure TOSMap.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if not WebOSMaps1.Focused then
  begin
    Handled := True;
    if (WheelDelta = 120) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
      WebOSMaps1.MapOptions.ZoomMap := (WebOSMaps1.MapOptions.ZoomMap + 1);
    if (WheelDelta = -120) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
      WebOSMaps1.MapOptions.ZoomMap := (WebOSMaps1.MapOptions.ZoomMap - 1);
  end;
end;