News:

Welcome to RetroCoders Community

Main Menu

How to Resize Window to Fullscreen?

Started by ron77, Feb 08, 2023, 12:19 PM

Previous topic - Next topic
Print
Go Down Pages1
User actions

ron77

Feb 08, 2023, 12:19 PM Last Edit: Feb 08, 2023, 02:42 PM by ron77
Hello everyone...

I have a code here for a GUI window9 window with two textboxes and a bunch of Buttons. It's for my chatbot program, and it works well; however, I'm wondering if it would be possible to add to that code to option for "Maximize window" and still have the components (the textboxes and buttons) resized as well?...

If anyone can help me, I would appreciate it very much...

here is the code:
'#define fbc -s console -gen gcc -Wc -Ofast -Wc -Wno-maybe-uninitialized -exx -w all
#INCLUDE "window9.bi"
#include "fb_chatbot_danny_v10.bas"
#include "windows.bi"

ShowWindow(GetConsoleWindow(), SW_HIDE)

LoadArrays("database/database-encrypted.txt") ' eliza_script.txt
'loadarrays("database/eliza-encrypted.txt")


Dim shared as double start
start = timer

'linux compat
#ifndef BS_DEFPUSHBUTTON
    #define BS_DEFPUSHBUTTON 0
#endif

enum GadgetID
    giFirst = 100
    giOutputEdit
    giInputEdit
    giTalkButton
    giReplayButton
    giDeleteButton
    giLearnButton
    giAnnButton
    giRandomButton
    giElizaButton
    'giScrollBarGadget
end enum
enum ShortCutID
    siFirst = 1000
    siDefKey
end enum

Dim As HWND hMainForm
Dim As Integer event

hMainForm = OpenWindow( "Chatbot Danny v1.1.6.2", 100, 10, 800, 600)

EditorGadget(giOutputEdit, 10, 10, 700, 340, "Danny: Hello my friend!", 0) '"hello dear one i'm here to talk with you on what ever you want", 0 )
writefile2("Danny: Hello my friend!")
SetGadgetFont(giOutputEdit, CINT(LoadFont( "MS Dialog", 11)))
Readonlyeditor(giOutputEdit, 1)
SetTransferTextLineEditorGadget(giOutputEdit, 1)

EditorGadget(giInputEdit, 10, 350, 700, 190, "", 0)
SetGadgetFont(giInputEdit, CINT(LoadFont( "MS Dialog", 11)))
SetTransferTextLineEditorGadget(giInputEdit, 1)

ButtonGadget(giTalkButton, 720, 520, 60, 30, "Talk", BS_DEFPUSHBUTTON)
ButtonGadget(giReplayButton, 720, 490, 60, 30, "LOG", BS_DEFPUSHBUTTON)
ButtonGadget(giDeleteButton, 720, 460, 60, 30, "Delete", BS_DEFPUSHBUTTON)
ButtonGadget(giLearnButton, 720, 430, 60, 30, "Learn", BS_DEFPUSHBUTTON)
ButtonGadget(giAnnButton, 720, 400, 60, 30, "ML Algo", BS_DEFPUSHBUTTON)
ButtonGadget(giRandomButton, 720, 370, 60, 30, "Random", BS_DEFPUSHBUTTON)
ButtonGadget(giElizaButton, 720, 340, 60, 30, "ELIZA", BS_DEFPUSHBUTTON)
SetFocus(Gadgetid(giInputEdit))                  ' focus on the editor 2
UpdateInfoXserver()                              ' for linux , so that xserver has time to update the information

AddKeyboardShortcut(hMainForm, FVIRTKEY, VK_RETURN, siDefKey)

dim shared isEliza as boolean = false

Sub speak(text as string ptr)
    #Ifdef __FB_LINUX__
        Shell( "espeak-ng -v us-mbrola-2 -s 120 " & chr(34) & *text & chr(34))
    #Else
        '    shell( "voice -r -1 -n " & Chr(34) & TTSvoice & Chr(34) & " " & Chr(34) & *text & Chr(34))
        'TTS.Voice("Microsoft Sam")
        TTS.VoiceByID(0)
        TTS.Speak( *text, True )
    #endif
End Sub

