Titlul documentului

peocedure TForm1.Button1Click(Sender: TObject);

begin

FontDialog1.Execute;

Label1.Font:=FontDialog1.Font;

Label1.Caption:='Text editat cu fontul ales !';

end;

Tastati F9 si executati aplicatia.Alegeti un font oarecare.In mod similar,

fontul selectat poate fi transferat la orice alt font din obiectele inclu-

se in aplicatie(TMemo,TEdit...etc.).

Proprietatile Device,Font,MaxFontSize si MinFontSize se pot utiliza pentru

a alege tipurile de fonturi accesibile.Proprietatea Options modifica

modul de afisare si comportamentul casetei de dialog.
TColorDialog este un obiect destinat pentru selectarea culorii.Prin

metoda Execute,obiectul apeleaza caseta de dialog de tip Windows in care

se poate selecta culoarea dorita.Culoarea selectata se va arhiva automat

in proprietatea Color,de unde va putea fi transferata la orice alt obiect

din aplicatie.

EXEMPLU: (vezi si Prj92)

Salvati o fila noua si proiectul in Prj92.Adaugati un buton si un obiect

de tip TColorDialog.Selectati butonul si adaugati urmatoarea procedura

OnClick:

procedure TForm1.Button1Click(Sender: TObject);

begin

ColorDialog1.Execute;

Form1.Color:=ColorDialog1.Color;

end;

Tastati F9 si executati aplicatia.Alegeti una dintre culorile definite in

paleta Basic colors si apoi apasati butonul OK.Fereastra Form1 va fi

colorata in culoarea selectata.In mod similar,puteti transfera culoarea

la orice obiect de tip TColor din aplicatie.

Daca doriti sa utilizati o nuanta oarecare,apasati butonul Define Cus-

tom Colors,apoi setati valorile numerice sau deplasati sageata neagra si

indicatorul mouse pana cand obtineti nuanta dorita (care va fi afisata in

campul Color|Solid),apoi apasati butonul Add to Custom colors si alegeti

din paleta Custom colors nuanta respectiva.

Nuantele pot fi adaugate si in ObjectInspector,prin setarea proprieta-

tii CustomColors (un sir de forma Color = valoarea hexazecimala).

Exemplu: ColorA=808022.

Proprietatea Options personalizeaza caseta de dialog (Exemplu: cdPrevent-

FullOpen blocheaza paleta pentru nuantele nou definite ).


-101- Dialogs - TPrint[erSetup]Dialog

TPrintDialog este un obiect destinat pentru setarea unor informatii

care determina: pagina de start si numarul de copii imprimate.Pentru

acest scop,prin metoda Execute,obiectul apeleaza caseta de dialog de tip

Windows destinata pentru setarea imprimantei.Se utilizeaza pentru a putea

modifica activ,in timpul executiei,caracteristicile de imprimare.

EXEMPLU: (vezi Prj93)

Salvati o fila noua si proiectul in Prj93.Adaugati un obiect TPrintDialog,

un obiect TRichEdit si doua butoane.

Pentru primul buton atribuiti procedura OnClick:

procedure TForm1.Button1Click(Sender: TObject);

begin

PrintDialog1.Execute;

end;

Utilizati Lines din RichEdit1 pentru a introduce un text oarecare in

obiectul RichEdit1 (textul pe care doriti sa-l imprimati).

Atribuiti pentru cel de al doilea buton urmatoarea procedura OnClick:

procedure TForm1.Button2Click(Sender: TObject);

begin

RichEdit1.Print('TEXT EXEMPLIFICATIV');

end;

Tastati F9 si executati aplicatia.Utilizati primul buton pentru a speci-

fica numarul de copii si cel de al doilea pentru a declanasa imprimarea.

Proprietatea Collate se utilizeaza pentru a specifica ordinea in care

vor fi imprimate paginile.De exemplu,daca textul ocupa 3 pagini si se

executa 2 copii,ordinea de imprimare poate fi: 1,2,3,1,2,3 sau 1,1,2,2,

3,3.Daca se utilizeaza o rola de hartie non stop,se va prefera primul

tip de ordonare,iar daca se utilizeaza pagini imprimate fata-verso se

