Jak změnit velikost písma u ovládacího prvku – Delphi – Fórum – Programujte.com

Nainstaloval jsem si Delphi 7 a u programu UC_HEB (zdrojáky jsou uvnitř archivu) chci změnit velikost písma tam kde je hebrejština.

 Takže například zde je toto:

      object Edit1: TEdit
        Left = 0
        Top = 0
        Width = 233
        Height = 27
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = 'Hebrew'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = 'Edit1'
        Visible = False
        OnChange = Edit1Change
        OnEnter = Edit1Enter
        OnExit = Edit1Exit
        OnKeyDown = Edit1KeyDown
        OnKeyUp = Edit1KeyUp
      end

Ale není tam nikde

parametr TextHeight, kterým bych mohl nastavit velikost písma toho konkrétního ovládacího prvku ať už je to vstupní pole nebo tlačítko. Takže bych chtěl vědět jak se to dělá. Jsem úplný začátečník a jde mi jen o změnu velikosti písma u programu.

Vyber prvek co chceš měnit, okno "object inspector" (bývá vlevo), záložka "properties", font -> size.

Dík. Jen provedené změny se neprojevili. Po kompilaci mi to žádnou chybu neukazuje. Dám Run, ale písmo se nezvětšilo.

Přikládám obrázek.

Nepřepisuje se ta velikost až za běhu programu? Jestli je to v těch programech, o jakou přesně komponentu jde (form, název)?

#4 Sniper
Jde mi o UC_HEB1.PAS

Velikost písma se mi povedlo částečně vyřešit.  Alespoň co se mi zobrazují ty odpovědi (jestli jsem vybral správně odpověď nebo špatně).

Když otevřu test tak v levém listboxu (TForm1.ListBox1) viz

Listbox1.Items:=Odpovedi;

se mají zobrazit hebrejské položky. Tyto položky chci zvětšit např. na velikost 20-25 a nemohu přijít na to kde tam se nachází vlastnost Font.Size a Font.Style ... hledám stránku manuálu ale zatím jsem k tomu TListBox nic nenašel.

edit:

Vyřešil jsem to. Našel jsem tam proměnnou

fontsize která přepisovala to co jsem nastavoval...

Ještě mám problém stále u toho modulu UC_HEB1.pas se mi nedaří přijít na to, proč se Label5.font.name nenastaví správně.

Když otevřeš test spustí se

TForm1.otevriTest

a ta připraví hodnoty do listboxu.

Když v levem listboxu (zadání) vidíš české znaky tak font1 = "System"

Když v pravem listboxu (odpověď) vidíš české znaky tak font3 = "Hebrew"

Když vybereš špatnou odpověď vpravo, tak se zobrazí správná odpověď,

ale není tam nastavený správný font, tj. Hebrew,

ve funkci otevriTest jsem zkousel změnit toto:

label5.font.name:=font3;
label5.font.size:=fontsize;
if uppercase(font3)='SYSTEM' then
  begin
   label5.font.name:='Arial CE';
   label5.font.size:=fontsizeCe;
  end
else
  begin
   label5.font.name:='Hebrew';
   label5.font.size:=fontsize-2;
  end;

protože font3 je "Hebrew" tak se to font lable5 má změnit na Hebrew, no ale když se zobrazí text tak je to stále v evropském fontu.

#6 oxidián
Ještě jsem zkoušel do

procedure TForm1.upravpanel;

přidat:

   label5.caption:='POKUS';
   label5.font.name:='Hebrew';

a při špatné odpovědi se zobrazí Správně má být "POKUS", ale není to v hebrejštině. To mi vrtá hlavou proč.

Závěr je takový, že

Přestože label5.font.name je nastaven na hebrejštinu, zobrazuje se to v Arialu. Proč?