Titlul documentului

Adaugati un obiect de tip TScrollBox si ajustati dimensiunile.In Object

Inspector selectati AutoScroll si alegeti True.In acest fel,obiectul se

va autoconfigura si va afisa automat barele de navigare,atunci cand se

depaseste suprafata afisata.

Alegeti un buton TBitBtn si adaugati un buton de tip Close (alegeti

bkClose din Kind).Trageti de buton in jos,pana cand depasiti marginea

inferioara si apar automat butoanele de nevigare sus/jos (trageti de

buton tinand apasat butonul mouse).Apoi in coltul din stanga sus,adaugati

un obiect TLabel si scrieti textul Optiunea 1.In continuare,in coltul din

dreapta sus,adaugati un alt obiect de tip TLabel si scrieti textul

Optiunea 2.Trageti de obiectul TLabel 2 pana cand depasiti marginea din

dreapta si apar butoanele de navigare dreapta/stanga.Alegeti culoarea,

dimensiunile si fonturile dorite.

Acum obiectul este finalizat.Tastati F9 si executati aplicatia.

Observati ca trebuie sa utilizati butoanele de navigare pentru a putea

avea acces la toate componentele din campul de defilare ScrollBox.In

mod similar,se pot include butoane si controale,astfel incat sa nu fie

vizibile decat dupa utilizarea butoanelor de navigare.Acest procedeu

este necesar atunci cand doriti sa includeti un numar mare de componente

intr-o fereastra relativ mica,sau intr-un spatiu de interfata relativ

restrans.


-19- Additional -TCHECKLISTBOX,TSPLITTER

TCheckListBox este similar cu TListBox dar fiecare element din lista

are asociata si o caseta in care elementul respectiv poate fi selectat

sau deselectat.Aceasta caseta are asociata proprietatea Checked cu aju-

torul careia se poate determina daca un anumit element din lista este

sau nu este selectat in momentul respectiv.Pentru caseta de selectie,

se poate utiliza proprietatea State,care determina daca o caseta de

selectie este selectata sau nu.Cele doua proprietati ofera rezultate

similare,pentru fiecare element din Items.

Pentru a introduce elemente in lista,se poate utiliza Items si apoi

toate metodele din TStrings,sau se poate utiliza direct proprietatea

Items din Object Inspector.

EXEMPLU:

Salvati o fila si proiectul in Prj19.

Selectati un obiect de tip TCheckListBox si adaugati obiectul in Form.

Din Object Inspector alegeti Items si executati un dublu click pe

(TStrings).Delphi va afisa o fereastra de dialog denumita String list

editor in care puteti introduce elementele din lista.Exemplu: Optiunea 1,

Optiunea 2,Optiunea 3 si Optiunea 4.Confirmati cu OK.

Tastati F9 si executati aplicatia.Observati ca puteti sa selectati in

casete o parte dintre elemente.Elementele raman selectate pana cand sunt

deselectate cu un nou click de mouse.

Pentru a exploata o astfel de caseta ListBox,puteti incerca un exercitiu

de genul:

Adaugati in Form si un obiect de tip TStaticText(urmatorul din grup).

Redimensionati campul de editare astfel incat sa cuprinda un text mai lung

apoi selectati din nou obiectul CheckListBox.Alegeti Events din Object

Inspector si executati un dublu click pe On Click,apoi redefiniti proce-

dura astfel:

procedure TForm1.CheckListBox1Click(Sender: TObject);

begin

if CheckListBox1.Checked[0]=True then

StaticText1.Caption:='Optiunea 1 este selectata !';

if CheckListBox1.Checked[0]=False then

StaticText1.Caption:='Optiunea 1 este deselectata !';

end;

Tastati F9 si apoi verificati exemplul selectand si deselectatnd optiunea.

Daca doriti sa exploatati un alt eveniment,in loc de On Click puteti

selecta evenimentul OnMouseMove.In acest caz,procedura va fi activata in

momentul in care indicatorul mouse este plasat in aria in care se gaseste

obiectul (fara click).

Acest tip de obiect se utilizeaza pentru personalizarea unor optiuni,

