Шрифты, языки, кодировки, регионарные стандарты

Как добавить нужный язык в систему

2017-10-22T05:31:02+07:00

Автор: Mekan Gara

Для этого необходимо изменить некоторые ключи в реестре. Например, необходимо добавить Туркменский язык. Конечно, Вам необходимо иметь файл KBD с раскладкой клавиатуры (Turkmen.kbd).

Подробнее...

Как конвертировать кодовую страницу?

2017-10-22T05:10:32+07:00

Все системы с Интернет Explorer 4 и новее есть библиотека mlang.dll в\system32 каталог. Обычно вы можете сказать, Дельфы, чтобы просто импортировать эти библиотеки com. Этот, однако, не Делфи. Я начал преобразования "самых разыскиваемых интерфейс" для себя. Результаты я представляю вам здесь.

Сначала я дам вам код для блока преобразования, который позволяет Вам просто преобразовать любой текст из страницы кодекса перевод на другую. Далее мы вскоре будем обсуждать код и дать вам пример того, как использовать его.

Подробнее...

Как определить локализацию ОС: английская или русская?

2017-10-22T04:44:37+07:00

GetSystemDefaultLangID

Как получить информацию о локальных настройках системы?

2017-10-22T04:46:41+07:00

Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.

Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":

Подробнее...

Как программно переключить раскладку клавиатуры

2017-10-22T05:29:56+07:00

Code:

//На русский

procedure TForm1.Button1Click(Sender: TObject);

var

Layout: array[0.. KL_NAMELENGTH] of char;

begin

LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);

end;

Подробнее...

Как прочитать русский текст MS-DOS

2017-10-22T05:35:41+07:00

Для перекодировки из Win(1251) кодовой страницы в Dos(866) кодовую страницу и обратно используются функции:

CharToOEM

OEMToChar

CharToOEMBuff

OEMToCharBuff

OemToAnsi

AnsiToOem:

Пример чтения текста dos из файла в memo

Подробнее...

Как узнать является ли окно Unicode?

2017-10-22T05:24:50+07:00

Функция IsWindowUnicode определяет, является ли указанное окно собственным окном Юникода

Набор символов окна определяется с помощью функции RegisterClass. Если класс окна зарегистрирован в АНСИ версии непредвиденное registerclass (RegisterClassA),

набор символов окна является ANSI. Если класс окна был зарегистрирован в Юникоде версия непредвиденное registerclass (RegisterClassW), набор символов окно в Юникоде.

Система автоматического двустороннего перевода (Юникода в ANSI) для окна Сообщений. Например, если сообщение окна ANSI отправляется в окно, использующее набор символов Юникода,

перед вызовом процедуры окна система преобразует это сообщение в сообщение Юникода. Система вызывает IsWindowUnicode, чтобы определить, следует ли переводить сообщение.

Подробнее...

Как узнать язык Windows по умолчанию

2017-10-22T05:32:38+07:00

GetSystemDefaultLangID

GetSystemDefaultLCID

GetLocaleInfo

Какой язык на данный момент на клавиатуре?

2017-10-22T04:43:23+07:00

Используй GetKeyboardLayoutName

Автор ответа: Mikel

Подробнее...

Перекодирование из одних кодировок в другие

2017-10-22T04:50:54+07:00

Этот алгоритм позволяет перекодировать текст.

Реализованы кодировки Windows-1251, KOI8-R, ISO-8859-5 и DOS.

Кодировка – это таблица, в которой указано, например, что символ под номером 160 - это русская буква "а", а под номером 150 – "Ц" и т. д.

Кодировки различаются номерами русских букв (как располагать английские буквы договорились).

Разные компьютеры в Интернете используют разные кодировки. И поэтому, когда русский текст идет по Интернету, его многократно перекодируют.

Этот алгоритм обеспечивает высокую скорость перекодирования больших объемов данных.

Подробнее...

Распознавание кодировки

