V tomto díle bych chtěl popsat vytvoření nastavení pro váš
poznámkový blok. Soubory vytvořené v poznámkovém bloku budou vždy
uloženy jako text bez formátovacích znaků. To znamená, že nejde
udělat, aby nadpis měl větší písmo, důležité věci byly tučně atd.
Ale je možně si nastavit svůj vlastní poznámkový blok tak, aby text
zobrazoval určitým fontem písma a zarovnal jej na střed, vlevo nebo
vpravo. Také je možné zvolit si pozadí, na kterém bude text vypsán
(v Notepadu je implicitně bílé a nejde změnit stejně jako zarovnání
textu). Doporučuji si přidat v hlavním menu další položku
Nastavení a do ní poté vložit položky Vybrat a
Zarovnat. Poté na ně kliknout pravým tlačítkem a zvolte
Create Submenu (Ctrl+pravá šipka). Do Vybrat poté vložte
položky Písmo a Barvu a do Zarovnat vložte
Na levo, Na střed a Na pravo. Položce Na
levo zakrkněte Checked na true. Tak jsem to udělal
já. Vy si to samozřejmě můžete udělat jak chcete.
Změna Písma: Na form si musíte vložit komponentu
TFontdialog, pomocí které dáte uživateli na výběr font.
Font této komponenty nejprve nastavíte na font, který má
Editor, poté dáte uživateli možnost změnit font komponenty
Tfontdialog a změněný font přiřadíte Editoru. Asi jsem
to popsal strašně složitě, ale doufám, že ze zdrojáku pochopíte, co
jsem chtěl říci.
procedure Tzakladni.Psmo1Click(Sender: TObject);
begin
Fontdialog1.font:=Editor.font;
if FontDialog1.Execute then
Editor.Font := FontDialog1.Font;
end;
Změna barvy pozadí: Na form si musíte vložit
komponentu TColordialog. Jinak je to analogické k
předchozímu.
procedure Tzakladni.Barvu1Click(Sender: TObject);
begin
ColorDialog1.color:=editor.color;
if ColorDialog1.Execute then
Editor.Color := ColorDialog1.Color
end;
Zarovnat: Zarovnání
udává proměnná Alignment objektu Editor.
Editor.Alignment:=taCenter; //zarovná na střed
Editor.Alignment:=taRightJustify; //zarovná vpravo
Editor.Alignment:=taLeftJustify; //zarovná vlevo
Já to ovšem řešil tak, že položky v nabídce zarovnat jsem si
pojmenoval levo,pravo stred a přiřadil jim na
event OnClick následující procedury:
procedure Tzakladni.levoClick(Sender: TObject);
begin
Editor.Alignment:=taLeftJustify;
pravo.checked:=false;
stred.checked:=false;
levo.checked:=true;
end;
procedure Tzakladni.pravoClick(Sender: TObject);
begin
Editor.Alignment:=taRightJustify;
levo.checked:=false;
stred.checked:=false;
pravo.checked:=true;
end;
procedure Tzakladni.stredClick(Sender: TObject);
begin
Editor.Alignment:=taCenter;
pravo.checked:=false;
levo.checked:=false;
stred.checked:=true;
end;
Všechna tato výše zmiňovaná
nastavení se ovšem po zavření a otevření aplikace nezachovávají, a
proto by bylo dobré je ukládat. Nabízejí se zde tři cesty: Ukládat
nastavení do textového souboru, do ini souboru, nebo použít frame z
článku Univerzální ukládání konfigurace do DB
(pokud byste ale chtěli jít touto cestou, museli byste nastavení
udělat trochu jinak- na zvláštní form a pomocí Tcheckboxů a stejně
byste museli nějak vyřešit ukládání barvy a fontu). Já si vybral
cestu první a jak jsem to řešil vám přiblížím v dalším díle.