sau pentru a selecta un grup mai mic de elemente din un grup mai mare.

TStaticText este similar cu TLabel si se utilizeaza pentru a afisa un

text oarecare in fereastra.Spre deosebire de TLabel,TStaticText este

derivat din TWinControl si are un cod handle propriu la fel ca orice fe-

reastra,astfel incat poate interactiona direct cu tastatura (poate avea

o tasta de accelerare).In plus detine si cateva proprietati aditionale,

cum ar fi BorderStyle,HelpContext,TabOrder si TabStop.

Se utilizeaza pentru a afisa date de tip string (vezi exemplul de mai

sus). Se va alege preferential fata de TLabel atunci cand obiectul contine

o tasta de accelerare asociata unui control de tip fereastra(Ex:Active X).


-20- Additional -TSPLITTER si TCHART

TSplitter este un obiect auxiliar care imparte fereastra in arii re-

dimensionabile.Are un numar oarecare de proprietati si metode.Se poate

utiliza cu succes pentru a alinia obiectele din fereastra,mai ales atunci

cand obiectele respective pot sa-si schimbe dimensiunile in momentul

executiei(Exemple: casete ListBox,ComboBox,TStringGrid etc.).

Exemplu: Adaugati un obiect TSplitter intr-o fereastra Form.Apoi adaugati

un obiect de tip TCheckListBox si deplasati acest obiect in fereastra.

Observati ca in momentul in care se suprapune cu TSplitter,acesta se va

retrage pana cand atinge dimensiunea minima specificata prin MinSize.Se

poate utiliza aceasta proprietate pentru a proiecta spatiile dintre

obiecte astfel incat cele redimensionabile sa nu se suprapuna in timpul

executiei peste cele fixe.In plus,indicatorul mouse va avea alt aspect

in timpul executiei atunci cand este amplasat in aria TSplitter.Pentru

a specifica aria TSplitter,utilizati Height si Width sau trageti cu mouse

de patratelele pentru redimensionare.Pentru a vizualiza si mai clar aria

acestui obiect,puteti utiliza Color,pentru a specifica o alta culoare.
TChart este un obiect derivat din TPanel,specializat pentru a grupa

grafice si obiecte din biblioteca TeeChart (reprezentari grafice a datelor

statistice).TChart mosteneste toate proprietatile si metodele TPanel,la

care adauga o serie intreaga de proprietati specifice.Se utilizeaza pentru

reprezentari grafice.

EXEMPLU:

Salvati o fila noua si proiectul in Prj20.Selectati si adaugati in

Form un obiect de tip TChart,apoi reajustati dimensiunile.

In meniul principal,utilizati sageata de navigare spre dreapta pana

cand ajungeti la grupul de obiecte ActiveX.Selectati acest grup si alegeti

un obiect de tip TVtChart.Adaugati acest obiect in TChart si ajustati

dimensiunile.Obiectul TVtChart contine un grafic tridimensiunal in care

sunt reprezentate date pe 5 randuri si patru coloane.Pentru a schimba

modul de reprezentare grafica,executati un click de mouse cu butonul drept

in aria TVtChart,apoi alegeti Wizard.Din caseta de dialog Chart Wizard,

alegeti tipul dorit (de exemplu Pie) si apoi Finish.

Pentru a schimba valoarea datelor reprezentate,executati un click de

mouse cu butonul drept,in aria TVtChart,apoi alegeti EditChartData.Delphi

va afisa o caseta de dialog denumita Data Grid Editor in care este inclusa

si o grila (tabel) in care sunt incluse valorile reprezentate.Schimbati

dupa bunul plac numarul de randuri si de coloane (maxim 4 coloane) si

apoi introduceti in casetele respective valorile pe care doriti sa le

reprezentati grafic.Pentru a modifica aspectul reprezentarilor grafice,

sau pentru a introduce un titlu,executati un click de mouse cu butonul

drept si apoi alegeti Properties.

Dupa ce eputizati setarile obiectului TVtChart,executati un click de

mouse cu butonul drept in aria obiectului TChart si alegeti Edit Chart.