va prefera cel de al doilea tip de ordonare.

Copies specifica numarul de pagini,FromPage specifica prima pagina impri-

mata,ToPage specifica ultima pagina imprimata,MaxPage si MinPage speci-

fica numarul maxim sau minim de copii iar Options modifica aspectul

casetei de editare. Setarile sa pot face atat in etapa de design (in

ObjectInspector) cat si in timpul executiei (in caseta Windows).
TPrinterSetupDialog este un obiect destinat pentru modificarea unor

caracteristici de imprimare in timpul executiei.Prin metoda Execute,

obiectul apeleaza caseta de dialog de tip Windows in care se poate seta

dimensiunea si formatul paginei editate sau se poate alege imprimata care

va executa operatia (daca exista mai multe imprimante in stare de astep-

tare,adica pornite si incarcate cu hartie).

EXEMPLU: (vezi Prj93)

Deschideti proiectul Prj93 (vezi mai sus).Adaugati un buton si un obiect

TPrinterSetupDialog.Atribuiti butonului urmatoarea procedura OnClick:

procedure TForm1.Button3Click(Sender : TObject);

begin

PrinterSetupDialog1.Execute;

end;

Tastati F9 si executati aplicatia.Butonul adaugat (denumit Setup) va

permite sa modificati dimensiunea si formatul paginei,astfel incat textul

redactat in RichEdit1 sa fie cat mai bine incadrat si aspectat.

Obiectul nu are alte proprietati sau metode deosebit de utile.


-102- TFindDialog si TReplaceDialog

TFindDialog este un obiect utilizat pentru a cauta un sir de caractere

intr-un obiect de tip text.Pentru acest scop,prin metoda Execute,obiectul

apeleaza caseta de dialog de tip Windows care permite introducerea sirului

de caractere cautat.In momentul apasarii butonului de cautare FindNext,

se declanseaza automat evenimentul OnFind,care trebuie sa contina pro-

cedura de cautare propriu-zisa (editata de catre programator).

EXEMPLU: (vezi Prj94)

Salvati o fila noua si proiectul in Prj94.Adaugati un obiect TFindDialog,

un buton,un camp TMemo si doua obiecte TLabel.

Utilizati Lines din Memo1 pentru a introduce un text oarecare (textul in

care se va executa operatia de cautare).

Selectati butonul si atribuiti urmatoarea procedura OnClick:

procedure TForm1.Button1Click(Sender: TObject);

begin

FindDialog1.Execute;

end;

Selectati FindDialog1 si adaugati urmatoarea procedura OnFind:

procedure TForm1.FindDialog1Find(Sender: TObject);

var selpos:variant;

begin

selpos:=Pos(FindDialog1.FindText,Memo1.text);

Label1.Caption:='Textul cautat se afla la pozitia: ';

Label2.Caption:=selpos;

end;

Tastati F9 si executati aplicatia.Textul cautat poate fi introdus in mo-

mentul executiei,sau in etapa de design in proprietatea FindText.Options

modifica aspectul casetei de dilaog.
TReplaceDialog este un obiect destinat pentru actualizarea textelor.

Practic,selecteaza un anumit sir de caractere,la fel ca TFindText si apoi

inlocuieste sirul respectiv (FindText) cu cel specificat de utilizator in

ReplaceText.Pentru acest scop,prin metoda Execute,obiectul apeleaza o

caseta de dialog de tip Windows in care se pot seta ambele proprietati:

FindText si ReplaceText.Apasand butoanele Replace sau ReplaceAll,se va

apela evenimentul OnReplace,care trebuie sa contina procedura propriu-zisa

de inlocuire a textului specificat(puteti edita proceduri complexe).

EXEMPLU: (vezi Prj94)

Deschideti Prj94(vezi mai sus) si adaugati un obiect TReplaceDialog si

un buton.Atribuiti butonului urmatoarea procedura OnClick:

procedure TForm1.Button2Click(Sender: TObject);

begin

ReplaceDialog1.Execute;

end;

Selectati ReplaceDialog1 si adaugati urmatoarea procedura OnReplace:

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

var reppos:variant;

begin

reppos:=Pos(ReplaceDialog1.Findtext,Memo1.Text);

