XProfan

Español

Georg
Hovenbitzer

¡Hola zusammen,

hay una Möglichkeit a el con el DLL erzeugten Controls una ToolTip a binden ?
En me klappt lo por desgracia, no.
Kompilieren Marca Separación

 $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 Cita Zeilenweise Cita

Sebastian
König

¡Hola Georg,

el problema liegt en el internen Aufbau el ColorEdits (normales Editar en weiterem Ventana). Den ToolTip debería el normale Editar obtener, dessen Handle Usted con GetWindow(handle&,GW_CHILD) bekommst. Yo habe Su código veces entsprechend adaptado:
Kompilieren Marca Separación

 $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