(2.115)  Login

English
SKControl.DLL

Order the Aktivierung of SKControl Edits

 
- Page 1 -



Stephan
Sonneborn
Hello together,

I Have in a Program coloured Edits through the SKControl.DLL prepares. there The here begot Handles no "normalen" Handles are, separate "normale" Handles on one Elternhandle, Have I Problems with the Aktivierungsreihenfolge.

white someone, How one then The Order the Aktivierung bearing or through Enter (on the dearest) or TAB of a Edit-area in that next change can?

BringWindowToTop() Have I of course attempts, but none success so had.
CompileMarkSeparation
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR Edit1& = CreateEditCL(%HWND, "Hier 0 eingeben für ENDE", 10,10,200,20,0,RGB(255,0,0) )
VAR Edit2& = CreateEditCL(%HWND, "", 10,40,200,20,0,RGB(205,0,0) )
VAR Edit3& = CreateEditCL(%HWND, "", 10,80,200,20,0,RGB(155,0,0) )
VAR Edit4& = CreateEditCL(%HWND, "", 10,120,200,20,0,RGB(105,0,0) )

WHILE 1

    WAITINPUT
    CASE GETTEXT$(SK_GETFOCUS(Edit1&)) = "0": BREAK

WEND

SKCtrl_DeInitDll()
END
 
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz
05/24/11  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



« this Posting watts as Solution marked. »


Andreas
Miethe

Versuch's time so
CompileMarkSeparation
 $H Windows.ph
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR Edit1& = CreateEditCL(%HWND, "", 10,10,200,20,0,RGB(255,0,0) )
SetStyle Edit1&, GetStyle(Edit1&) | ~WS_GROUP
VAR Edit2& = CreateEditCL(%HWND, "", 10,40,200,20,0,RGB(205,0,0) )
VAR Edit3& = CreateEditCL(%HWND, "", 10,80,200,20,0,RGB(155,0,0) )
VAR Edit4& = CreateEditCL(%HWND, "", 10,120,200,20,0,RGB(105,0,0) )
VAR HEnde% = Create("BUTTON", %HWND, "Ende", 10,200,200,25)
VAR Ende%  = 0
VAR i%     = 0
AddHotKey  1000, $09, 0
AddHotKey  1001, $0D, 0

WHILENOT Ende%

    WAITINPUT

    If IsKey($09) Or IsKey($0D)

        SetFocus(~GetNextDlgGroupItem(%hwnd,%Getfocus,0))

    Endif

    IF CLICKED(HEnde%)

        Ende% = 1

    ENDIF

WEND

SKCtrl_DeInitDll()
../../function-references/XProfan/end/'>END
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
05/24/11  ▲
 



get You WaitInput on the place with Enter durchbrochen?
 
05/24/11  ▲
 




Stephan
Sonneborn
Hello iF,

iF (24.05.11)

get You WaitInput on the place with Enter durchbrochen?


unfortunately No...
CompileMarkSeparation
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR Edit1& = CreateEditCL(%HWND, "", 10,10,200,20,0,RGB(255,0,0) )
VAR Edit2& = CreateEditCL(%HWND, "", 10,40,200,20,0,RGB(205,0,0) )
VAR Edit3& = CreateEditCL(%HWND, "", 10,80,200,20,0,RGB(155,0,0) )
VAR Edit4& = CreateEditCL(%HWND, "", 10,120,200,20,0,RGB(105,0,0) )
VAR HEnde% = Create("BUTTON", %HWND, "Ende", 10,200,200,25)
VAR Ende%  = 0
VAR i%     = 0

WHILENOT Ende%

    WAITINPUT
    i% = i% + 1

    IF CLICKED(HEnde%)

        Ende% = 1

    ENDIF

    LOCATE 12,1
    PRINT i%

WEND

SKCtrl_DeInitDll()
END
 
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz
05/24/11  ▲
 



Try time:
CompileMarkSeparation
addhotkey 1234,13,0
>
 
05/24/11  ▲
 




Andreas
Miethe