Memo1.SelStart:=reppos-1;

Memo1.SelText:=ReplaceDialog1.ReplaceText;

end;


-103- Win 3.1

Paleta de componente denumita Win3.1 contine obiecte preluate de la

versiunile Delphi anterioare.Aceste obiecte au fost mentinute doar pentru

a pastra compatibilitatea cu programele mai vechi care contin astfel de

obiecte.Majoritatea lor au fost inlocuite in Win32 cu obiecte mai noi,mai

perfectionate.Pentru editarea de programe noi,este recomandabil sa utili-

zati obiectele actualizate din Win32:
Obiectul Win 3.1 Obiectul actual Paleta de obiecte
DBLookupList DBLookupListBox Data Controls

DBLookupCombo DBLookupComboBox Data Controls

TabSet TabControl Win32

Outline TreeView Win32

Header HeaderControl Win32

NoteBook PageControl Win32

TabbedNoteBook PageControl Win32
Win 3.1 contine si patru obiecte care nu au fost modificate,dar pot fi

utilizate pentru a prelua informatii despre unitatile de memorie,dosare si

file impreuna cu calea de acces la fila.Puteti utiliza aceste obiecte

pentru a realiza o interfata in care utilizatorul poate selecta orice

fila de pe disc (vezi Prj95).

TFileListBox - este un obiect specializat care afiseaza toate filele

din directorul curent.Numele si calea de acces la fila selectata se va

arhiva automat in proprietatea Filename.Pentru a selecta doar un anumit

tip de file,obiectul poate fi conectat la un obiect de tip TFilterComboBox

care va permite afisarea,doar pentru filele specificate in proprietatea

Filter.Conectarea se face in obiectul FilterComboBox cu ajutorul prprie-

tatii FileList.Pentru a putea afisa filele din alt director decat cel

curent,obiectul TFileListBox se poate cupla cu un obiect TDirectoryListBox

prin proprietatea Directory si evenimentul OnChange (vezi Prj95).Pentru

a putea schimba in timpul executiei si unitatea de memorie din care se

citesc filele afisate,se poate adauga si un obiect de tip TDriveComboBox

iar conectarea se va face prin proprietatea Drive si evenimentul OnChange.

Cele patru obiecte se utilizeaza de obicei impreuna,pentru a realiza

o interfata completa.Limitarea filelor afisate se poate face si prin pro-

prietatea Mask,care este setata implicit la *.*.Inlocuiti aceasta expresie

cu orice expresie valida (Exemple: *.EXE sau *.TXT).Dintre metode,trebuie

remarcata metoda Update care va fi apelata ori de cate ori a fost schimbat

directorul curent,sau proprietatea Mask.

TDirectoryListBox este un obiect specializat pentru a afisa directoare-

le de pe unitatea curenta de disc.Prin proprietatea Drive se poate cupla

cu un obiect TDriveComboBox,astfel incat utilizatorul sa poata schimba

activ unitatea de memorie pentru care se afiseaza directoarele.Dupa fie-

care actualizare,se va apela metoda Update prin evenimentul OnChange.

Metodele OpenCurrent,GetItemPath si FileCompareText se pot utiliza pentru

a deschide automat un anumit director (fara a fi nevoie sa fie selectat

cu mouse).Pentru a cupla obiectul cu un obiect TFileListBox se poate

utiliza proprietatea FileList.

Pentru a deschide un director se va executa un dublu click pe director-

ul respectiv.Directorul selectat este arhivat automat in Directory.


-104-

TDriveComboBox este un obiect specializat pentru a afisa unitatile de

memorie instalate(accesibile in momentul executiei).Prin proprietatea

DirList se poate cupla cu un obiect TDirectoryListBox,pentru a afisa

si dosarele de pe disc.Acelasi rezultat se poate obtine si prin prprie-

tatea Drive si evenimentul OnChange.

TFilterComboBox este un obiect specializat pentru selectarea unui

anumit tip de file,cu ajutorul unui filtru specializat,programabil.Se

utilizeaza atunci cand interfata aplicatiei trebuie sa permita accesul

doar la un numar limitat de file,restrictionat prin numele filei sau

