@Dodicat
I think you have to enable the scrollbars , in order to use them?
https://docs.microsoft.com/en-us/window ... -reference
Huh-Yuh Lanuage
Re: Huh-Yuh Lanuage
@Dodicat
I pulled the TrackBar code out of Vari_Cyph. But it's not showing the TrackBars??
I pulled the TrackBar code out of Vari_Cyph. But it's not showing the TrackBars??
Code: Select all
#define WIN_INCLUDEALL
#Include once "windows.bi"
#Include once "/win/commctrl.bi"
Dim Shared As Long trackpos1 , getlast1=1
Dim Shared As Long trackpos2 , getlast2=1
Dim shared As MSG msg ' Message variable (stores massages)
Dim shared As HWND hWnd , TrackBar1 , TrackBar2
hWnd = CreateWindowEx( 0, "#32770", "TrackBar Test", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 600, 600, 0, 0, 0, 0 )
TrackBar1 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD Or TBS_AUTOTICKS Or TBS_ENABLESELRANGE,450,270,120,35,hwnd,0,0,0)
SendMessage(TrackBar1, TBM_SETRANGE,TRUE, MAKELONG(1,22))
TrackBar2 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD or TBS_AUTOTICKS Or TBS_ENABLESELRANGE,450,355,120,35,hwnd,0,0,0)
SendMessage(TrackBar2, TBM_SETRANGE,TRUE, MAKELONG(1,22))
'begin mesage processing
While GetMessage( @msg, 0, 0, 0 )
dim as WPARAM wparam
dim as LPARAM lparam
TranslateMessage( @msg )
DispatchMessage( @msg )
Select Case msg.hwnd
Case hWnd
Select Case msg.message
Case 273
PostQuitMessage(0)
'End
End Select
case TrackBar1
Select Case msg.message
case WM_MOUSEMOVE
trackpos1 = SendMessage(TrackBar1, TBM_GETPOS, 0, 0)
if trackpos1 <> getlast1 then
getlast1 = trackpos1
end if
End Select
case TrackBar2
Select Case msg.message
case WM_MOUSEMOVE
trackpos2 = SendMessage(TrackBar2, TBM_GETPOS, 0, 0)
if trackpos2 <> getlast2 then
getlast2 = trackpos2
end if
End Select
end select
Wend
PostQuitMessage(0)
END
Re: Huh-Yuh Lanuage
OK here Albert.
They are on the right side of the window half way down,
They are on the right side of the window half way down,
Re: Huh-Yuh Lanuage
@Dodicat
I Forgot to call InitCommonControls()
I got the TrackBars showing...
But when you resize the window , they don't adjust with the window size....they stay static..
I Forgot to call InitCommonControls()
I got the TrackBars showing...
But when you resize the window , they don't adjust with the window size....they stay static..
Code: Select all
#define WIN_INCLUDEALL
#Include once "windows.bi"
#Include once "/win/commctrl.bi"
Dim Shared As Long trackpos1 , getlast1=1
Dim Shared As Long trackpos2 , getlast2=1
Dim shared As MSG msg ' Message variable (stores massages)
Dim shared As HWND hWnd , TrackBar1 , TrackBar2
hWnd = CreateWindowEx( 0, "#32770", "TrackBar Test", WS_OVERLAPPEDWINDOW Or WS_VISIBLE , 100, 0, 800, 600, 0, 0, 0, 0 )
InitCommonControls()
TrackBar1 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD Or TBS_AUTOTICKS Or TBS_ENABLESELRANGE or TBS_HORZ,0,530,740,35,hwnd,0,0,0)
SendMessage(TrackBar1, TBM_SETRANGE,TRUE, MAKELONG(1,22))
TrackBar2 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD or TBS_AUTOTICKS Or TBS_ENABLESELRANGE or TBS_VERT,750,0,35,520,hwnd,0,0,0)
SendMessage(TrackBar2, TBM_SETRANGE,TRUE, MAKELONG(1,22))
'begin mesage processing
While GetMessage( @msg, 0, 0, 0 )
dim as WPARAM wparam
dim as LPARAM lparam
TranslateMessage( @msg )
DispatchMessage( @msg )
Select Case msg.hwnd
Case hWnd
Select Case msg.message
Case 273
PostQuitMessage(0)
'End
End Select
case TrackBar1
Select Case msg.message
case WM_MOUSEMOVE
trackpos1 = SendMessage(TrackBar1, TBM_GETPOS, 0, 0)
if trackpos1 <> getlast1 then
getlast1 = trackpos1
end if
End Select
case TrackBar2
Select Case msg.message
case WM_MOUSEMOVE
trackpos2 = SendMessage(TrackBar2, TBM_GETPOS, 0, 0)
if trackpos2 <> getlast2 then
getlast2 = trackpos2
end if
End Select
end select
Wend
PostQuitMessage(0)
END
Re: Huh-Yuh Lanuage
@Dodicat
I got the TrackBars working... Scroll Bars might be similar??
Now to get them to resize with the window...
I got the TrackBars working... Scroll Bars might be similar??
Now to get them to resize with the window...
Code: Select all
#define WIN_INCLUDEALL
#Include once "windows.bi"
#Include once "/win/commctrl.bi"
InitCommonControls()
Dim Shared As Long trackpos1 , getlast1=1
Dim Shared As Long trackpos2 , getlast2=1
Dim shared As MSG msg ' Message variable (stores massages)
Dim shared As HWND hWnd , TrackBar1 , TrackBar2
hWnd = CreateWindowEx( 0, "#32770", "TrackBar Test", WS_OVERLAPPEDWINDOW Or WS_VISIBLE , 100, 0, 800, 600, 0, 0, 0, 0 )
TrackBar1 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD Or TBS_AUTOTICKS Or TBS_ENABLESELRANGE or TBS_HORZ,0,530,740,35,hwnd,0,0,0)
SendMessage(TrackBar1, TBM_SETRANGE,TRUE, MAKELONG(1,22))
TrackBar2 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD or TBS_AUTOTICKS Or TBS_ENABLESELRANGE or TBS_VERT,750,0,35,520,hwnd,0,0,0)
SendMessage(TrackBar2, TBM_SETRANGE,TRUE, MAKELONG(1,22))
'begin mesage processing
While GetMessage( @msg, 0, 0, 0 )
dim as WPARAM wparam
dim as LPARAM lparam
TranslateMessage( @msg )
DispatchMessage( @msg )
Select Case msg.hwnd
Case hWnd
Select Case msg.message
Case 273
PostQuitMessage(0)
'End
End Select
case TrackBar1
Select Case msg.message
Case WM_LBUTTONDOWN
trackpos1 = SendMessage(TrackBar1, TBM_GETPOS, 0, 0)
if trackpos1 < getlast1 then if getlast1 > 1 then getlast1-=1
if trackpos1 > getlast1 then if getlast1 < 23 then getlast1+=1
SendMessage(TrackBar1, TBM_SETPOS,TRUE, getlast1)
End Select
case TrackBar2
Select Case msg.message
Case WM_LBUTTONDOWN
trackpos2 = SendMessage(TrackBar2, TBM_GETPOS, 0, 0)
if trackpos2 < getlast2 then if getlast2 > 1 then getlast2-=1
if trackpos2 > getlast2 then if getlast2 < 23 then getlast2+=1
SendMessage(TrackBar2, TBM_SETPOS,TRUE, getlast2)
End Select
end select
Wend
PostQuitMessage(0)
END
Re: Huh-Yuh Lanuage
@Dodicat
I got TrackBars sort of working....But the TrackBars scroll with the window..
I'll research ScrollBars, to see if i can get them working , instead.
I got TrackBars sort of working....But the TrackBars scroll with the window..
I'll research ScrollBars, to see if i can get them working , instead.
Code: Select all
#define WIN_INCLUDEALL
#Include once "windows.bi"
#Include once "/win/commctrl.bi"
InitCommonControls()
Dim Shared As Long trackpos1=1 , getlast1=1
Dim Shared As Long trackpos2=1 , getlast2=1
Dim shared As MSG msg ' Message variable (stores massages)
Dim shared As HWND hWnd , statics , TrackBar1 , TrackBar2
dim as point ep
hWnd = CreateWindowEx( 0, "#32770", "TrackBar Test", WS_OVERLAPPEDWINDOW Or WS_VISIBLE , 100, 0, 800, 600, 0, 0, 0, 0 )
statics = CreateWindowEx( 0, "STATIC", "" , WS_BORDER Or WS_VISIBLE Or WS_CHILD , 10 , 10 , 2300 , 1400 , hWnd, 0, 0, 0 )
TrackBar1 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD Or TBS_AUTOTICKS Or TBS_ENABLESELRANGE or TBS_HORZ,0,530,740,35,hwnd,0,0,0)
SendMessage(TrackBar1, TBM_SETRANGE,TRUE, MAKELONG(1,22))
TrackBar2 = CreateWindowEx(NULL,TRACKBAR_CLASS, "Trackbar Control", WS_VISIBLE Or WS_CHILD or TBS_AUTOTICKS Or TBS_ENABLESELRANGE or TBS_VERT,750,0,35,520,hwnd,0,0,0)
SendMessage(TrackBar2, TBM_SETRANGE,TRUE, MAKELONG(1,22))
ep.x = 0
ep.y = 0
'begin mesage processing
While GetMessage( @msg, 0, 0, 0 )
dim as WPARAM wparam
dim as LPARAM lparam
TranslateMessage( @msg )
DispatchMessage( @msg )
Select Case msg.hwnd
Case hWnd
Select Case msg.message
Case 273
PostQuitMessage(0)
'End
End Select
case TrackBar1
Select Case msg.message
Case WM_LBUTTONDOWN
Dim As rect r
getwindowrect(statics,@r)
var s_wide = r.right-r.left
var s_high = r.bottom-r.top
trackpos1 = SendMessage(TrackBar1, TBM_GETPOS, 0, 0)
if trackpos1 < getlast1 then
if getlast1 > 0 then getlast1-=1 : ep.x-=(s_wide\22)
SendMessage(TrackBar1, TBM_SETPOS,TRUE, getlast1)
movewindow(statics,-ep.x,-ep.y,s_wide,s_high,1)
end if
if trackpos1 > getlast1 then
if getlast1 < 23 then getlast1+=1 : ep.x+=(s_wide\22)
SendMessage(TrackBar1, TBM_SETPOS,TRUE, getlast1)
movewindow(statics,-ep.x,-ep.y,s_wide,s_high,1)
end if
End Select
case TrackBar2
Select Case msg.message
Case WM_LBUTTONDOWN
Dim As rect r
getwindowrect(statics,@r)
var s_wide = r.right-r.left
var s_high = r.bottom-r.top
trackpos2 = SendMessage(TrackBar2, TBM_GETPOS, 0, 0)
if trackpos2 < getlast2 then
if getlast2 > 0 then getlast2-=1 : ep.y-=(s_high\22)
SendMessage(TrackBar2, TBM_SETPOS,TRUE, getlast2)
movewindow(statics,-ep.x,-ep.y,s_wide,s_high,1)
end if
if trackpos2 > getlast2 then
if getlast2 < 23 then getlast2+=1 : ep.y+=(s_high\22)
SendMessage(TrackBar2, TBM_SETPOS,TRUE, getlast2)
movewindow(statics,-ep.x,-ep.y,s_wide,s_high,1)
end if
End Select
end select
Wend
PostQuitMessage(0)
END
Re: Huh-Yuh Lanuage
I updated the Huh-Yuh Language back on page 1 at the top of the topic.
I still need to get scrollbars functioning correctly..
Somehow it worked out that the Jew's God , Jee - hoh - vah = go him father
while Jew came out to = lower
Store = Thoh Pah = commerce building
Town = Thoh Pah Zih = commerce building many
I still need to get scrollbars functioning correctly..
Somehow it worked out that the Jew's God , Jee - hoh - vah = go him father
while Jew came out to = lower
Store = Thoh Pah = commerce building
Town = Thoh Pah Zih = commerce building many
Re: Huh-Yuh Lanuage
I updated Words_Out.txt
I added yes and no and took out male and female...
I added yes and no and took out male and female...