XProfan

Deutsch

Georg
Hovenbitzer

Hallo zusammen,

gibt es eine Möglichkeit an die mit der DLL erzeugten Controls ein ToolTip zu binden ?
Bei mir klappt es leider nicht.
Kompilieren Markieren Separieren

 $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&
End

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

13.04.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Sebastian
König

Hallo Georg,

das Problem liegt im internen Aufbau der ColorEdits (normales Edit auf weiterem Fenster). Den ToolTip sollte das normale Edit erhalten, dessen Handle Du mit GetWindow(handle&,GW_CHILD) bekommst. Ich habe Deinen Code mal entsprechend angepasst:
Kompilieren Markieren Separieren

 $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&
End