sub DefaultButtonPressed()
    Dim As String respond(5) = {"why don't you talk to me?", "am i boring you?", "a penny for your thoughts", "what's on your mind?", "how are you my friend?"}
    Var text = GetGadgetText(giInputEdit)
    writefile2 ("You: " + text)
    dim ans as string
    if isEliza = false then
        ans = commands(text)
    else
        ans = GetReply(text)
    endif
    if (timer - start) > 600 then
        ans = respond(int(rnd*(ubound(respond)+1)))
    EndIf
    writefile2 ("Danny: " + ans)
    SetGadgetText(giInputEdit, "")
    Var reply1 = GetGadgetText(giOutputEdit)
    SetGadgetText(giOutputEdit, reply1 + Chr(10) + "You: " + text + Chr(10) + "Danny: " + ans)
    'threadcreate for TTS speak function (sub) shell command
    static as any ptr a :if a then ThreadWait(a)
    Static as string sTemp :sTemp = ans
    a = ThreadCreate(cast(any ptr, @Speak), @sTemp)
    LineScrollEditor(giInputEdit, 10)
    LineScrollEditor(giOutputEdit, 10)
    start = timer
end sub

sub ReplayButtonClick()
    if (fileexists(file) = true) then
        'dim as string replay(any)
        'ReadLogFile( file, replay() )
        'Var reply1 = GetGadgetText(giOutputEdit)
        'SetGadgetText(giOutputEdit, reply1 + Chr(10) + "-------- CONVERSTATION REPLAY -------" + chr(10))
        'for N as long = 0 to ubound(replay)
        'var line1 = getgadgettext(giOutputEdit)
        'setgadgettext(giOutputEdit, line1 + chr(10) + replay( N ) + chr(10))
        'linescrolleditor(giOutputEdit, 15)
        'Next
        'var replay2 = getgadgettext(giOutputEdit)
        'setgadgettext(giOutputEdit, replay2 + chr(10) + "--------- END OF REPLAY -----------" + chr(10))
        'linescrolleditor(giOutputEdit, 15)
        #ifdef __fb_linux__
            shell("xdg-open "+ file ) 'https://youtu.be/MUTz3LQEq1Q")
        #else
            shell("start " + file ) 'https://youtu.be/MUTz3LQEq1Q")
            '                shell("start /unix /usr/bin/firefox https://youtu.be/MUTz3LQEq1Q")
        #endif
    else
        var replay3 = getgadgettext(giOutputEdit)
        setgadgettext(giOutputEdit, replay3 + chr(10) + "NO LOG FILE EXISTS!" + chr(10))
        linescrolleditor(giOutputEdit, 5)
    END IF
    SetFocus(Gadgetid(giInputEdit))
End Sub

sub deleteButtonClick()
    Dim result As Integer = Kill( file )
    kill(questions)
    kill(answers)
    if result = 0 then var replay5 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, replay5+ chr(10) + "CONVERSATION LOG FILE BEEN DELETED!" + chr(10))
    linescrolleditor(giOutputEdit, 5)
    SetFocus(Gadgetid(giInputEdit))
End Sub

dim shared as long switch

sub buttonLeranClick()
    if switch = 0 then
        islearnMode = true
        var past1 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past1+chr(10)+ "LEARN MODE NOW ENABLED!" +chr(10))
        linescrolleditor(giOutputEdit, 5)
        switch = 1
    elseif switch = 1 then
        isLearnMode = false
        var past2 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past2+chr(10)+ "LEARN MODE NOW DISABLED!" +chr(10))
        linescrolleditor(giOutputEdit, 5)
        switch = 0
    end if
    SetFocus(Gadgetid(giInputEdit))
End Sub

sub AnnButtonClick()
    if isnna = false then
        isnna = true
        var past3 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past3+chr(10)+"WEAK ANN MODE NOW ENABLED!"+chr(10))
        linescrolleditor(giOutputEdit, 5)
    else
        isnna = false
        var past4 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past4+chr(10)+"WEAK ANN MODE NOW DISABLED!"+chr(10))
        linescrolleditor(giOutputEdit, 5)
    EndIf
    SetFocus(Gadgetid(giInputEdit))
End Sub

sub randomButtonClick()
    if israndom = false then
        israndom = true
        var past5 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past5+chr(10)+"RANDOM NOW ENABLED!"+chr(10))
        linescrolleditor(giOutputEdit, 5)
    else
        israndom = false
        var past6 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past6+chr(10)+"RANDOM MODE NOW DISABLED!"+chr(10))
        linescrolleditor(giOutputEdit, 5)
    EndIf
    SetFocus(Gadgetid(giInputEdit))
