| |
|
|
- Página 1 - |
|
| Das Trackmenu - si yo mich bastante erinnere - war el Procedimiento siempre sólo brauchbar solange uno en el hwnd arbeitet, simplemente wegen el Positionsangabe.
Mein Vorschlag, si Trackmenu no Parámetro bekommt, entonces el Trackmenu a Mausposition redactar.
Mittlerweile Tuve me esta una Proc geschrieben, aber mich sí trotzdem Jahrelang gequält (P²4.5=>P7) y así se otro no ebenso quälen... KompilierenMarcaSeparación
Proc Trackmenu_bymousepos
Declare Gmp#,Dx&,Dy&
Dim Gmp#,8
External("user32","ClientToScreen",%Hwnd,Gmp#)
Dx&=Long(Gmp#,0)
Dy&=Long(Gmp#,4)
External("user32","GetCursorPos",Gmp#)
Trackmenu (Long(Gmp#,0)-Dx&),(Long(Gmp#,4)-Dy&)
Dispose Gmp#
oc
|
|
|
| |
|
|
| |
|
- Página 5 - |
|
|
| @Jörg
freedll lvdll&,icon_dll& Disponer icons#,itemtexts#,nurso#,bereich#,maus_bereich# USERMESSAGES 0 el kannste Usted ersparen DELETEOBJECT font0%,font1%,font2%,font3%
Das wäre genau el, qué me vorschwebt. Würde una Haufen Code-Zeilen ersparen
USERMESSAGES 0 el kannste Usted ersparen
A Vorsicht bau Yo el siempre una. Hab como ya böse Erfahrungen gemacht ! |
|
|
| |
|
|
|
Jörg Sellmeyer | Frank Abbing
Frank AbbingUSERMESSAGES 0 el kannste Usted ersparen Seguro? Tuve beim Programmende veces fiese Se bloquea, a Yo el einbaute. Seit el es lo en cada meiner Codes.
Schau a, uno lernt nie de. Roland, qué sagst Usted porque dazu? |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.10.2007 ▲ |
|
|
|
|
RGH | Jörg Sellmeyer
Como sieht lo porque con otro Wünschen hier de el Foro de: Tray Icons: [web]https://XProfan.com/thread.core?t=5750[/web]
El hay de el nächsten Subscriptionsversion!
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 25.10.2007 ▲ |
|
|
|
|
Jörg Sellmeyer | |
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 25.10.2007 ▲ |
|
|
|
|
| Schliesse mich el Meinung de Jörg a: |
|
|
| |
|
|
|
RGH | Jörg Sellmeyer
Stringlänge de getText$: [web]https://XProfan.com/thread.core?t=4631[/web] Saludo Jörg
... es de el nächsten (heute todavía a verschickenden) Subscriptionsversion auch no mehr begrenzt.
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 25.10.2007 ▲ |
|
|
|
|
Jörg Sellmeyer | |
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 26.10.2007 ▲ |
|
|
|
|
Michael Wodrich | Integer se en el 32-Bit-Versionen como oficialmente de -32xxx a +32xxx reichend bezeichnet. Erst en v8.0 es, el ellos auch 32-Bit groß son (-2 Mrd a +2 Mrd).
Yo müßte hay algo genauer wissen: Ab wann puede Integer 32-Bit-Daten aufnehmen? (insbesondere para Handles wichtig)
Yo habe en neuen Syntaxbeschreibungen folgendes angenommen: Integer: Farbwerte, Handles, MenuIDs, ResourcenIDs
LongInt: Adressen, Speichergrößen
Float: Festplattengrößen
obwohl (laut Hilfedatei): Let ! = DiskFree($) Let ! = DiskSize($) Let ! = FileSize($) Let & = FTP(GetFileSize,$) Let & = GetFileSize(#1)
Hier debería also en 2 Kandidaten nachgebessert voluntad (evtl. sólo Handbuch?).
Schöne Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 26.10.2007 ▲ |
|
|
|
|
|
Integer se en el 32-Bit-Versionen como oficialmente de -32xxx a +32xxx reichend bezeichnet.
Aha! Yo wusste por qué Yo para Handles nie el de Roland benutzte % nehme pero el & - como Roland mich neulich darauf hinwies el % ebenso ausreiche pensamiento Todavía lo me simplemente sólo falso gemerkt a haben. Aber ahora weis Yo sólo otra vez Yo darauf kam.. |
|
|
| |
|
|
|
RGH | Michael Wodrich
Float: Festplattengrößen
obwohl (laut Hilfedatei): Let ! = DiskFree($) Let ! = DiskSize($) Let ! = FileSize($) Let & = FTP(GetFileSize,$) Let & = GetFileSize(#1)
Hier debería also en 2 Kandidaten nachgebessert voluntad
Das ha así seine Richtigkeit: Como Longints (o. Integer en 32-Bit-Systemen) sólo a 2 GByte ir, liefern el entsprechenden APIs el Ergebnis en zwei LongInts. Como XProfan no QuadInts sabe, liefet lo el Ergebnis also en Floats zurück. (Como esta sí Doubles entsprechen, son ellos para gängige Festplattengrößen siempre todavía en 1 Byte genau.)
El verwandte FTP-Biblioteca liefert el Dateigröße sólo como Longint zurück. Das heißt hier es also en 2 GByte Dateigröße Schluß. Ähnliches gilt para el Función GetFileSize, con el el Größe uno geöffneten Expediente ermittelt voluntad kann. Hier liefert el verwandte Delphi-Función auch sólo LongInts.
Saludo Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 26.10.2007 ▲ |
|
|
|
|
Jac de Lad | Also, Yo wünsche me todavía, dass lo profanintern posible es, dass el Tooltip el Sprechblasenstil ha. Per Conjunto(Tooltipstyle,...) oder zusätzlichem Parámetro más o menos.
Und otra vez angefragt: Gibts ya qué en Richtung XPDL? |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.10.2007 ▲ |
|
|
|
|
Jörg Sellmeyer | Dafür Usted necesita sólo el Tooltip el Stil $0000040 verpassen. Yo glaube no, daß lo lohnt dafür una Profanfunktion a verbraten. Außerdem es de Registryeinstellungen abhängig, daß el Dinger entonces auch como BallonTip a sehen son. Saludo Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 29.10.2007 ▲ |
|
|
|