XProfan

cls
var wnd&=%hWnd
declare rect#
dim rect#,16
external("user32","GetWindowRect",wnd&,rect#)
print "x,y,xx,yy",long(rect#,0),long(rect#,4),long(rect#,8),long(rect#,12)
waitInp

 {$cleq}
// $H Commctrl.ph
SET("ERRORLEVEL",0)
SET("TRUECOLOR",1)
DECLARE L#, STATUSBAR&
DECLARE GRIDBOX1&
DECLARE TabControl&, TabPage1&, TabPage2&, LastTab&
DECLARE TEXT1&, TEXT2&, TEXT3&
DECLARE MoEDIT1&, MoEDIT2&, MoEDIT3&, MoEDIT4&, MoEDIT5&, MoZeit1&, MoZeit2&, MoZeit3&, MoZeit4&, MoZeit5&, MoGesZeit&
Dim L#, 12
Long L#,0 = 200, 220, -1

Proc SetActiveTab

    Parameters hTab&, TabIndex&
    @SendMessage(hTab&, ~TCM_SETCURFOCUS, TabIndex&, 0)

EndProc

Proc Tabelle

    StartPaint TabPage1&
    UsePen 0,1,@RGB(0,0,0)
    Rectangle 010,010 - 045,028' Tabellenzeile Überschrift
    Rectangle 044,010 - 470,028' Tabellenzeile Überschrift
    Rectangle 469,010 - 520,028' Tabellenzeile Überschrift
    Rectangle 519,010 - 570,028' Tabellenzeile Überschrift
    Rectangle 010,027 - 045,152' Tabellenzeile Montag
    Rectangle 044,027 - 470,152' Tabellenzeile Montag
    Rectangle 469,027 - 520,152' Tabellenzeile Montag
    Rectangle 519,027 - 570,152' Tabellenzeile Montag
    Rectangle 010,151 - 045,276' Tabellenzeile Dienstag
    Rectangle 044,151 - 470,276' Tabellenzeile Dienstag
    Rectangle 469,151 - 520,276' Tabellenzeile Dienstag
    Rectangle 519,151 - 570,276' Tabellenzeile Dienstag
    EndPaint

endproc

WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW (%maxx/2 - 880/2),(%maxy/2 - 560/2) - 880,560
~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))//flickerfreies hWnd bei Skalieren
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
STATUSBAR& = @Create("StatusWindow",%HWND,"",3,L#)
var MYAREA&=scrollControl(%hWnd,-1,width(%hWnd),height(%hWnd))
setWindowPos myArea&=0,0 - width(%hWnd),height(%hWnd)-height(STATUSBAR&)
GRIDBOX1& = create("GridBox",MYAREA&,"Eintrag 1;0;60;Eintrag 2;0;60;Eintrag 3;0;60",3,0022,0074,0185,0363)
TabControl& = CREATE("TABCTRL",MYAREA&,"Stunden",0220,0070,0625,0370)
TabPage1& = CONTROL("DIALOG","", $40081003,2,25,WIDTH(TabControl&)-10, HEIGHT(TabControl&)-30,TabControl&,0,%HINSTANCE)
SHOWWINDOW(TabPage1&,0)
@INSERTTAB(TabControl&,2,"Weiteres")
TabPage2& = CONTROL("DIALOG","", $40081003,2,25,WIDTH(TabControl&)-10, HEIGHT(TabControl&)-30,TabControl&,0,%HINSTANCE)
SHOWWINDOW(TabPage2&,0)
LastTab& = TabPage1&
SHOWWINDOW(LastTab&,1)
Tabelle
TEXT1& = CREATE("TEXT",TabPage1&,"Tag:",     013,012,030,014)
TEXT2& = CREATE("TEXT",TabPage1&,"Arbeiten:",230,012,045,014)
TEXT3& = CREATE("TEXT",TabPage1&,"Zeit:",    480,012,025,014)
MoEDIT1& = CREATE("EDIT",TabPage1&,"",050,040,0415,0020)
MoEDIT2& = CREATE("EDIT",TabPage1&,"",050,059,0415,0020)
MoEDIT3& = CREATE("EDIT",TabPage1&,"",050,078,0415,0020)
MoEDIT4& = CREATE("EDIT",TabPage1&,"",050,097,0415,0020)
MoEDIT5& = CREATE("EDIT",TabPage1&,"",050,116,0415,0020)
MoZeit1& = CREATE("EDIT",TabPage1&,"",475,040,0040,0020)
MoZeit2& = CREATE("EDIT",TabPage1&,"",475,059,0040,0020)
MoZeit3& = CREATE("EDIT",TabPage1&,"",475,078,0040,0020)
MoZeit4& = CREATE("EDIT",TabPage1&,"",475,097,0040,0020)
MoZeit5& = CREATE("EDIT",TabPage1&,"",475,116,0040,0020)
MoGesZeit&=CREATE("EDIT",TabPage1&,"",525,116,0040,0020)
SETFOCUS(%HWND)
REPAINT
USERMESSAGES $0010
SubClass %hWnd,1

WHILENOT ENDE%

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF $0010

        BREAK

    ENDSELECT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

        SETWINDOWPOS STATUSBAR& = 0,0 - 0,0;0

    ELSEIF CLICKED(GRIDBOX1&)'GRIDBOX

    ElseIf @TABCHANGED(TabControl&)

        SHOWWINDOW(LastTab&,0)

        If GETACTIVETAB(TabControl&) = 0

            LastTab& = TabPage1&
            SHOWWINDOW(LastTab&,1)
            Tabelle
            else GETACTIVETAB(TabControl&) = 1
            LastTab& = TabPage2&
            SHOWWINDOW(LastTab&,1)

        EndIf

    ENDIF

ENDWHILE

end

subClassProc

    select %sMessage

        caseof $5,$214// wm_size,wm_sizing

        SETWINDOWPOS STATUSBAR& = 0,0 - 0,0;0
        setWindowPos MYAREA&=0,0 - width(%hWnd),height(%hWnd)-height(STATUSBAR&)

    endSelect

endProc

nproc test//mind. 1 nProc um den nativen Sprachschatz zu aktivieren (Funtkion ScrollControl  https://xp