iReklama  |  PC Svět  |  vyhledávací centrála  |  Diskuzní fórum  |  WWW katalog  |  Guestbook  |  MailForm  |  kontakt: pcsvet@pcsvet.cz - čte si nás 32 čtenářů
 
PC Svět
Hlavní stránka
ASP
Aktuality
Assembler
C,C++
Cracking
Delphi
Diskuze
Grafika
Hardware
Hry a zábava
HTML
Internet
JavaScript
Komunikace
Literatura
Linux
Microsoft Office
Turbo Pascal
Perl
PHP
Software
Tiskové zprávy
Visual Basic
Windows
WWW katalog

Knihovna zdr. kódů

Nabídka skriptů aj.

Homepage autora
Služby
Guestbook
  kniha návštěv pro
  každého
MailForm
  zasílání výsledků
  formulářů na e-mail
Programy
DOS Commander
WinMan
Windows Tools
Informace
O PC Světě
Přehled rubrik
Reklama
Výsledky anket
Přehled novinek


ISSN 1213-6042

šéfredaktor
Petr Šťastný
admin@pcsvet.cz

zástupce šéfredaktora
Pavel Rauš
raus@pcsvet.cz

Stránka je optimalizo-
vána pro prohlížeč
Internet Explorer 5.0
při rozlišení 800x600

 © Petr Šťastný 2002
   All rights reserved

PC Svět
ikonka PC Světa



Linux - zdarma a legálně



TOPlist

Vytisknout   Poslat   Komentáře (0)   Přidat komentář

Napište si svůj vlastní poznámkový blok (3.)

aneb jak na to pro úplné začátečníky - nastavení zarovnávání a písma

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.

Autor: Aleš Kresta, ales.kresta@seznam.cz, informace a seznam článků


Komentáře k článku

Žádné komentáře k tomuto článku

Přidat komentář


Poslední články ze stejné rubriky
Vzhled aplikací v Delphi jako Windows XP
Třídění pixelů podle míry světlosti
Běžící světlo
Jednoduché analogové hodiny v Delphi
Univerzální ukládání konfigurace do DB

Diskuze - Delphi - celkem 238 příspěvků (zobrazeno max. 15) - zobrazit celou diskuzi
Název Autor Datum
Přenos souboru přes protokol UDP ExtremeVidlak 17.10.2002
   žádná odpověď    
I/O Chuck 17.10.2002
   žádná odpověď    
Class - jak Chuck 17.10.2002
• Re: Zdeněk 20.10.2002
Delphi a internet BlackTiger 13.10.2002
   žádná odpověď    
1/sin rekr13 10.10.2002
• Re: 1/sin Petr Šťastný 10.10.2002
Ukládání dat z formuláře do řádků jiného... Ervín 04.10.2002
   žádná odpověď    
Počítací soubor pro formuláře Excel a Wo... Ervín 04.10.2002
   žádná odpověď    
Výsledek příkazu IPCONFIG do proměnné Howard 01.10.2002
   žádná odpověď    
gif na formulář Petr 30.09.2002
• Zkus http://www.festra.com/eng/index.html Howard 01.10.2002
Otevření / zavření zvolené jednotky CD-R... 27.09.2002
• Beru zpět ... 05.10.2002
Čeština DBGrid / foxpro Peta 26.09.2002
   žádná odpověď    
Provozovatel:
PES.cz
Příbuzné články
•  Napište si svůj vlastní poznámkový blok (2.)
•  Napište si svůj vlastní poznámkový blok (1.)
•  Univerzální ukládání konfigurace do DB
Poslední články
Nové chipsety Intelu
Co je JPEG?
Napište si svůj vlastní poznámkový blok (4.)
Třikrát o PHP
Seznamka v PHP a MySQL (4.)
Hodnocení článku
nejlepší <----> nejhorší
    
Stav: 2
Počet: 1
Informace o článku
Datum 18.10.2002
Čtenářů 333
Autor Aleš Kresta
Rubrika Delphi - tipy, triky
Nový redaktor
  Chcete psát články
  pro PC Svět či se
  stát redaktorem?

Články honorovány!

  Informace zde
EInfo
  Chcete být informováni
  o každém novém článku
  na PC Světě?

Zadejte svůj e-mail:

MSN.ATLAS.CZ
Hladat.sk

hlavní stránka  |  vyhledávací centrála  |  Diskuze  |  WWW katalog  |  Guestbook  |  MailForm  |  kontakt: pcsvet@pcsvet.cz

Se svými dotazy či problémy se obracejte na diskuzní fórum, věci týkající se PC Světa směřujte na e-mail pcsvet@pcsvet.cz

Šíření obsahu tohoto serveru nebo jeho části je bez souhlasu redakce zakázáno.
(c) PC Svět 2002 - Všechna práva vyhrazena.