Font Grösse Ändern in der Console

[Skyhawk]

Hallo,
tja meine ersten gehversuche mach ich gerade mit nem doch stark modifiziertem "Hallo World" Programm, aber ich vermisse die
Funktion die Font grösse zu ändern bzw. habe den befehl nicht gefunden,

gibt es da keinen für die Consolen oberfläche??

[MVXA]

Nö. Wie hast du dir das vorgestellt. Die Konsole ist kein Editorgadget. Hier eine Liste mit Funktionen, die du in deinem Programm ausführen kannst, sofern du die Vollversion von PB besitzt. Andernfalls musst du die DLL Kernel32.dll manuel öffnen und die Funktion so ausführen.

http://msdn.microsoft.com/library/defau ... ctions.asp

[Skyhawk]

habs mir schon gedacht das dies nicht möglich ist inner Console.

Hätte ja sein können das ich nur den befehl nicht gefunden habe, aber wenns ned geht

Thx

[Hroudtwolf]

Damit sollte es möglich sein. Bei mir funktioniert es jeden falls prima.
Ich bin durch Zufall drauf gestossen weil ich grad an einem (Konsolen)Batch-Interpreter bastel.
Ich wusste von Anfang an, daß es möglich ist. Weil kein Grund dagegen spricht. Nur hab ich die Console immer wie ein normales Fenster behandeln wollen.
Man lernt dazu.

Code: Alles auswählen

;/***************************************************/;
;/**         Xtended Console Version 1.1.0         **/;
;/**  (c) 2003 by NoOneKnows <NoOneKnows@Gmx.de>   **/;
;/***************************************************/;
Procedure ConsoleWindowCharSize(characterWidth.l, characterHeight.l)
    consoleInfo.CONSOLE_SCREEN_BUFFER_INFO
    GetConsoleScreenBufferInfo_(gStdOut, @consoleInfo)

    rect.SMALL_RECT
    rect\bottom = characterHeight - 1
    rect\right = characterWidth - 1

    If rect\bottom > consoleInfo\dwSize\y
        rect\bottom = consoleInfo\dwSize\y - 1
    EndIf
    If rect\right > consoleInfo\dwSize\x
        rect\right = consoleInfo\dwSize\x - 1
    EndIf
    SetConsoleWindowInfo_(gStdOut, 1, @rect)
EndProcedure

[bobobo]

@Hroudtwolf
Es geht um den Font , nicht um die Fenstergröße.

Code: Alles auswählen

;/***************************************************/;
;/**         Xtended Console Version 1.1.0         **/;
;/**  (c) 2003 by NoOneKnows <NoOneKnows@Gmx.de>   **/;
;/***************************************************/;
Global gStdOut.l
Procedure ConsoleWindowCharSize(handle,characterWidth.l, characterHeight.l)
    consoleInfo.CONSOLE_SCREEN_BUFFER_INFO
    GetConsoleScreenBufferInfo_(gStdOut, @consoleInfo)
    
    rect.SMALL_RECT
    rect\bottom = characterHeight - 1
    rect\right = characterWidth - 1
    
    If rect\bottom > consoleInfo\dwSize\y
        rect\bottom = consoleInfo\dwSize\y - 1
    EndIf
    If rect\right > consoleInfo\dwSize\x
        rect\right = consoleInfo\dwSize\x - 1
    EndIf
    SetConsoleWindowInfo_(gStdOut, 1, @rect)
    ProcedureReturn gStdOut
EndProcedure


gStdOut=OpenConsole()
Print ("Tach Auch!")
For i= 1 To 80
    ConsoleWindowCharSize(gStdOut,i, 1)
    ;Print ("")
    Delay(7)
Next i
For ii=1 To 23
    ConsoleWindowCharSize(gStdOut,80, ii)
    ;Print ("")
    Delay(8)
Next ii
Input()
For ii=23 To 1 Step -1
    ConsoleWindowCharSize(gStdOut,80, ii)
    Delay(8)
Next ii
For i=80 To 1 Step -1
    ConsoleWindowCharSize(gStdOut,i, 1)
    
    Delay(10)
Next i

CloseConsole()

oder mach ich da was falsch?

[Lukas-P]