Delphi va afisa o caseta de dilaog denumita Editing Chart1 in care puteti

selecta optiunile acestui obiect.

Tastati F9 si executati aplicatia.

In continuare,daca doriti sa vedeti datele in alta reprezentare,selectati

din nou Wizard si alegeti alt tip de reprezentare.Nu se pot reprezenta

decat datele incluse in grila interna a obiectului TVtChart.Pentru a

reprezenta date dintr-o baza de date,puteti utiliza un obiect TDBChart.


-21- Win32 - TTABCONTROL si TPAGECONTROL

Urmatorul grup de obiecte este Win32.A fost denumit astfel deoarece

include componente in format de 32 biti,compatibile cu sistemul Windows95.

TTabControl este un obiect destinat pentru a realiza o caseta de dia-

log de tip fisier.TTabControl este un obiect unic,format din mai multe

dosare denumite Tab.Selectarea evenimentelor asociate fiecarui dosar se

face cu ajutorul unei proceduri de tip OnChange.Dosarele unui astfel

de fisier nu pot fi inactivate separat,deoarece TTabControl este un obiect

unic.Inactivarea obiectului duce la inactivarea tuturor dosarelor.Pentru

a forma un fisier cu dosare independente puteti utiliza TPageControl.

EXEMPLU:

Salvati o fila si proiectul in Prj21.

Selectati si adaugati in Form un obiect TTabControl si alegeti dimensiunea

dorita.Pentru a denumi dosarele continute,alegeti Tabs din Object Inspec-

tor si introduceti in String List Editor lista acestora,apoi confirmati cu

OK( Exemplu: Fisier1,Fisier2,Fisier3,Fisier4...etc).

Pentru a asocia si o operatie observabila,adaugati in Form si un obiect

TLabel.Apoi selectati obiectul TTabControl,alegeti Events si executati un

dublu click in On Change.Redefiniti procedura astfel:

procedure TForm1.TabControl1Change(Sender: TObject);

begin

if TabControl1.TabIndex = 1 then

Label1.Caption:='Fisier 1';

if TabControl1.TabIndex = 2 then

Label1.Caption:='Fisier 2';

if TabControl1.TabIndex = 3 then

Label1.Caption:='Fisier 3';

if TabControl1.TabIndex = 4 then

Label1.Caption:='Fisier 4';

end;

Tastati F9 si executati aplicatia.Este bine ca primul dosar sa fie lasat

liber (TabIndex = 0),pentru a putea manevra cu usurinta in situatii ne-

prevazute (pentru a adauga de urgenta niste date temporare).In mod similar

puteti asocia fiecarui dosar o fila de tip text sau un mic program exe-

cutabil,astfel incat obiectul sa functioneze ca un meniu de optiuni.
TPageControl este un obiect destinat tot pentru a forma fisiere,dar este

format din mai multe pagini,care sunt obiecte de tip TTabSheet.Impreuna

formeaza tot o caseta de dialog de tip fisier,dar spre deosebire de TTab-

Control,dosarele din TPageControl pot fi activate sau inactivate indepen-

dent.Pentru operatii asupra obiectului se poate executa un click de mouse

cu butonul drept,in aria obiectului.Exemplu: pentru a adauga un nou dosar.

Obiectul realizat poate utiliza atat proprietatile si metodele mostenite

de la TPageControl cat si proprietatile si metodele mostenite de la TTab-

Sheet.Pentru a executa operatii in unul dintre dosare se vor utiliza pro-

prietatile TTabSheet iar pentru operatii comune tuturor dosarelor se vor

utiliza proprietatile si evenimentele TPageControl.

Acest tip de fisier este mult mai maleabil decat cel realizat cu aju-

torul componentului de tip TTabControl si se recomanda atunci cand

fisierul realizat trebuie sa contina un numar mare de dosare,dintre care

doar o parte vor fi active la un anumit moment dar,iar restul vor fi in-

activate temporar (invizibile).

-22-

EXEMPLU:

Salvati o fila noua si proiectul in Prj22.

Selectati din Win32 si adaugati in Form un obiect de tip TPageControl.