2017-10-22T05:22:32+07:00

Алгоритм распознавания кодировки нужен для автоматического декодирования текста. Этот алгоритм основан на том, что некоторые буквы русского алфавита встречается очень часто, а некоторые редко. Поскольку этот способ статистический, то лучше всего он работает с большими текстами.

Подробнее...

Регионарные стандарты

2017-10-22T05:33:34+07:00

В Дельфи есть предопределенные переменные языковых установок и форматов:

Подробнее...

Список установленных раскладок клавиатуры

2017-10-22T05:28:47+07:00

Code:

procedure GetKLList(List: TStrings);

var

AList : array [0..9] of Hkl;

AklName: array [0..255] of Char;

i: Longint;

begin

List.Clear;

for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do

begin

GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));

List.AddObject(AklName, Pointer(AList[i]));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

GetKLList(ListBox1.Items);

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

with Sender as TListBox do

ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);

end;

Транслитерация

2017-10-22T05:25:58+07:00

Например, молоко - moloko. И всё.

Вот пример функции, которая транслирует из русских слов в английские.

Пригодилась, когда нужно было файлы в mp3-плеер перегонять - он русский не понимает.

Подробнее...

Узнать текущую раскладку клавиатуры в любом активном окне

2017-10-22T05:27:53+07:00

Узнать текущую раскладку клавиатуры в любом активном окне

возвращает числовое значение соответственно установленной раскладке

Зависимости: windows

Подробнее...

Вертикальный текст

2017-10-22T04:27:39+07:00

Code:

var

Hfont: Thandle;

logfont: TLogFont;

font: Thandle;

count: integer;

begin

LogFont.lfheight := 30;

logfont.lfwidth := 10;

logfont.lfweight := 900;

LogFont.lfEscapement := -200;

logfont.lfcharset := 1;

logfont.lfoutprecision := out_tt_precis;

logfont.lfquality := draft_quality;

logfont.lfpitchandfamily := FF_Modern;

font := createfontindirect(logfont);

Selectobject(Form1.canvas.handle, font);

SetTextColor(Form1.canvas.handle, rgb(0, 0, 200));

SetBKmode(Form1.canvas.handle, transparent);

{textout(form1.canvas.handle,10,10,'Повернутый',7);}

for count := 1 to 100 do

begin

canvas.textout(Random(form1.width), Random(form1.height), 'Повернутый');

SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255),

Random(255)));

end;

deleteobject(font);

end;

Вывести полупрозрачный текст

2017-10-22T04:27:00+07:00

Code:

procedure TForm1.FormPaint(Sender: TObject);

var

x, y: integer;

bm: TBitMap;

begin

Form1.ClientWidth := 200;

Form1.ClientHeight := 100;

randomize;

for x := 0 to 199 do

for y := 0 to 99 do

if random(3) = 1 then

Form1.Canvas.Pixels[x,y] := clGreen

else

Form1.Canvas.Pixels[x,y] := clLime;

bm := TBitMap.Create;

bm.Width := 200;

bm.Height := 100;

with bm.Canvas do

begin

Brush.Color := clGreen;

FillRect(ClipRect);

Font.name := 'Arial';

Font.Size := 50;

Font.Color := clGray;

Font.Style := [fsBold];

TextOut((bm.Width - TextWidth('Text')) div 2,

(bm.Height - TextHeight('Text')) div 2, 'Text');

end;

Form1.Canvas.CopyMode := cmSrcPaint;

Form1.Canvas.CopyRect(bm.Canvas.ClipRect, bm.Canvas,

bm.Canvas.ClipRect);

bm.Destroy;

end;

Изменение регистра букв

2017-10-22T04:21:50+07:00

