bool __fastcall TForm1::IsBigFont() { bool bRetVal = true; HWND lHwnd; long lPrevMapMode; HDC hdc; TEXTMETRIC tm; lHwnd = GetDesktopWindow(); hdc = GetWindowDC(lHwnd); if (hdc) { lPrevMapMode = SetMapMode(hdc, MM_TEXT); GetTextMetrics(hdc, &tm); lPrevMapMode = SetMapMode(hdc, lPrevMapMode); ReleaseDC(lHwnd, hdc); bRetVal = (tm.tmHeight -> 16); // true == große Schriftarten, false == kleine Schriftarten } return bRetVal; }
Kategorien
-
Neueste Beiträge
- [ABAP] Teilstring/Teilfelder (Offset und Länge) aus einer Zeichenfolge ermitteln
- Energie
- Eine Pfanne mit Brathähnchen (Broiler) zubereiten
- [ABAP] Einkaufsbestelltext zum Material auslesen
- [Raspberry Pi 4] Raspberry Pi 4 in ein C64-Gehäuse einbauen
- [ABAP] Felder im Selektionsbild manuell setzen
- [ABAP] Auslesen der Schnittstelle eines Funktionsbausteins
- [ABAP] Infosätze mit Konditionen pflegen
- Corona
- [MS Word] Alle Verzeichnisse und Felder aktualisieren