| |
|
|
- Page 1 - |
|
| the Trackmenu - if i remember rightly - was The procedure always only useable as long as one on the hwnd operates, simply because of the Positionsangabe.
my suggestion, if Trackmenu no Parameter get, then the Trackmenu on Mausposition create.
in the meantime I had me this a Proc written, but me Yes nevertheless Jahrelang gequält (P²4.5=>P7) and so itself others not likewise bait... CompileMarkSeparation
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
|
|
|
| |
|
|
| |
|
- Page 5 - |
|
|
| @Jörg
freedll lvdll&,icon_dll& Dispose icons#,itemtexts#,nurso#,area#,maus_bereich# USERMESSAGES 0 the kannste you save DELETEOBJECT font0%,font1%,font2%,font3%
the would very the, what me vorschwebt. would be a bunch code-Lines save
USERMESSAGES 0 the kannste you save
to caution building I the always one. Have there already angry Experience made ! |
|
|
| |
|
|
|
Jörg Sellmeyer | Frank Abbing
Frank AbbingUSERMESSAGES 0 the kannste you save sure? I had at End of program time fiese Abstürze, To I the einbaute. since the standing it in each of my Codes.
look on, one learn never from. Roland, what say Thou moreover? |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/24/07 ▲ |
|
|
|
|
RGH | Jörg Sellmeyer
How see it because with others Wish here from the Forum from: Tray Icons: [web]https://XProfan.com/thread.core?t=5750[/web]
The there ex the next Subscriptionsversion!
Greeting 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 | 10/25/07 ▲ |
|
|
|
|
Jörg Sellmeyer | |
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/25/07 ▲ |
|
|
|
|
| close me the opinion of Jörg on: |
|
|
| |
|
|
|
RGH | Jörg Sellmeyer
String-Length of getText$: [web]https://XProfan.com/thread.core?t=4631[/web] Greeting Jörg
... is ex the next (today yet To verschickenden) Subscriptionsversion neither More terminable.
Greeting 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 | 10/25/07 ▲ |
|
|
|
|
Jörg Sellmeyer | |
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/26/07 ▲ |
|
|
|
|
Michael Wodrich | Integer becomes into 32-bit-versions as official of -32xxx To +32xxx reichend marks. first in v8.0 standing, the tappt im dunkeln too 32-bit big are (-2 Mrd To +2 Mrd).
I should it something accurate know: ex when can Integer 32-bit-data take in? (particularly for Handles important)
I have in new Syntaxbeschreibungen the following adopted: Integer: Farbwerte, Handles, MenuIDs, ResourcenIDs
LongInt: Adressen, Speichergrößen
Float: Festplattengrößen
obwohl (loudly Helpfile): Let ! = DiskFree($) Let ! = DiskSize($) Let ! = FileSize($) Let & = FTP(GetFileSize,$) Let & = GetFileSize(#1)
here ought to means with 2 Kandidaten nachgebessert go (evtl. only manuals?).
Best wishes Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 10/26/07 ▲ |
|
|
|
|
|
Integer becomes into 32-bit-versions as official of -32xxx To +32xxx reichend marks.
I see! I known why I for Handles never the of Roland using % take separate the & - as Roland me recently hereon hinwies the % likewise ausreiche I thought yet it me just wrong Pinned to have. but now wisely I hold again How I hereon coming.. |
|
|
| |
|
|
|
RGH | Michael Wodrich
Float: Festplattengrößen
though (loudly Helpfile): Let ! = DiskFree($) Let ! = DiskSize($) Let ! = FileSize($) Let & = FTP(GetFileSize,$) Let & = GetFileSize(#1)
here ought to means with 2 Kandidaten nachgebessert go
the has so its accuracy: there Longints (or. Ã ¼ just how? 32-bit-Systemen) only To 2 GByte weg, supplying The suitable APIs the Result in two LongInts. there XProfan no QuadInts knows, liefet it the Result means in Floats back. (there these Yes Doubles correspond to, are you for gängige Festplattengrößen still on 1 byte very.)
The relative FTP-Library supply The Filesize only as Longint back. that is here's means with 2 GByte Filesize Schluß. Ähnliches counts for function GetFileSize, with the The Size of/ one opened File determined go can. here supply The relative Delphi-function too only LongInts.
Greeting 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 | 10/26/07 ▲ |
|
|
|
|
Jac de Lad | means, i wish me yet, that it profanintern possible is, that the Tooltip whom Sprechblasenstil has. Per Set(Tooltipstyle,...) or zusätzlichem Parameter or so.
and again angefragt: Gibts already what in direction 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 | 10/29/07 ▲ |
|
|
|
|
Jörg Sellmeyer | For this will need you only the Tooltip whom Style $0000040 miss out on. I faith not, that it itself rewards for a Profanfunktion To verbraten. Also is it of Registryeinstellungen tributary, that the pair then too as BallonTip To see are. Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/29/07 ▲ |
|
|
|