Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#4

AW: Konsolenanwendung, Schriftgröße ändern

  Alt 20. Aug 2011, 15:18
Und für einen leichten Delphitouch ginge es auch so:
Delphi-Quellcode:
type
  TCONSOLE_FONT_INFOEX = record
    cbSize : Cardinal;
    nFont : LongWord;
    dwFontSize : TSmallPoint;
    FontFamily : Cardinal;
    FontWeight : Cardinal;
    FaceName : array[1..LF_FACESIZE] of WideChar;
  end;

function SetCurrentConsoleFontEx( ConsoleOutput : THandle; MaximumWindow : BOOL; const ConsoleInfo: TCONSOLE_FONT_INFOEX ) : BOOL; stdcall; external kernel32;
function GetCurrentConsoleFontEx( ConsoleOutput : THandle; MaximumWindow : BOOL; var ConsoleInfo: TCONSOLE_FONT_INFOEX ) : BOOL; stdcall; external kernel32;
$2B or not $2B

Geändert von himitsu (20. Aug 2011 um 19:57 Uhr)
  Mit Zitat antworten Zitat