Ajustati dimensiunile,apoi executati un click de mouse cu butonul drept,

in mijlocul obiectului si alegeti New Page.Repetati operatia pana cand

adaugati numarul necesar de obiecte.

Apoi executati un click de mouse pe primul dosar (denumit TabSheet1)

si apoi in mijlocul dosarului selectat.In Object Inspector se vor afisa

proprietatile obiectului TabSheet1.Alegeti Caption si redenumiti dosarul

dupa bunul plac (este bine ca primul dosar sa ramana liber).Apoi repetati

operatia pentru fiecare dosar si atribuiti un nume (Exemplu: fila1,fila2,

fila3,fila4 etc.).

Acum puteti atribui cate o operatie pentru fiecare dosar.Pentru a

putea evidentia operatia executata,adaugati si un obiect de tip TLabel.

Apoi selectati primul dosar (fila1) si executati un click in mijlocul

sau.In Object Inspector va fi afisat obiectul TabSheet2.Alegeti Events

si apoi OnMouseDown si executati un dublu click.Redefiniti procedura:

procedure TForm1.TabSheet2MouseDown(Sender: TObject;Button:TMouseButton;

X,Y: Integer);

begin

Label1.Caption:='fila1';

end;

Selectati al doilea dosar (fila2).In Object Inspector se vor afisa pro-

prietatile obiectului TabSheet 3.Alegeti Events si apoi dublu click in

OnMouseDown si redefiniti a doua procedura astfel:

procedure TForm1.TabSheet2MouseDown(Sender: TObject;Button:TMousebutton;

X,Y: Integer);

begin

Label1.Caption:='fila2';

end;

Repetati operatia pentru fiecare dosar si redefiniti procedurile.

Tastati F9 si executati aplicatia.

Pentru a observa operatia efectuata,selectati unul dintre dosare astfel

incat sa fie in prim plan,apoi executati un click de mouse in mijlocul

dosarului.In mod normal,in TLabel 1 se va afisa numele dosarului res-

pectiv (cel atribuit prin Label1.Caption:=...).

In mod similar,se poate asocia fiecare dosar din fisier cu o fila de

tip text,cu un program executabil sau cu o casta de dialog care in mo-

mentul respectiv nu este vizibila in fereastra dar poate fi activata

cu ajutorul procedurii MouseDown.

Daca doriti sa atribuiti si operatii comune pentru toate dosarele,

