| |
| |
|
| - 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 3 - |
|
|
| Nachtrag to Statement 2:
naturally could Roland - circa a ID To save instead of WaitCallBackStack  just ProcAddr () {without each Parameter} using.  |
|
| |
| |
| |
|
|
RGH | ... and what speaks against whom employment the for derartige tack introduced XProfan-function WinExecWait?
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 | 09/18/07 ▲ |
|
| |
|
|
Frank
Abbing | Why suddenly XProfan 2008? Why not XProfan 11?
somehow works your Namengebung inkonsequent and little durchdacht...  |
|
| |
| |
| |
|
|
RGH | Frank Abbing
Why suddenly XProfan 2008? Why not XProfan 11? somehow works your Namengebung inkonsequent and little durchdacht...
The name standing not yet definitiv solid, but I sympatisiere admittedly with the indicated the Jahreszahl. but red us first over The contents talk, before we over the names quarrel!
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 | 09/19/07 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | How the program is isn't so important - important is a furthermore durchgehende Nummerierung the versions for $ProfVer |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 09/19/07 ▲ |
|
| |
|
|
RGH | Jörg Sellmeyer
How the program is isn't so important - important is a furthermore durchgehende Nummerierung the versions for $ProfVer
The interne Versionsbezeichnung becomes naturally weitergezählt go. too Delphi 2006 becomes intern as Turbo Pascal 16.0 (or so similar) counted. (I have The detailed version number not head, but I faith Delphi 7 was already with 15.)
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 | 09/19/07 ▲ |
|
| |
|
|
| WinExec becomes The ProzessID (a.Ä.) give back, with this becomes one then with the new function getUsage(pid) properties detect can?  |
|
| |
| |
| |
|
|
RGH | iF
WinExec becomes The ProzessID (a.Ä.) give back, with this becomes one then with the new function getUsage(pid) properties detect can?
the goes already very into direction, in the so did i on the think be. getUsage becomes but sooner getState hot.
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 | 09/19/07 ▲ |
|
| |
|
|
Frank
Abbing |
The name standing not yet definitiv solid, but I sympatisiere admittedly with the indicated the Jahreszahl.
january 2009 works so a 2008it Version already veraltert. on your place tät I The Nummerierung to maintain.
I yourself had ex XProfan again The 1 uses, because itself indeed the whole name changed has. means Profan² 7.6, XProfan, XProfan 2, etc... |
|
| |
| |
| |
|
|
Michael
Wodrich | RGH
getUsage becomes but sooner getState hot.
These function having we but already:
@GetState - v10.0 - Status Elementes of/ one ListBox (too: ChoiceBox, Grid, GridBOX, List)°
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 09/19/07 ▲ |
|
| |
|
|
RGH | RGH
[getUsage becomes but sooner getState hot.
Arrghhh ... getState there already. I must moreover think ... ;) Perhaps still: GetExitCode() in Anlehnung on The relative API.
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 | 09/19/07 ▲ |
|
| |
|
|
Michael
Wodrich | wish: C O n T I n u E too for Repeat-Until creep.
from one Pascal manuals:
While-Loop:
The command Break and Continue can within zusammengesetzten instructions of/ one While-Loop uses go, circa from the Loop herauszuspringen or circa with the next Durchlauf To begin.
Repeat-Until:
The command Break and Continue can uses go, circa from the repeat-Loop herauszuspringen or circa with the next Durchlauf To begin.
...what in the entrapment of/ one fußgesteuerten Loop naturally means, the Continue on the Schleifenende to Bedingungsprüfung jumping.
i know Yes, the we this issue already time had. but the wish exists furthermore: one funktionierendes Continue too in fußgesteuerten creep.
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 10/21/07 ▲ |
|
| |
|
(764)
Deutsch
English
Français
Español
Italia