Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 240 • TDictionary Custom Sort 3 391 • Fast Watermark Sources 3 147 • 3D Designer 4 902 • Sik Screen Capture 3 398 • Patch Maker 3 604 • Айболит (remote control) 3 806 • ListBox Drag & Drop 3 069 • Доска для игры Реверси 82 371 • Графические эффекты 4 002 • Рисование по маске 3 300 • Перетаскивание изображений 2 675 • Canvas Drawing 2 814 • Рисование Луны 2 631 • Поворот изображения 2 241 • Рисование стержней 2 185 • Paint on Shape 1 587 • Генератор кроссвордов 2 265 • Головоломка Paletto 1 787 • Теорема Монжа об окружностях 2 279 • Пазл Numbrix 1 699 • Заборы и коммивояжеры 2 075 • Игра HIP 1 295 • Игра Go (Го) 1 248 • Симулятор лифта 1 493 • Программа укладки плитки 1 238 • Генератор лабиринта 1 564 • Проверка числового ввода 1 384 • HEX View 1 513 • Физический маятник 1 370

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Какой шрифт установлен (крупный или мелкий)

function SmallFonts: Boolean;
{Значение функции TRUE если мелкий шрифт}
var
  DC: HDC;
begin
  DC := GetDC(0);
  Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
  { В случае крупного шрифта будет 120}
  ReleaseDC(0, DC);
end;

Какой шрифт установлен (крупный или мелкий)

Похожие по теме исходники