prin extensia filelor.Proprietatea Filter permite introducerea unor

expresii formate din "wilde characters" (gen *,?...etc).Prin proprietatea

FileList poate fi cuplat cu un obiect TFileListBox (in care se va face

selectia propriu zisa).Restrictia (unica) se poate seta si prin Mask.

EXEMPLU: (vezi Prj95) (pentru cele patru obiecte Win 3.1)

Salvati o fila noua si proiectul in Prj95.Adaugati un obiect TDriveCombo-

Box,un obiect TFilterComboBox,un obiect TDirectoryListBox,un obiect de tip

TFileListBox si un obiect TLabel.

Alegeti DriveComboBox1 si setati DirList=DirectoryListBox1.Alegeti eveni-

mentul OnChange si atribuiti urmatoarea procedura:

procedure TForm1.DriveComboBox1Change(Sender: TObject);

begin

DirectoryListBox1.Drive:=DriveComboBox1.Drive;

DirectoryListBox1.Update;

end;

Alegeti FilterComboBox1 si setati FileList=FileListBox1.Apoi alegeti pro-

prietatea Filter si adaugati cateva optiuni ( *.EXE,*.TXT,*.DLL etc.).

Alegeti DirectoryListBox1 si setati FileList=FileListBox1.Apoi alegeti

evenimentul OnChange si atribuiti urmatoarea procedura:

procedure TForm1.DirectoryListBox1Change(Sender: TObject);

begin

FileListBox1.Directory:=DirectoryListBox1.Directory;

FileListBox1.Update;

end;

Alegeti FileListBox1 si atribuiti pentru evenimentul OnClick urmatoarea

procedura:

procedure TForm1.FileListBox1Click(Sender: TObject);

begin

Label1.Caption:='Fila selectata este: '+ FileListBox1.Filename;

end;

Tastati F9 si executati aplicatia.In obiectul DriveComboBox1 puteti

schimba unitatea de disc (daca este goala returneaza un mesaj de eroare).

In FilterComboBox1 puteti selecta tipul de file pe care doriti sa le

afisati (pentru a reduce numarul de file afisate).

In DirectoryListBox1 puteti schimba directorul curent.Daca doriti sa

preluati direct numele directorului selectat,puteti adauga un alt obiect

TLabel si setati proprietatea DirLabel la valoarea Label2.

In obiectul FileListBox1 puteti selecta o anumita fila.Daca doriti ca

fila selectata sa fie preluata direct intr-un obiect TEdit,adaugati un

obiect TEdit si setati proprietatea FileEdit la valoarea Edit1.

Pentru a personaliza aplicatia,puteti schimba culorile si fonturile,

puteti activa si inactiva obiectele dinamic...etc.


-105- Samples

Paleta de componente denumita Samples contine cateva obiecte persona-

lizate,care au fost adaugate in bara de meniu,pentru a demonstra modul in

care utilizatorul poate sa-si programeze obiectele necesare (sau sa le

adauge in bara de meniu).Aceste obiecte nu sunt insotite de instructiuni

explicative in Help.Pentru a intelege proprietatile si metodele obiectelor

trebuie sa deschideti fila sursa (localizata in Delphi3/Source/Samples).

Incercati sa deschideti aceste file si sa realizati aplicatii simple

care exploateaza acest gen de obiecte.Daca reusiti sa cititi si sa inter-

pretati filele sursa,cu putin efort suplimentar puteti sa si editati file

similare in care sa definiti obiectele de care aveti nevoie (Exemplu:

puteti programa un obiect care sa arhiveze si sa calculeze retetele de

bucatarie).Incercati sa exploatati aceste obiecte,fara ajutorul exemplelor

din manual.Exemplele care urmeaza sunt doar orientative si nu exploateaza

complet facilitatile oferite de fiecare obiect.

TGauge este un obiect asemenator cu bara de stare si este proiectat

pentru a prezenta grafic progresia unui proces aflat in executie.Obiectul

poate utiliza 5 variante de prezentare grafica,specificate prin proprie-

tatea TGaugeKind(text,sector de cerc,bara de defilare etc.).Pentru a

putea discrimina cat mai fidel fiecare element al progresiei,se pot uti-