End Sub

sub elizaButtonClick()
    if isEliza = false then
        isEliza = true
        var past7 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past7+chr(10)+"NOW TALING TO ELIZA AS DANNY!"+chr(10))
        linescrolleditor(giOutputEdit, 5)
    else
        isEliza = false
        var past8 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past8+chr(10)+"NOW TALKING TO DANNY NOT AS ELIZA!"+chr(10))
        linescrolleditor(giOutputEdit, 5)
    EndIf
    SetFocus(Gadgetid(giInputEdit))
End Sub

Do
    select case WaitEvent()
        case EventMenu
            if EventNumber = siDefKey then DefaultButtonPressed()
        case EventClose
            'if EventHwnd() = hSecondForm then
            'close_window(hSecondForm)
            'else
            freeMusic()                                    'if eventclose = hMainForm then
            End
            'end if
        case EventGadget
            select case EventNumber
                case giTalkButton
                    DefaultButtonPressed()
                case giReplayButton
                    ReplayButtonClick()
                case giDeleteButton
                    deleteButtonClick()
                case giLearnButton
                    buttonLeranClick()
                case giAnnButton
                    AnnButtonClick()
                case giRandomButton
                    randomButtonClick()
                CASE giElizaButton
                    elizaButtonClick()
            end select
    end select
Loop

Kind Regards
Ron77

ron77

#1
Feb 08, 2023, 05:17 PM
Okay found a solution with help from a friend:

Here is the GUI code:
'#define fbc -s console -gen gcc -Wc -Ofast -Wc -Wno-maybe-uninitialized -exx -w all
#INCLUDE "window9.bi"
#include "fb_chatbot_danny_v10.bas"
#include "windows.bi"

ShowWindow(GetConsoleWindow(), SW_HIDE)

LoadArrays("database/database-encrypted.txt") ' eliza_script.txt
'loadarrays("database/eliza-encrypted.txt")

dim shared as long BaseWidth 
BaseWidth = 800
dim shared as long BaseHeight 
BaseHeight = 600

#define ScaleX(_V) ((((_V)*WinWid)\BaseWidth))
#define ScaleY(_V) ((((_V)*WinHei)\BaseHeight))

Dim shared as double start
start = timer

'linux compat
#ifndef BS_DEFPUSHBUTTON
	#define BS_DEFPUSHBUTTON 0
#endif

enum GadgetID
	giFirst = 100
	giOutputEdit
	giInputEdit
	giTalkButton
	giReplayButton
	giDeleteButton
	giLearnButton
	giAnnButton
	giRandomButton
	giElizaButton
	'giScrollBarGadget
end enum
enum ShortCutID
	siFirst = 1000
	siDefKey
end enum

Dim As HWND hMainForm
Dim As Integer event

hMainForm = OpenWindow( "Chatbot Danny v1.1.6.3", 100, 10, BaseWidth, BaseHeight)

EditorGadget(giOutputEdit, 10, 10, 700, 340, "Danny: Hello my friend!", 0) '"hello dear one i'm here to talk with you on what ever you want", 0 )
writefile2("Danny: Hello my friend!")
SetGadgetFont(giOutputEdit, CINT(LoadFont( "MS Dialog", 11)))
Readonlyeditor(giOutputEdit, 1)
SetTransferTextLineEditorGadget(giOutputEdit, 1)

EditorGadget(giInputEdit, 10, 350, 700, 190, "", 0)
SetGadgetFont(giInputEdit, CINT(LoadFont( "MS Dialog", 11)))
SetTransferTextLineEditorGadget(giInputEdit, 1)

ButtonGadget(giTalkButton, 720, 520, 60, 30, "Talk", BS_DEFPUSHBUTTON)
ButtonGadget(giReplayButton, 720, 490, 60, 30, "LOG", BS_DEFPUSHBUTTON)
ButtonGadget(giDeleteButton, 720, 460, 60, 30, "Delete", BS_DEFPUSHBUTTON)
ButtonGadget(giLearnButton, 720, 430, 60, 30, "Learn", BS_DEFPUSHBUTTON)
ButtonGadget(giAnnButton, 720, 400, 60, 30, "ML Algo", BS_DEFPUSHBUTTON)
ButtonGadget(giRandomButton, 720, 370, 60, 30, "Random", BS_DEFPUSHBUTTON)
ButtonGadget(giElizaButton, 720, 340, 60, 30, "ELIZA", BS_DEFPUSHBUTTON)
SetFocus(Gadgetid(giInputEdit))                  ' focus on the editor 2
UpdateInfoXserver()                              ' for linux , so that xserver has time to update the information