В Delphi есть три функции для изменения регистра: upcase, lowercase, uppercase. Но они работают только для латинского алфавита. Чтобы сделать аналогичные функции для русского алфавита я использовал то, что в кодировке Windows-1251 буквы расставлены по алфавиту, как большие, так и маленькие. То есть номер большой буквы связан с номером маленькой константой. И в русском, и в английском алфавитах маленькие буквы находятся за большими с разностью в 32 символа. Здесь реализованы четыре функции: upcase и locase для изменения регистра одного символа, и uppercase и lowercase для изменения регистра строки

Подробнее...

Как вывести текст с красивым обрезанием если не помещается?

2017-10-22T04:28:29+07:00

Используй вызов DrawTextEx, установив в параметре dwDTFormat значение DT_PATH_ELLIPSIS.

Подробнее...

Как выдать текст под наклоном?

2017-10-22T04:26:13+07:00

Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts (например "Arial"). Например:

Подробнее...

Как изменить фоновый цвет текста?

2017-10-22T04:29:48+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

OldTextColor: TColorRef;

OldBkColor: TColorRef;

OldBkMode: Integer;

begin

OldTextColor := SetTextColor(Form1.Canvas.Handle, clYellow);

OldBkColor := SetBkColor(Form1.Canvas.Handle, clGreen);

OldBkMode := SetBkMode(Form1.Canvas.Handle, OPAQUE);

TextOut(Form1.Canvas.Handle, 20, 20, 'Delphi World - лучше всех! ;-)', 27);

SetBkMode(Form1.Canvas.Handle, OldBkMode);

SetBkColor(Form1.Canvas.Handle, OldBkColor);

SetTextColor(Form1.Canvas.Handle, OldTextColor);

end;

Автор: Олег Кулабухов

Как сделать фон у текста прозрачным?

2017-10-22T04:38:09+07:00

Для этого можно воспользоваться API функцией SetBkMode().

Подробнее...

Каким обpазом выбиpать pазмеp шpифта?

2017-10-22T04:30:47+07:00

Автор: Nomadic

Каким обpазом выбиpать pазмеp шpифта, т.к. все мои стpадания по выбоpyпаpаметpов шpифта в CreateFont() никак не отpажались на его pазмеpе. Все что я пpидyмал, это юзать glScale(), но в этом слyчае полyчаем плохое качество (по сpавнению с той-же Воpдой) пpи малом pазмеpе символов

Вот часть работающего примера на Си (переведенного мною на Паскаль (АА)).

Подробнее...

Свойства шрифта Style и Color в виде строки

2017-10-22T04:36:20+07:00

Как мне получить значение Font.Style и Font.Color в виде строки, я хотел бы присвоить его заголовку компонента Label, но style и color не являются строковыми величинами.

Есть масса способов это сделать, но я использую следующий способ:

Подробнее...

Сохранение свойств шрифтов

2017-10-22T04:33:00+07:00

Code:

//Saving and restoring font properties in the registry

Uses typInfo, Registry;

Function GetFontProp( anObj: TObject) : TFont;

Var

PInfo: PPropInfo;

Begin

{ try to get a pointer to the property information for a property with the

name 'Font'. TObject.ClassInfo returns a pointer to the RTTI table,

which

we need to pass to GetPropInfo }

PInfo := GetPropInfo( anObj.ClassInfo, 'font' );

Result := Nil;

If PInfo <> Nil Then

{ found a property with this name, check if it has the correct type }

If (PInfo^.Proptype^.Kind = tkClass) and

GetTypeData(PInfo^.Proptype^)^.ClassType.InheritsFrom(TFont)

Then

Result := TFont(GetOrdProp( anObj, PInfo ));

End; { GetfontProp }

Function StyleToString( styles: TFontStyles ): String;

var

style: TFontStyle;

Begin

Result := '[';

For style := Low(style) To High(style) Do Begin

If style IN styles Then Begin

If Length(result) > 1 Then

result := result + ',';

result := result + GetEnumname( typeInfo(TFontStyle), Ord(style));

End; { If }

End; { For }

Result := Result + ']';

End; { StyleToString }

