Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Как добавить True Type шрифт в систему
Чтобы установить шрифт в систему, необходимо скопировать файл шрифта в 'WindowsFonts' и добавить ключ в реестр:
'SoftwareMicrosoftWindowsCurrentVersionFonts'
Этот ключ указывает на файл шрифта. Далее запускаем API функцию 'AddFontRecource'. В заключении нужно уведомить систему широковещательным сообщением.
usesRegistry; procedure
TForm1.Button1Click(Sender: TObject); var
hReg: TRegistry; hBool : bool; begin
CopyFile('C:DOWNLOADFP000100.TTF', 'C:WINDOWSFONTSFP000100.TTF', hBool); hReg := TRegistry.Create; hReg.RootKey := HKEY_LOCAL_MACHINE; hReg.LazyWrite := false
; hReg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionFonts', false
); hReg.WriteString('TESTMICR (TrueType)','FP000100.TTF'); hReg.CloseKey; hReg.free; //Добавляем ресурс шрифта AddFontResource('c:windowsfontsFP000100.TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); //Убираем блокировку ресурса RemoveFontResource('c:windowsfontsFP000100.TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end
;