AddKeyboardShortcut(hMainForm, FVIRTKEY, VK_RETURN, siDefKey)

dim shared isEliza as boolean = false

Sub speak(text as string ptr)
	#Ifdef __FB_LINUX__
		Shell( "espeak-ng -v us-mbrola-2 -s 120 " & chr(34) & *text & chr(34))
	#Else
		'    shell( "voice -r -1 -n " & Chr(34) & TTSvoice & Chr(34) & " " & Chr(34) & *text & Chr(34))
		'TTS.Voice("Microsoft Sam")
		TTS.VoiceByID(0)
		TTS.Speak( *text, True )
	#endif
End Sub

sub DefaultButtonPressed()
	Dim As String respond(5) = {"why don't you talk to me?", "am i boring you?", "a penny for your thoughts", "what's on your mind?", "how are you my friend?"}
	Var text = GetGadgetText(giInputEdit)
	writefile2 ("You: " + text)
	dim ans as string
	if isEliza = false then
		ans = commands(text)
	else
		ans = GetReply(text)
	endif
	if (timer - start) > 600 then
		ans = respond(int(rnd*(ubound(respond)+1)))
	EndIf
	writefile2 ("Danny: " + ans)
	SetGadgetText(giInputEdit, "")
	Var reply1 = GetGadgetText(giOutputEdit)
	SetGadgetText(giOutputEdit, reply1 + Chr(10) + "You: " + text + Chr(10) + "Danny: " + ans)
	'threadcreate for TTS speak function (sub) shell command
	static as any ptr a :if a then ThreadWait(a)
	Static as string sTemp :sTemp = ans
	a = ThreadCreate(cast(any ptr, @Speak), @sTemp)
	LineScrollEditor(giInputEdit, 10)
	LineScrollEditor(giOutputEdit, 10)
	start = timer
end sub

sub ReplayButtonClick()
	if (fileexists(file) = true) then
		'dim as string replay(any)
		'ReadLogFile( file, replay() )
		'Var reply1 = GetGadgetText(giOutputEdit)
		'SetGadgetText(giOutputEdit, reply1 + Chr(10) + "-------- CONVERSTATION REPLAY -------" + chr(10))
		'for N as long = 0 to ubound(replay)
		'var line1 = getgadgettext(giOutputEdit)
		'setgadgettext(giOutputEdit, line1 + chr(10) + replay( N ) + chr(10))
		'linescrolleditor(giOutputEdit, 15)
		'Next
		'var replay2 = getgadgettext(giOutputEdit)
		'setgadgettext(giOutputEdit, replay2 + chr(10) + "--------- END OF REPLAY -----------" + chr(10))
		'linescrolleditor(giOutputEdit, 15)
		#ifdef __fb_linux__
			shell("xdg-open "+ file ) 'https://youtu.be/MUTz3LQEq1Q")
		#else
			shell("start " + file ) 'https://youtu.be/MUTz3LQEq1Q")
			'				shell("start /unix /usr/bin/firefox https://youtu.be/MUTz3LQEq1Q")
		#endif
	else
		var replay3 = getgadgettext(giOutputEdit)
		setgadgettext(giOutputEdit, replay3 + chr(10) + "NO LOG FILE EXISTS!" + chr(10))
		linescrolleditor(giOutputEdit, 5)
	END IF
	SetFocus(Gadgetid(giInputEdit))
End Sub

sub deleteButtonClick()
	Dim result As Integer = Kill( file )
	kill(questions)
	kill(answers)
	if result = 0 then var replay5 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, replay5+ chr(10) + "CONVERSATION LOG FILE BEEN DELETED!" + chr(10))
	linescrolleditor(giOutputEdit, 5)
	SetFocus(Gadgetid(giInputEdit))
End Sub

dim shared as long switch