Function StringToStyle( S: String ): TFontStyles;

Var

sl : TStringlist;

style: TfontStyle;

i : Integer;

Begin

Result := [];

If Length(S) < 2 Then Exit;

If S[1] = '[' Then

Delete(S, 1, 1);

If S[Length(S)] = ']' Then

Delete(S, Length(S), 1);

If Length(S) = 0 Then Exit;

sl:= TStringlist.Create;

try

sl.commatext := S;

For i := 0 To sl.Count-1 Do Begin

try

style := TFontStyle( GetEnumValue( Typeinfo(TFontStyle), sl[i] ));

Include( Result, style );

except

end;

End; { For }

finally

sl.free

end;

End; { StringToStyle }

Procedure SaveFontProperties( forControl: TControl;

toIni: TRegInifile;

const section: String );

Var

font: TFont;

basename: String;

Begin

Assert( Assigned( toIni ));

font := GetFontProp( forControl );

If not Assigned( font ) Then Exit;

basename := forControl.Name+'.Font.';

toIni.WriteInteger( Section, basename+'Charset', font.charset );

toIni.WriteString ( Section, basename+'Name', font.Name );

toIni.WriteInteger( Section, basename+'Size', font.size );

toIni.WriteString ( Section, basename+'Color',

'$'+IntToHex(font.color,8));

toIni.WriteString ( Section, basename+'Style',

StyleToString( font.Style ));

End; { SaveFontProperties }

Procedure RestoreFontProperties( forControl: TControl;

toIni: TRegInifile;

const section: String );

Var

font: TFont;

basename: String;

Begin

Assert( Assigned( toIni ));

font := GetFontProp( forControl );

If not Assigned( font ) Then Exit;

basename := forControl.Name+'.Font.';

font.Charset :=

toIni.ReadInteger( Section, basename+'Charset', font.charset );

font.Name :=

toIni.ReadString ( Section, basename+'Name', font.Name );

font.Size :=

toIni.ReadInteger( Section, basename+'Size', font.size );

font.Color := TColor( StrToInt(

toIni.ReadString ( Section, basename+'Color',

'$'+IntToHex(font.color,8))

));

font.Style := StringToStyle(

toIni.ReadString ( Section, basename+'Style',

StyleToString( font.Style ))

);

End; { RestoreFontProperties }

Подробнее...

Управление настройками шрифта

2017-10-22T04:23:12+07:00

Данный код изменяет стиль шрифта поля редактирования, если оно выбрано. Может быть адаприрован для управления шрифтами в других объектах.

Подробнее...

Хранение стилей шрифта

2017-10-22T04:37:28+07:00

Как мне сохранить свойство шрифта Style, ведь он же набор?

Вы можете получать и устанавливать FontStyle через его преобразование к типу byte.

Для примера:

Подробнее...

Вывод шрифтов в списке в виде самих шрифтов

2017-10-20T18:41:35+07:00

Code:

unit Fontlist;

interface

uses

Windows, Classes, Graphics, Forms, Controls, StdCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Label1: TLabel;

FontLabel: TLabel;

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure DrawItem(Control: TWinControl; index: Integer; Rect: TRect;

State: TOwnerDrawState);

procedure ListBox1MeasureItem(Control: TWinControl; index: Integer;

var Height: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Listbox1.Items := Screen.Fonts;

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

FontLabel.Caption := ListBox1.Items[ListBox1.ItemIndex];

end;

procedure TForm1.DrawItem(Control: TWinControl; index: Integer;

Rect: TRect; State: TOwnerDrawState);

begin

with ListBox1.Canvas do

begin

FillRect(Rect);

Font.name := ListBox1.Items[index];

Font.Size := 0; // use font's preferred size

TextOut(Rect.Left+1, Rect.Top+1, ListBox1.Items[index]);

end;

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; index: Integer;

var Height: Integer);

begin

with ListBox1.Canvas do

begin

