[ Pobierz całość w formacie PDF ]
.c_str(),fmOpenRead);iFileLength = FileSeek(iFileHandle, 0, 2);FileSeek(iFileHandle, 0, 0);Buffer = new char[iFileLength+1];FileRead(iFileHandle, Buffer, iFileLength);FileClose(iFileHandle);Memo1->Lines->Append(Buffer);Form1->Caption = Edit1->Text;delete [] Buffer;}catch(.){ShowMessage(" B³¹d otwarcia pliku.Nie mo¿na przydzieliæ"" wystarczaj¹cej iloœci pamiêci do wczytania"" pliku.");}}//--------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){Application->Terminate();}//--------------------------------------------------------------------Karta SamplesKarta Samples zawiera 9 przyk³adowych komponentów.Ich kody Ÿród³owe znajduj¹siê w katalogu instalacyjnym Buildera \EXAMPLES\CONTROLS\SOURCE.W momenciew³¹czenia tych komponentów do formularza, ich pliki nag³Ã³wkowe zostan¹do³¹czone dyrektyw¹ #pragma link, która informuje konsolidator o potrzebiedo³¹czenia danego zbioru do pliku wykonawczego programu.Tabela 6.7.Komponenty karty SamplesIkonaTypZnaczenieTPieElement s³u¿¹cy do przedstawiania okrêgu lub wycinka ak okrêgu.W³aœciwoœæAngles uruchamia Pie Angles Editor.Kod Ÿród³owy komponentu mo¿na znaleŸæ wplikach piereg.* oraz pies.*.TTrayIconKomponent, który U umo¿liwia m.in.wykonanie zamiany ikon, w tym ich prostejanimacji.Kod Ÿród³owy komponentu mo¿na znaleŸæ w plikach Trayicon.*.TPerformanceGraphElement s³u¿¹cy do przedstawienia grafiki.Kod Ÿród³owy komponentu znajduje siêw plikach PERFGRAP.*.TCSpinButtonKomponent U umo¿liwiaj¹cy p³ynne zmniejszanie i zwiêkszanie zawartoœciliczbowej wybranego pola edycji.Jego kod Ÿród³owy znajduje siê w plikachCSPIN.*.TCSpinEditElement S stanowi¹cy po³¹czenie TCSpinButton oraz TEdit.Kod Ÿród³owy mo¿naznaleŸæ w plikach CSPIN.*.TCColorGridKomponent umo¿liwiaj¹cy dokonanie wyboru koloru.Jego kod Ÿród³owy znajduje siêw plikach CGRID.*.TCGaugeKomponent przedstawiaj¹cy wskaŸnik postêpu.Dziêki w³aœciwoœci Kind mo¿na goprzedstawiæ w postaci paska, liczby, ko³a lub wycinka ak ko³a.Jego kodŸród³owy znajduje siê w plikach CGAUGES.*.TCDirectoryOutLineWyœwietla drzewo katalogów znajduj¹cych siê na dysku.Kod Ÿród³owy komponentuznajduje siê w plikach cdiroutl.*.TCCalendarKomponent wyœwietlaj¹cy aktualn¹ datê w postaci uproszczonego kalendarza.Jegokod Ÿród³owy znajduje siê w pliku CCALENDR.*.Jako przyk³ad wykorzystania niektórych komponentów z kart Samples oraz Standardstworzymy prost¹ aplikacjê, przy pomocy której mo¿liwym bêdzie animacja ikon.Zmieniaj¹ce siê ikony bêd¹ wyœwietlane na dolnym pasku zadañ w prawym rogumonitora tu¿ obok zegara.Wykorzystanie komponentów TCSpinEdit, TTrayIcon, TImageList oraz TCheckBoxÆwiczenie 6.8.Zaprojektujmy formularz sk³adaj¹cy siê z pojedynczych komponentów TCSpinEdit,TTrayIcon, TImageList, TButton oraz dwóch komponentów typu TCheckBox tak jakpokazuje to rysunek.6.16.Rys.6.16.Komponenty formularza projektu Projekt10.bprKorzystaj¹c z inspektora obiektów w³aœciwoœæ Icons komponentu TrayIcon1zmieñmy na ImageList1.Tym samym spowodujemy, ¿e ikony wczytane do komponentuImageList1 bêd¹ „widziane” przez TrayIcon1.W podobny sposób (¿eby zbytnio niekomplikowaæ dalszych rozwa¿añ) w³aœciwoœciom PopupMenuOn oraz RestoreOnprzypiszmy imNone.Cechy Caption komponentów CheckBox1 oraz CheckBox2 zmieñmy odpowiednio naAnimacja oraz Poka¿ ikonê.Cechy Increment, MinValue oraz MaxValue komponentu CSpinEdit1 ustalmy wsposób pokazany w funkcji FormCreate() na wydruku 6.7.We wnêtrzu tej samej funkcji cechê Visible komponentu TrayIcon1 uzale¿nimy odaktualnego stanu komponentu CheckBox2 reprezentowanego przez w³aœciwoœæChecked.W³aœciwoœæ Animate komponentu TrayIcon1 uzale¿nimy od stanu cechy Checkedkomponentu CheckBox1.W³aœciwoœci AnimateInterval komponentu TrayIcon1 przypiszmy wartoœæ cechy Valuekomponentu CSpinEdit1.Kompletny kod g³Ã³wnego modu³u naszej aplikacji powinien wygl¹daæ tak jakprzedstawiono to na wydruku 6.7.Wydruk 6.7.Kod modu³u Unit10.cpp aplikacji Projekt10.bpr wykonuj¹cej prost¹animacjê ikon.#include#pragma hdrstop#include "Unit10.h"#pragma package(smart_init)#pragma link "CSPIN"#pragma link "Trayicon"#pragma resource "*.dfm"TForm1 *Form1;//--------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//--------------------------------------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){CSpinEdit1->MaxValue = 2000;CSpinEdit1->MinValue = 100;CSpinEdit1->Increment = 100;TrayIcon1->Visible = CheckBox2->Checked;}//--------------------------------------------------------------------void __fastcall TForm1::CheckBox1Click(TObject *Sender){TrayIcon1->Animate = CheckBox1->Checked;if(CheckBox1->Checked == FALSE)TrayIcon1->IconIndex = 0;Update();}//--------------------------------------------------------------------void __fastcall TForm1::CheckBox2Click(TObject *Sender){TrayIcon1->Visible = CheckBox2->Checked;CheckBox1->Enabled = CheckBox2->Checked;Update();}//--------------------------------------------------------------------void __fastcall TForm1::CSpinEdit1Change(TObject *Sender){TrayIcon1->AnimateInterval = CSpinEdit1->Value;}//--------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){Application->Terminate();}//--------------------------------------------------------------------Przedstawiony algorytm ka¿dy na w³asny u¿ytek mo¿e wzbogaciæ o szereg innychelementów.Zagl¹daj¹c do kodów Ÿród³owych poszczególnych komponentów kartySamples mo¿emy samodzielnie odszyfrowaæ jeszcze wiele ich mo¿liwoœci.Komponent TCCalendarÆwiczenie 6.9.Zaprojektujemy aplikacjê wykorzystuj¹c¹ komponent TCCalendar
[ Pobierz całość w formacie PDF ]