liza proprietatile MaxValue si MinValue,prin care se stabilesc limitele

obiectului.Pentru a evidentia procesul dorit,trebuie sa editati o pro-

cedura in care elementele procesului vor fi conectate la elementele de

progresie ale obiectului TGauge(TGauge prezinta o progresie liniara).

Exemplu: (vezi si Prj96)

Salvati o fila noua si proiectul in Prj96.Adaugati un obiect TGauge si

un buton.

Selectati obiectul Gauge1 si setati BackColor,Color si Font dupa preferin-

te.Apoi alegeti o valoare pentru MaxValue (Exemplu: 200).

Selectati butonul si adaugati urmatoarea procedura OnClick:

procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

Gauge1.Progress:=0;

Gauge1.Kind:=gkPie;

for n:=1 to 20 do

begin

Gauge1.AddProgress(n);

Sleep(300);

end;

end;

Pentru a schimba tipul de afisare puteti utiliza alta varianta pentru

Gauge1.Kind (gkText,gkNeedle,gkHorizontalBar sau gkVerticalBar).Eventual

puteti atribui cate un buton pentru fiecare tip de grafic.Pentru a seta

viteza procesului de animatie modificati valoarea pentru Sleep().

Daca observati cu atentie fila sursa (unit Gauges) puteti remarca

proprietatile declarate private.Aceste proceduri sunt utilizate de obiect

pentru a realiza grafica obiectului.In aplicatiile dezvoltate de d-voastra

puteti apela direct doar functiile si procedurile declarate "public" sau

"published".De exemplu,puteti adauga un algoritm prin care culorile de

reprezentare se schimba aleator la fiecare pas al executiei...etc.

Restul depinde de imaginatia d-voastra.


-106-

TColorGrid1 -este un obiect destinat pentru a putea schimba activ cu-

lorile unui anumit obiect,in timpul executiei (De exemplu pentru a putea

evidentia mai bine un text sau un grafic).Obiectul este foarte util mai

ales atunci cand aplicata citeste reprezentari grafice din mai multe file.

In cazul in care mai multe grafice utilizeaza aceeasi paleta de culori,

este posibil ca prin sumatie sa rezulte reprezentari aberante.Pentru

a evita astfel de situatii,se poate utiliza un obiect TColorGrid pentru

a schimba la nevoie o anumita culoare.

EXEMPLU: (vezi si Prj97)

Salvati o fila noua si proiectul in Prj97.Adaugati un obiect TColorGrid

si in camp TLabel.

Setati culorile initiale si fonturile pentru Tlabel si introduceti in

Caption un text oarecare.

Apoi selectati ColorGrid1 si adaugati urmatoarea procedura OnChange:

procedure TForm1.ColorGrid1Change(Sender: TObject);

begin

Label1.Color:=ColorGrid1.BackGroundColor;

Label1.Font.Color:=ColorGrid1.ForeGroundColor;

end;

Tastati F9 si executati aplicatia.pentru a schimba culorile executati

in obiectul ColorGrid1 cate un click de mouse cu butonul stang pentru

culoarea fontului sau cu butonul drept pentru culoarea de fond.

Daca doriti ca paleta de culori sa fie afisata doar la un anumit moment

dat,adaugati doua butoane si cate o procedura prin care se alterneaza

proprietatea ColorGrid1.Visible la valorile True sau False.
TSpinButton este un obiect asemanator cu TUpDoun (din Win32) si este

destinat pentru a putea incrementa sau decrementa o anumita valoare,sau

pentru a putea deplasa cursorul intr-o lista,etc.Practic,obiectul ofera

o interfata grafica pentru a actiune de incrementare sau decrementare.

EXEMPLU: (vezi si Prj98);

Salvati o fila noua si proiectul in Prj98.Adaugati un obiect TSpinButton

si un camp TLabel.Editati cate o procedura pentru cele doua evenimente:

OnDownClick si OnUpClick ale obiectului SpinButton1:

Adaugati in sectiunea "public" din interfata : nr:longint apoi:

procedure TForm1.SpinButton1DownClick(Sender: TObject);

var r1:variant;

begin

nr:=nr-1;