Font.name := Listbox1.Items[index];

Font.Size := 0; // use font's preferred size

Height := TextHeight('Wg') + 2; // measure ascenders and descenders

end;

end.

Защита приложений от крупных шрифтов

2017-10-20T18:51:56+07:00

Вы когда-нибудь проверяли как будет выглядеть написанная вами с такой любовью программа с системе с крупными шрифтами? Согласитесь, это неприглядное зрелище. Наползающие друг на друга метки и поля редактирования, надписи, которые заканчиваются где то за пределами формы и т.п. После этого появляется неконтролируемая неприязнь к пользователям, которые предпочитают режим крупных шрифтов. Но это их право. И ваша проблема.

Подробнее...

Как выяснить установлены ли в системе шрифты TrueType

2017-10-20T18:18:57+07:00

Code:

function IsTrueTypeInstalled: bool;

var

{$IFDEF WIN32}

rs : TRasterizerStatus;

{$ELSE}

rs : TRasterizer_Status;

{$ENDIF}

begin

result := false;

if not GetRasterizerCaps(rs, sizeof(rs)) then

exit;

if rs.WFlags and TT_AVAILABLE <> TT_AVAILABLE then

exit;

if rs.WFlags and TT_ENABLED <> TT_ENABLED then

exit;

result := true;

end;

Как добавить True Type шрифт в систему?

2017-10-20T18:17:14+07:00

Чтобы установить шрифт в систему, необходимо скопировать файл шрифта в 'Windows\Fonts' и добавить ключ в реестр:

'Software\Microsoft\Windows\CurrentVersion\Fonts'

Этот ключ указывает на файл шрифта. Далее запускаем API функцию 'AddFontRecource'. В заключении нужно уведомить систему широковещательным сообщением.

Подробнее...

Как использовать не установленный шрифт?

2017-10-20T17:51:24+07:00

Зарегистрировать шрифт:

AddFontResource('путь к фонту\\Algerian.ttf');

Объект.Font.Name:="Algerian";

Удалить -

RemoveFontResource('путь к фонту\\Algerian.ttf');

Автор Alex101

Как приложению воспользоваться своими шрифтами?

2017-10-20T18:43:56+07:00

Может ли кто-нибудь подсказать или решить такую проблему: мне нужно убедиться, что мое приложение использует доступные, а не ближайшие шрифты, установленные пользователем в системе? Я пробовал копировать файл #.ttf в директорию пользователя windows\system, но мое приложение так и не смогло их увидеть и выбрать для дальнейшего использования.

Ниже приведен код для Delphi, который динамически устанавливает шрифты, загружаемые только во время работы приложения. Вы можете расположить файл(ы) шрифтов в каталоге приложения. Они будут инсталлированы при загрузке формы и выгружены при ее разрушении. Вам возможно придется модифицировать код для работы с Delphi 2, поскольку он использует вызовы Windows API, которые могут как измениться, так и нет. Если в коде вы видите "...", то значит в этом месте может располагаться какой-либо код, не относящийся к существу вопроса.

Подробнее...

Как узнать размеры шрифтов в Windows?

2017-10-20T18:16:27+07:00

Как определить, какой шрифт установлен в системе, большой или маленький

Следующуя функция возвращает true, если маленькие шрифты установлены в системе. Так же можно заменить строку 'Result := (GetDeviceCaps(DC, logpixelsx) = 96);' на 'Result := (GetDeviceCaps(DC, logpixelsx) = 120);' чтобы определять - установлены ли в системе крупные шрифты.

Подробнее...

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

2017-10-20T18:44:27+07:00

Code:

function SmallFonts: Boolean;

{Значение функции TRUE если мелкий шрифт}

var

DC: HDC;

begin

DC := GetDC(0);

Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);

{ В случае крупного шрифта будет 120}

ReleaseDC(0, DC);

end;

Масштабирование размера формы и размера шрифтов

2017-10-20T18:45:19+07:00

