Proč nejde změnit font na Hebrew? – Delphi – Fórum – Programujte.com

Potřeboval bych poradit s tímto programem.

Jde mi o modul UC_HEB1

Nakopírujte si font HEBREW.TTF z adresáře FONTY do fontů Windows.

Když spustíte program UC_HEB.exe dostanete hlášku že řecký font není nainstalovaný, to odklepnete. Pak otevřete soubor TEST1.tss. V levém listboxu se vám zobrazí české slovo. V pravém listboxu  něco vyberete a zobrazí se že jste vybrali špatně. Problém je v tom, že se to slovo nezobrazuje v hebrejštině ale v Arial.

Na řádek 643 jsem dal tento kód:

label5.Caption := label5.Caption + ' (' + label5.Font.Name + ') ';

Když tam dáte zarážku tak se vám to zastaví jak kliknete na ten listbox vpravo.

Už nevím co s tím, proč se nechce nastavit hebrejský font na label5, tak snad poradíte.

#1 oxidián
ahoj, celkem jednoduchá pomoc, v návrhu formuláře změň u Label5.Font.Charset z european na default.

A zkontroluj všechny další prvky, kde mají být ty cizí znaky. Případně v Codu všude, kde se mění font.

#1 oxidián
jinak funguje mi to i v D2010, jen je tam třeba v jedné funkci v antiwin.pas - WEXEC změnit typy proměných z char na ansichar jak u pole tak u ukazatele.

Díky moc

a mám ten typ char změnit na ansichar i tady?

function otevri(soubor:string):THandle;
var Fname: PChar;
    achjo: array[0..255] of Char;
    WND:HWND;
begin
strPcopy(achjo,soubor);
FName:=achjo;
WND:=getactivewindow;
otevri:=ShellExecute(WND, Nil, FName , Nil,Nil, SW_SHOWNORMAL);
end;

Oč tam vlastně jde o délku v paměti?