selectati obiectul TPageControl (astfel incat in Object Inspector

sa fie afisat PageControl impreuna cu proprietatile sale si apoi alegeti

din Events OnChange,sau oricare dintre evenimentele asociate acestui

obiect.Redefiniti procedura adaugata automat.Operatiile definite in

aceasta procedura vor fi efectuate la selectia oricaruia dintre dosarele

din obiectul TPageControl.

La prima vedere pare destul de complicat,dar dupa cateva exercitii

simple exploatarea acestui tip de obiect devine destul de usoara.Nu

cititi textul acestui manual,fara sa executati in paralel si operatiile

descrise.Acest abecedar se bazeaza pe exemple,si pe inteligenta d-voastra.


-23- Win32 - TIMAGELIST

TImageList este un obiect destinat pentru a arhiva imagini de tip

bitmap,icon sau metafile,sub forma de colectii,cu conditia ca aceste

imagini sa fie de dimensiuni identice.Ca rezultat,TImageList va grupa

imagini stocate la adrese diferite,utilizand un singur cod intern handle.

Imaginile pot fi apoi afisate cu ajutorul unui obiect de tip TImage,cu

ajutorul numarului de indexare din obiectul TImageList.

EXEMPLU:

Salvati o fila noua si proiectul in Prj23.

Daca doriti,utilizati din meniul Tools,utilitarul Image Editor pentru a

arhiva in Prj23 cateva imagini Bitmap realizate de d-voastra.

Adaugati in Form un obiect de tip TImageList,redimensionati valorile

Height si Width la 100(valoarea implicita este 16) si apoi efectuati un

click de mouse cu butonul drept,pe aria obiectului ImageList1.Alegeti

optiunea Image List Editor si utilizati caseta de dialog pentru a adauga

cateva obiecte(cele realizate de d-voastra,sau Cus1...Cus5 din Demos/Data)

Pentru a vizualiza imaginile adaugati in Form si un obiect TImage.

Pentru a controla evenimentele,adaugati patru butoane,numerotate de la

1 la 4 si apoi selectati pentru fiecare buton Events si OnClick.

Redefiniti cele 4 proceduri astfel:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Image1.Picture:=nil;

ImageList1.Draw(Image1.Canvas,1,1,0);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Image1.Picture:=nil;

ImageList1.Draw(Image1.Canvas,1,1,1);

end;

procedure TForm1.SpeedButton3.Click(Sender: TObject);

begin

Image1.Picture:=nil;

ImageList1.Draw(Image1.Canvas,1,1,2);

end;

procedure TForm1.SpeedButton4.Click(Sender: TObject);

begin

Image1.Picture:=nil;

ImageList1.Draw(Image1.Canvas,1,1,3);

end;

Tastati F9 si executati aplicatia.Fiecare dintre cele patru butoane va

afisa in TImage o imagine diferita.In mod similar,puteti afisa toate

cele patru imagini simultan.In acest caz,trebuie sa extindeti mult aria

obiectului TImage si apoi sa utilizati pentru functia Draw coordonate

axiale diferite (Exemplu: 1,110,210 si 310).

Obiectul TImageList poate grupa atat imagini de tip bitmap cat si

icon si metafile,in acelasi obiect.Este foarte usor de utilizat si

determina si o economie semnificativa de memorie.Este foarte util mai

ales atunci cand doriti sa extrageti doar un grup de imagini din mai

multe baze de date continand arhive intregi.

Se poate utiliza si pentru a gestiona icon-urile dintr-o bara de tip

toolbar sau dintr-un obiect complex de tip TPanel,etc...


-24- Win32 - TRICHEDIT

TRichEdit este un obiect destinat pentru redactarea unor texte.

Spre deosebire de TMemo,TRichEdit permite utilizarea unor fonturi diferite

de cele implicite,modificarea dimensiunii,a culorii sau a stilului etc.

Obiectul detine proprietati si metode proprii specializate pentru perso-

nalizarea textului editat.Dintre metode,trebuie remarcata procedura Print

care permite imprimarea instantanee a textului din obiect,fara a mai fi

necesara salvarea in memorie sau formatarea sub forma de fila,etc.

Se poate utiliza pentru includerea in aplicatii a unei facilitati de

editare si imprimare rapida a textelor.

EXEMPLU:

Salvati o fila noua si proiectul in Prj24.

Adaugati in Form un obiect de tip TRichEdit si alegeti dimensiunile dorite

apoi adaugati patru butoane.Selectati primul buton,denumiti butonul Font14

apoi atribuiti acestui buton urmatoarea procedura (OnClick):

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

RichEdit1.Font.Size:=14;

end;

Selectati cel de al doilea buton.Redenumiti butonul in Font18 red,apoi

atribuiti acestui buton evenimentul OnClick:

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

RichEdit1.Font.Size:=18;

RichEdit1.Font.Color:=clRed;

end;

Pentru a putea imprima datele,selectati butonul al treilea,redenumiti in

Caption butonul cu numele de Imprimare,apoi atribuiti acestui buton

urmatoarea procedura:

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

RichEdit1.Print('Text:');

end;

Pentru cel de al patrulea buton,redenumit Sterge,se poate atribui urma-

toarea procedura:

procedure TForm1.Speedbutton4Click(Sender: TObject);

begin

RichEdit1.Clear;

end;

Tastati F9 si executati aplicatia.

Aveti de ales dintre trei dimensiuni diferite ale fonturilor si dintre

cele doua culori (negru sau rosu).In mod similar,puteti introduce butoane

de setare a caracterelor fonturilor,astfel incat sa corespunda cu nece-

sitatile sau cu tabieturile d-voastra.

Un astfel de obiect este foarte usor de realizat si asigura o impor-

tanta economie de memorie atunci cand doriti sa includeti si un editor de

text in aplicatia produsa.