sub buttonLeranClick()
	if switch = 0 then
		islearnMode = true
		var past1 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past1+chr(10)+ "LEARN MODE NOW ENABLED!" +chr(10))
		linescrolleditor(giOutputEdit, 5)
		switch = 1
	elseif switch = 1 then
		isLearnMode = false
		var past2 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past2+chr(10)+ "LEARN MODE NOW DISABLED!" +chr(10))
		linescrolleditor(giOutputEdit, 5)
		switch = 0
	end if
	SetFocus(Gadgetid(giInputEdit))
End Sub

sub AnnButtonClick()
	if isnna = false then
		isnna = true
		var past3 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past3+chr(10)+"WEAK ANN MODE NOW ENABLED!"+chr(10))
		linescrolleditor(giOutputEdit, 5)
	else
		isnna = false
		var past4 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past4+chr(10)+"WEAK ANN MODE NOW DISABLED!"+chr(10))
		linescrolleditor(giOutputEdit, 5)
	EndIf
	SetFocus(Gadgetid(giInputEdit))
End Sub

sub randomButtonClick()
	if israndom = false then
		israndom = true
		var past5 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past5+chr(10)+"RANDOM NOW ENABLED!"+chr(10))
		linescrolleditor(giOutputEdit, 5)
	else
		israndom = false
		var past6 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past6+chr(10)+"RANDOM MODE NOW DISABLED!"+chr(10))
		linescrolleditor(giOutputEdit, 5)
	EndIf
	SetFocus(Gadgetid(giInputEdit))
End Sub

sub elizaButtonClick()
	if isEliza = false then
		isEliza = true
		var past7 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past7+chr(10)+"NOW TALING TO ELIZA AS DANNY!"+chr(10))
		linescrolleditor(giOutputEdit, 5)
	else
		isEliza = false
		var past8 = getgadgettext(giOutputEdit) : setgadgettext(giOutputEdit, past8+chr(10)+"NOW TALKING TO DANNY NOT AS ELIZA!"+chr(10))
		linescrolleditor(giOutputEdit, 5)
	EndIf
	SetFocus(Gadgetid(giInputEdit))
End Sub

sub size_change( WinWid as long , WinHei as long )
	SetGadgetFont(giOutputEdit, CINT(LoadFont( "MS Dialog", ScaleY(11))))
	SetGadgetFont(giInputEdit, CINT(LoadFont( "MS Dialog", ScaleY(11))))
	Resizegadget(giOutputEdit,ScaleX(10),ScaleY(10), ScaleX(700), ScaleY(340))
    Resizegadget(giInputEdit,ScaleX(10), ScaleY(350), ScaleX(700), ScaleY(190))
    Resizegadget(giTalkButton,ScaleX(720), ScaleY(520), ScaleX(60), ScaleY(30))
    Resizegadget(giReplayButton,ScaleX(720),ScaleY(490),ScaleX(60),ScaleY(30))
    Resizegadget(giDeleteButton,ScaleX(720),ScaleY(460),ScaleX(60),ScaleY(30))
    Resizegadget(giLearnButton,ScaleX(720),ScaleY(430),ScaleX(60),ScaleY(30))
    Resizegadget(giAnnButton,ScaleX(720),ScaleY(400),ScaleX(60),ScaleY(30))
    Resizegadget(giRandomButton,ScaleX(720),ScaleY(370),ScaleX(60),ScaleY(30))
    Resizegadget(giElizaButton,ScaleX(720),ScaleY(340),ScaleX(60),ScaleY(30))
end sub


Do

	select case WaitEvent()
		case Eventsize
			if EventHwnd=hMainForm then
			size_change( WindowWidth(hMainForm) , WindowHeight(hMainForm) )
			endif
			continue do
			
		case EventMenu
			if EventNumber = siDefKey then DefaultButtonPressed()
		case EventClose
			'if EventHwnd() = hSecondForm then
			'close_window(hSecondForm)
			'else
			freeMusic()                                     'if eventclose = hMainForm then
			End
			'end if
		case EventGadget
			select case EventNumber
				case giTalkButton
					DefaultButtonPressed()
				case giReplayButton
					ReplayButtonClick()
				case giDeleteButton
					deleteButtonClick()
				case giLearnButton
					buttonLeranClick()
				case giAnnButton
					AnnButtonClick()
				case giRandomButton
					randomButtonClick()
				CASE giElizaButton
					elizaButtonClick()
			end select
	end select
Loop
Print
Go Up Pages1
User actions