| |
| |
|
| - Page 1 - |
|
Julian
Schmidt | Hi,
how can one a hint on a area the Mainwindow take off the no lever has. this hint ought to at least in the integral like a Tooltip functions (MouseMove, MouseLeave)
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 04/13/11 ▲ |
|
| |
|
 |
« this Posting watts as Solution marked. » |
|
Detlef
Jagolski | Hello Julian57,
Why without lever?
with lever is it still plainer.
Greeting
Detlef
CompileMarkSeparation $P+
Set("ErrorLevel",0)
$H WINDOWS.PH
$H MESSAGES.PH
' *** GlobalStatements der Form
' *** GlobalStatements der Form-Controls
Proc OnApplicationExit
EndProc
Proc OnApplicationInit
EndProc
OnApplicationInit
Declare appexit%
Declare STATIC1&
Set("TrueColor",1)
WindowStyle $003F
WindowTitle "DesignForm"
Window %maxX + 5,114 - 549,468
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
STATIC1&=Control("STATIC","",$54000100,108,103,185,107,%hwnd,2000,%hinstance)
Create("Tooltip",%hwnd,STATIC1&,"Ich bin ein Tooltip")
SetWindowPos %hwnd = 207,114 - 549,468;0
WhileNot appexit%
WaitInput
If %key = 2
appexit%=1
ElseIf %key = 4
' Fenstergröße
ElseIf %key = 5
' Hilfe
EndIf
Wend
OnApplicationExit
|
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 04/13/11 ▲ |
|
| |
|
|
|
Julian
Schmidt | thanks for Solution  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 04/13/11 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi people!
The Vollständigkeit halber:
CompileMarkSeparationwindow 250,250
declare Tool&,Tool#,Text$
dim Tool#,40
long Tool#,0=40,16,%hwnd
Tool&=create("Tooltip",%hwnd,%hwnd,"")
Text$="Dies ist ein Test"
rectangle 10,10-50,50
long Tool#,16=10,10,50,50,0,addr(Text$)
sendmessage(Tool&,1028,0,Tool#)
Text$="Und noch ein Test"
rectangle 100,100-150,150
long Tool#,16=100,100,150,150,0,addr(Text$)
sendmessage(Tool&,1028,0,Tool#)
setfocus(%hwnd)
dispose Tool#
| 04/14/11 ▲ | |
|
| |
|
(507)
Deutsch
English
Français
Español
Italia