Когда мои программы работают на системах с установленными маленькими шрифтами, я получаю странный вид моей формы. К примеру, расположенные на форме компоненты Label становятся малы для размещения указанного теста, обрезая его в правой или нижней части. StringGrid не осуществляет положенного выравнивания и т.д.

Попробуй следующий код. Он масштабирует как размер формы, так и размер шрифтов. Вызывай его в Form.FormCreate. Надеюсь это поможет.

Подробнее...

Нормальная процедура отображения графических шрифтов

2017-10-20T18:55:25+07:00

Сразу рассмотрим плюсы и минусы помещения каждой буквы в отдельное изображение!

Плюсы :

1.Более быстрая отрисовка (так как ищется только номер картинки).

2.Буквы рисуются аккуратно, на одинаковом расстоянии друг от друга.

Подробнее...

Получение имени шрифта, зная имя файла шрифта

2017-10-20T18:47:50+07:00

function GetFontResourceInfoW (FontPath : PWideChar; var BufSize : DWORD; FontName : PWideChar; dwFlags : DWORD) : DWORD; stdcall; external 'GDI32.DLL';

1-ый параметр - указатель на Wide-строку, содержащую путь к файлу шрифта;

2-ой параметр - указатель на DWORD-переменную, содержащую размер выходного буфера. После выполнения функции в этой переменной будет содержаться необходимая длина буфера;

3-ий параметр - указатель на буфер, в случае успешного выполнения будет содержать Wide-строку имени шрифта;

4-ый параметр - какие-то флаги, если рыться в функции GetFontResourceInfoW особым случаем является когда dwFlags=4, но зачем это, я так и не понял - в результате будет возвращен тот же путь к файлу; ну а для получения имени шрифта флаг должен быть равен 1.

Подробнее...

Работа с Казахскими шрифтами

2017-10-20T18:50:17+07:00

Работа с КАЗАХСКИМИ ШРИФТАМИ.
Здравствуйте Уважаемые Господа Програмисты.
Моя небольшая статья будет, скорее всего, интересна програмистам из региона - КАЗАХСТАН.
Так как програмисты проживающиее и работающие в этом регионе чаще всего встречаются
с проблемой вывода нестандартных КАЗАХСКИХ ШРИФТОВ.

Подробнее...

Различные разрешения - различные размеры шрифтов

2017-10-20T18:46:20+07:00

Я также долго мучился над проблемой решения этого вопроса, и ниже я излагаю свои выводы на основании моих многочисленных экспериментов.

Свойство, отвечающее за размер шрифта важно, но не менее важны в этом вопросе и другие характеристики.

Подробнее...

Список шрифтов, совместимых одновременно с экраном и с принтером

2017-10-20T18:53:38+07:00

Эти установки должны показать шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно и с экраном и с принтером.

Подробнее...

Является ли шрифт шрифтом с фиксированной шириной?

2017-10-20T18:40:58+07:00

Code:

procedure TConsole.FontChanged(Sender: TObject);

var

DC: HDC;

Save: THandle;

Metrics: TTextMetric;

Temp: string;

begin

if Font.Handle <> FOldFont.Handle then

begin

DC := GetDC(0);

Save := SelectObject(DC, Font.Handle);

GetTextMetrics(DC, Metrics);

SelectObject(DC, Save);

ReleaseDC(0, DC);

if not (((Metrics.tmPitchAndFamily and ff_Modern) <> 0) and

((Metrics.tmPitchAndFamily and $01) = 0)) then

begin

Temp := 'TConsole: ' + Font.Name +

' не является шрифтом с фиксированной шириной';

Font.Name := FOldFont.Name; { Возвращаем предыдущие атрибуты шрифта }

raise EInvalidFont.Create(Temp);

end;

SetMetrics(Metrics);

end;

FOldFont.Assign(Font);

if csDesigning in ComponentState then

InternalClrScr;

end;