XProfan

English

Georg
Hovenbitzer

Hello together,

there a Possibility on The with the DLL begot Controls one ToolTip To link ?
by me works it unfortunately not.
Compile Mark Separation

 $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)

04/13/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
König

Hello Georg,

the trouble lying in the internen construction the ColorEdits (normales Edit on weiterem Window). whom ToolTip ought to the normal Edit receive, which lever You with GetWindow(handle&,GW_CHILD) get. I have your Sourcecode time properly adjusted:
Compile Mark Separation

 $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