Versuch's time so
CompileMarkSeparation
 $H Windows.ph
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR Edit1& = CreateEditCL(%HWND, "", 10,10,200,20,0,RGB(255,0,0) )
SetStyle Edit1&, GetStyle(Edit1&) | ~WS_GROUP
VAR Edit2& = CreateEditCL(%HWND, "", 10,40,200,20,0,RGB(205,0,0) )
VAR Edit3& = CreateEditCL(%HWND, "", 10,80,200,20,0,RGB(155,0,0) )
VAR Edit4& = CreateEditCL(%HWND, "", 10,120,200,20,0,RGB(105,0,0) )
VAR HEnde% = Create("BUTTON", %HWND, "Ende", 10,200,200,25)
VAR Ende%  = 0
VAR i%     = 0
AddHotKey  1000, $09, 0
AddHotKey  1001, $0D, 0

WHILENOT Ende%

    WAITINPUT

    If IsKey($09) Or IsKey($0D)

        SetFocus(~GetNextDlgGroupItem(%hwnd,%Getfocus,0))

    Endif

    IF CLICKED(HEnde%)

        Ende% = 1

    ENDIF

WEND

SKCtrl_DeInitDll()
../../function-references/XProfan/end/'>END
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
05/24/11  ▲
 




Stephan
Sonneborn
Hello Andreas,

many Thanks, there would I never on it come!

super!!!
 
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz
05/24/11  ▲
 




Stephan
Sonneborn
Andreas Miethe (24.05.11)

Versuch's time so


Hello Andreas,

I Have another Denksportaufgabe for you: How place I it on, each in two separated Parent-Handles based Edits einzufangen and of course with of/ one Waitinput-Loop?
CompileMarkSeparation
 $H Windows.ph
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR GB1% = Create("Groupbox", %HWND, "1", 5,5,220,80)
VAR Edit1& = CreateEditCL(GB1%, "", 10,20,200,20,0,RGB(255,0,0) )
SetStyle Edit1&, GetStyle(Edit1&) | ~WS_GROUP
VAR Edit2& = CreateEditCL(GB1%, "", 10,50,200,20,0,RGB(205,0,0) )
VAR GB2% = Create("Groupbox", %HWND, "2", 5,100,220,80)
VAR Edit3& = CreateEditCL(GB2%, "", 10,20,200,20,0,RGB(155,0,0) )
SetStyle Edit3&, GetStyle(Edit3&) | ~WS_GROUP
VAR Edit4& = CreateEditCL(GB2%, "", 10,50,200,20,0,RGB(105,0,0) )
VAR HEnde% = Create("BUTTON", %HWND, "Ende", 10,200,200,25)
VAR Ende%  = 0
VAR i%     = 0
AddHotKey  1000, $09, 0
AddHotKey  1001, $0D, 0

WHILENOT Ende%

    WAITINPUT

    If IsKey($09) Or IsKey($0D)

        SetFocus(~GetNextDlgGroupItem(GB1%,%Getfocus,0))
        'SetFocus(~GetNextDlgGroupItem(GB2%,%Getfocus,0))

    Endif

    IF CLICKED(HEnde%)

        Ende% = 1

    ENDIF

WEND

SKCtrl_DeInitDll()
='./../../function-references/XProfan/end/'>END
 
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz
05/24/11  ▲
 




Andreas
Miethe

possible so ?

You could naturally too The Pfeiltasten to that change using
CompileMarkSeparation
 $H Windows.ph
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR GB1% = Create("Groupbox", %HWND, "1", 5,5,220,80)
VAR Edit1& = CreateEditCL(GB1%, "", 10,20,200,20,0,RGB(255,0,0) )
SetStyle Edit1&, GetStyle(Edit1&) | ~WS_GROUP
VAR Edit2& = CreateEditCL(GB1%, "", 10,50,200,20,0,RGB(205,0,0) )
VAR GB2% = Create("Groupbox", %HWND, "2", 5,100,220,80)
VAR Edit3& = CreateEditCL(GB2%, "", 10,20,200,20,0,RGB(155,0,0) )
SetStyle Edit3&, GetStyle(Edit3&) | ~WS_GROUP
VAR Edit4& = CreateEditCL(GB2%, "", 10,50,200,20,0,RGB(105,0,0) )
VAR HEnde% = Create("BUTTON", %HWND, "Ende", 10,200,200,25)
VAR Ende%  = 0
VAR i%     = 0
AddHotKey  1000, $09, 0
AddHotKey  1001, $0D, 0
Var Lastgroup& = 0

