Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
AW: Konsolenanwendung, Schriftgröße ändern
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;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (20. Aug 2011 um 19:57 Uhr)
|