Ustalenie, czy używane są duże, czy małe czcionki
Aby po kliknięciu przycisku Button1 ustalić, czy używane są duże, czy małe czcionki:
void __fastcall TForm1::Button1Click(TObject *Sender) { if(Screen->PixelsPerInch == 96) ShowMessage("Używane są małe czcionki"); else if(Screen->PixelsPerInch == 120) ShowMessage("Używane są duże czcionki"); else { float Ratio = ((float)Screen->PixelsPerInch) / 96.0; Ratio *= 100.0; ShowMessage("Rozmiar czcionki jest ustawiony na " + IntToStr((int)Ratio) + " %"); } }