WHILENOT Ende%

    WAITINPUT

    If IsKey($0D)

        If LastGroup& = Gb1%

            SetFocus(~GetNextDlgGroupItem(GB1%,%Getfocus,0))

        else

            SetFocus(~GetNextDlgGroupItem(GB2%,%Getfocus,0))

        endif

    Endif

    If IsKey($09)

        If LastGroup& = Gb1%

            SetFocus(Edit3&)
            Lastgroup& = Gb2%

        else

            SetFocus(Edit1&)
            Lastgroup& = Gb1%

        Endif

    Endif

    IF CLICKED(HEnde%)

        Ende% = 1

    ENDIF

WEND

SKCtrl_DeInitDll(
END
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
05/25/11  ▲
 




Stephan
Sonneborn
Andreas Miethe (25.05.11)

possible so ?


Hello Andreas,

super idea! I habs another slightly extended and now ists too alike, in which Listbox one clicking. with Enter comes one in that next Edit-area (inside the Groupbox) and TAB into next Groupbox.
CompileMarkSeparation
 $H Windows.ph
DEF GetWindow(2) !"USER32","GetWindow"
DEF SK_GETFOCUS(1)  GetWindow(&(1),5)
VAR PrgDir$ = GETDIR$("@")
VAR LVDLL&  = USEDLL(PrgDir$ + "\\SKControl.dll")
 $I SKCONTROL.INC
SKCtrl_InitDll()

PROC CreateEditCL

    PARAMETERS ParentHandle&, Text$, x%, y%, dx%, dy%, TColor&, BColor&
    DECLARE Handle&
    DECLARE SKString#
    DIM SKString#, 255
    STRING SKString#, 0 = Text$
    Handle& = SKCtrl_CreateColorEdit(ParentHandle&,SKString#,Tcolor&,BColor&,x%,y%,dx%,dy%,%hInstance)
    SETSTYLE SK_GETFOCUS(Handle&), 0,  GETSTYLE(SK_GETFOCUS(Handle&)) + $0000
    DISPOSE SKString#
    RETURN Handle&

ENDPROC

CLS
VAR GB1% = Create("Groupbox", %HWND, "1", 5,5,220,80)
VAR Edit1& = CreateEditCL(GB1%, "", 10,20,200,20,0,RGB(255,0,0) )
SetStyle Edit1&, GetStyle(Edit1&) | ~WS_GROUP
VAR Edit2& = CreateEditCL(GB1%, "", 10,50,200,20,0,RGB(205,0,0) )
VAR GB2% = Create("Groupbox", %HWND, "2", 5,100,220,80)
VAR Edit3& = CreateEditCL(GB2%, "", 10,20,200,20,0,RGB(155,0,0) )
SetStyle Edit3&, GetStyle(Edit3&) | ~WS_GROUP
VAR Edit4& = CreateEditCL(GB2%, "", 10,50,200,20,0,RGB(105,0,0) )
VAR HEnde% = Create("BUTTON", %HWND, "Ende", 10,200,200,25)
VAR Ende%  = 0
VAR i%     = 0
AddHotKey  1000, $09, 0
AddHotKey  1001, $0D, 0
Var Lastgroup& = 0

WHILENOT Ende%

    WAITINPUT
    Lastgroup& = ~GetParent(~GetParent(%Getfocus))

    If IsKey($0D)

        If LastGroup& = Gb1%

            SetFocus(~GetNextDlgGroupItem(GB1%,%Getfocus,0))

        else

            SetFocus(~GetNextDlgGroupItem(GB2%,%Getfocus,0))

        endif

    Endif

    If IsKey($09)

        If LastGroup& = Gb1%

            SetFocus(Edit3&)
            Lastgroup& = Gb2%

        else

            SetFocus(Edit1&)
            Lastgroup& = Gb1%

        Endif

    Endif

    IF CLICKED(HEnde%)

        Ende% = 1

    ENDIF

WEND

SKCtrl_DeInitDll()
END
 
Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz
05/25/11  ▲
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

5.311 Views

Untitledvor 0 min.
Sven Bader01/27/23
p.specht05/13/21
Walter10/08/19
MrZebulon08/04/18
More...

Themeninformationen

this Topic has 3 subscriber:

Stephan Sonneborn (5x)
Andreas Miethe (2x)
iF (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie