XProfan

Français

Georg
Hovenbitzer

allô zusammen,

gibt es une Possibilité à qui avec qui DLL erzeugten Controls un ToolTip trop binden ?
chez mir klappt es malheureusement pas.
Kompilieren Marque Séparation

 $I SKControl.inc
Def GetSysColor(1) !USER32.DLL,GetSysColor
Declare SKDLL&
Declare Test1&
Declare Test2&
Declare Font&
SKDLL& = @UseDLL(SKControl.dll)
WindowStyle 2 + 8 + 16 + 128 + 256 + 512
Window 0,0-800,600
Cls GetSysColor($0F)
SKCtrl_InitDll()
Font& = @Create(Font,Arinal Narrow,14,0,1,0,0)
Test1& = @Create(Edit,%hWnd,,50,50,220,18)
Test2& = SKCtrl_CreateColorEdit(%hWnd,dfsghshsh,@RGB(0,0,0),@RGB(255,255,255),50,80,220,18,%hInstance)
@Create(ToolTip,%hWnd,Test2&,Hallo)
SetFont Test1&,Font&
SetFont Test2&,Font&

WhileNot %Key = 2

    WaitInput
    SKCtrl_SetColor(Test2&,2,@RGB(213,214,145))
    SKCtrl_SetReadOnly(Test2&,1)

EndWhile

DeleteObject font&
SKCtrl_DeInitDll()
FreeDLL SKDLL&
Fin

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

13.04.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sebastian
König

allô Georg,

cela Problem liegt im internen Aufbau qui ColorEdits (normales Éditer sur weiterem la fenêtre). Den ToolTip sollte cela normale Éditer conservé, dessen Handle Du avec GetWindow(handle&,GW_CHILD) bekommst. j'ai Deinen Code la fois entsprechend angepasst:
Kompilieren Marque Séparation

 $H windows.ph
 $I SKControl.inc
Def GetSysColor(1) !USER32.DLL,GetSysColor
Declare SKDLL&
Declare Test1&
Declare Test2&
Declare Font&
SKDLL& = @UseDLL(SKControl.dll)
WindowStyle 2 + 8 + 16 + 128 + 256 + 512
Window 0,0-800,600
Cls GetSysColor($0F)
SKCtrl_InitDll()
Font& = @Create(Font,Arinal Narrow,14,0,1,0,0)
Test1& = @Create(Edit,%hWnd,,50,50,220,18)
Test2& = SKCtrl_CreateColorEdit(%hWnd,dfsghshsh,@RGB(0,0,0),@RGB(255,255,255),50,80,220,18,%hInstance)
@Create(ToolTip,%hWnd,~GetWindow(Test2&,~GW_CHILD),Hallo)
SetFont Test1&,Font&
SetFont Test2&,Font&

WhileNot %Key = 2

    WaitInput
    SKCtrl_SetColor(Test2&,2,@RGB(213,214,145))
    SKCtrl_SetReadOnly(Test2&,1)

EndWhile

DeleteObject font&
SKCtrl_DeInitDll()
FreeDLL SKDLL&
Fin