Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Mausrad und Fehler Bei Bereichsprüfung (https://www.delphipraxis.net/200056-mausrad-und-fehler-bei-bereichspruefung.html)

zeina 15. Mär 2019 09:49
Mausrad und Fehler Bei Bereichsprüfung
 
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 15. Mär 2019 10:02
AW: Mausrad und Fehler Bei Bereichsprüfung
 
Zitat:
Zitat von zeina (Beitrag 1427799)
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 15. Mär 2019 10:25
AW: Mausrad und Fehler Bei Bereichsprüfung
 
Zitat:
Zitat von Klaus01 (Beitrag 1427803)
Zitat:
Zitat von zeina (Beitrag 1427799)
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 15. Mär 2019 10:34
AW: Mausrad und Fehler Bei Bereichsprüfung
 
.. 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 15. Mär 2019 10:39
AW: Mausrad und Fehler Bei Bereichsprüfung
 
Zitat:
Zitat von Klaus01 (Beitrag 1427814)
.. 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 15. Mär 2019 10:44
AW: Mausrad und Fehler Bei Bereichsprüfung
 
.. in dem cODE sehe ich diesbezüglich keinen Fehler.
Wird an "WebOSMaps1.MapOptions.ZoomMap" noch an anderen Stellen
"herumgeschraubt"?

Grüße
Klaus

zeina 15. Mär 2019 11:00
AW: Mausrad und Fehler Bei Bereichsprüfung
 
Zitat:
Zitat von Klaus01 (Beitrag 1427819)
.. 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;
:thumb::thumb::thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:44 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz