Saveti – Delphi

GreenPrint softver je lansirao novu besplatnu verziju koja treba da pomogne kućnim korisnicima i neprofitnim organizacijama da smanje količinu utrošenog materijala prilikom štampanja. Poznata pod imenom GreenPrint World edition, ova edicija ima manje funkcija nego druge verzije i uključuje reklame. Ovaj softver radi tako što analizira svaku stranicu dokumenta koji ste poslali na štampanje, i traži reklamne banere, stranice na kojima se nalazi samo logo, URL i tako dalje a onda ih obeležava i uklanja pre nego što se odštampaju. Vi takođe pomoću samo jednog klika sa mišem možete da uklonite pojedinačne slike. Prema GreenPrint-u, korisnici mogu da uštede do 90 dolara godišnje i eliminišu oko 1,400 stranica koje bi bile bačene. Pored toga, ovaj program kvantifikuje upotrebu vašeg tonera i uštedu u papiru u preglednom izveštaju koji možete da pregledate i da budete ponosni zbog svog onog drveća koje ste na ovaj način spasli. Kompanija procenjuje da će široko rasprostranjena primena GreenPrint-a spasti 100 miliona drveća i smanjiti efekat staklene bašte za 30 miliona tona godišnje na globalnom nivou. Mi smo uvek za tehnologiju koja će nam pomoći da spasemo šume i automatizujemo dosadne zadatke kao što je štampanje. Ovo je veliki korak u pravom smeru, međutim, mi i dalje preporučujemo print preview kao važan deo procesa štampanja. Adresa: GreenPrint

Da li vaš mozak ubrzano radi? Opustite se. Da biste izbegli iscrpljivanje, weblog za samoaktualizaciju Zen Habits vam preporučuje da usporite. I to odmah. Ako je vaš um konstantno pun ideja, misli ili zadnjih rokova za završavanje poslova, onda je sigurno da ne očekujete odmah da vidite rezultate ovakvih vaših aktivnosti. Zato pređite ne ritam života bebe. Počnite da zamišljate nekoliko sledećih dana bez ikakvih uznemiravanja i radnih obaveza. Zamislite jedan dan koji ste postpuno posvetili sebi. I na kraju, pretvorite te misli u stvarnost - polako. Svaki dan odvojite malo vremena za sebe - barem sat vremena. Nemojte da žurite da očistite hranu iz tanjira. Probajte da zadržite mirnoću čak i u teškim situacijama. Suzite vašu pažnju: više slušajte a manje odgovarajte. Ignorišite uznemiravanja. Na primer dok vozite ne odgovarajte na telefonske pozive. Umesto toga, fokusirajte se na put i na okruženje. Tako što ćete usporiti kada vam je to potrebno, imaćete mnogo koristi. Osećaćete se bolje, cenićete vašu okolinu i prirodu koja vas okružuje i mnogo ćete više uživati u životu.

1. Kliknite na Start / Run, upišite regedit i kliknite na OK.  2. Potrebno je da pronađete sledeći ključ: HKEY_USERS\DEFAULT\Control Panel\Colors 3. Zatim u desnom prozoru dva puta kliknite na Background.  4. Promenite vrednosti tako što će te upisati 3 broja RGB boje koju ste izabrali  (npr. za narandžastu boju su ove vrednosti: Red – 255, Green – 128, Blue – 64. Sada ste promenili boju pozadine Login ekrana. Pripremio: Milenko Kusurović

Ako na istom računaru koristite dva operativna sistema (na primer Windows XP i Windows Vista) pri podizanju računara čekate 30 sekundi na automatsko podizanje sistema ili sami odaberete operativni sistem koji želite. Vreme automatskog podizanaja može da se skrati. Windows XP• Desni klik mišem na My Computer• Izaberite Properties• Zatim odaberete karticu Advanced pa kliknte na dugme Setings u delu Startup and Recovery. • Tada se otvara novi prozor gde možete da odaberete koji će operativni sistem biti prvi (default), i koliko će vremena proći nakon što se računar uključi pa do početka podizanja operativnog sistema, kao i nekoliko dodatnih podešavanja. Takođe možete izabrati ručno editovanje boot. ini datoteke. Pri ovim podešavanjima preporučuje se da budete oprezni. NapomenaWindows Vista ne može na ovaj način da se konfiguriše. Pripremio: Milenko Kusurović

Odmah treba reći da ne postoji nijedna računarska aplikacija bez bug-ova. Pitanje je samo u kojoj meri su prisutne greške produkovane od strane projektanata softvera. Kako ćete znati da je bug koji se pojavio u vašoj Delphi aplikaciji zaista vaš? Nijedna, ali zaista nijedna Windows aplikacija nije oslobođena bug-ova, pa ni Delphi nije izuzetak. U kompjuterskoj tehnologiji, bug predstavlja grešku u kodiranju kompjuterskog programa, koja može da izazove nepredvidljiv ili nepravilan rad. Bez obzira koliko ste oprezni, program na kojem možda i sada radite, sigurno ima nekoliko bug-ova. čak iako je programski kod perfektan (vrlo redak slučaj), morate u vašim aplikacijama predvideti greške i obezbediti mogućnost predupređenja istih, kao što su: nedostajanje bitnih fajlova, mrežne greške, itd. Pronalaženje mesta na kojem se vaša aplikacija “ruši”, može oduzeti puno dragocenog vremena. Jednom je neko od programera primetio: “Linija programskog koda koja ne sadrži nikakvu grešku, jeste ona koju ne morate napisati. ” Ovo je velika istina, ali ako niste znali, možete napisati bug-ovitu Delphi aplikaciju koja ne sadrži nijednu liniju koda. Kako je ovo moguće? Delphi, kao i svaka Windows aplikacija, poseduje sopstvene bug-ove. Da, čak i moćni Delphi nije oslobođen “bubica”. Različite vrste bug-ova imaju različita polja delovanja i deluju različito. Na primer, osobina StateImage kontrole TreeView neće prikazati 0-ti element iz liste TImageList. Ovaj bug je jedna od osnovnih IDE grešaka funkcionalnosti, pa ipak Delphi će i pored ove “greščice” nesmetano raditi. Naredni Delphi bug je mnogo ozbiljniji. Kada desnim klikom kliknete u prozoru Code Explorer-a i izaberete New procedure, doći će do zaglavljivanja Delphi-ja, kada ćete morati da ga restartujete. Jedna od najboljih metoda aktivne prevencije od grešaka je da uvek vašu kopiju Delphi-ja opskrbite najnovijim update-ovima i zakrpama (bez obzira na verziju koju vi koristite). Ukoliko imate i poslednji izdati patch za Delphi - broj bug-ova u vašim aplikacijama će se drastično smanjiti. Pripremio: Milenko Kusurović

U većem broju korisničkih aplikacija, posebno raznih editora, trebaće vam funkcija kojom izlistavate sve fontove instalirane na datom sistemu. U većem broju korisničkih aplikacija, posebno raznih editora, trebaće vam funkcija kojom izlistavate sve fontove instalirane na datom sistemu. Pa čak i ako se ne radi o editorima, ovom funkcijom možete korisnicima obezbediti izbor podešavanja izgleda interfejsa vaših apliakcija (font kojim su ispisane kontrole). Radi primera, kreiraćemo mali programčić koji će samo izlistati fontove. Pokrenite Delphi i otvorite novi projekat. Na praznu formu postavite jedno dugme, jednu kontrolu Labeli jednu kontrolu Listbox. Dodajte funkciju za izlistavanje fontova: function EnumFontsProc (var LogFont:TLogFont; var TextMetric:TTextMetric; FontType:Integer; Data:Pointer):Integer;stdcall;varLista:TStrings;beginLista:=TStrings(Data);// preuzimanje string nizaLista. Add(LogFont. lfFaceName);// dodavanje naziva fonta u listuRezult:=1;end; Potom dodajte i poziv tzv. callback funkcije: procedure TMainForm. FormCreate(Sender: TObject);varDC: HDC;beginDC:= GetDC(0);tryEnumFonts(DC, nil,@EnumFontsProc, Pointer(ListBox1. Items);// prosleđivanje callback funkcijifinallyReleaseDC (0, DC);// oslobađanje resursaend;end; Callback funkcije predstavljaju potprograme koje Windows poziva iz vaše aplikacije. U našem slučaju, objekat ListBox koristimo za spisak naziva instaliranih fontova. Za formiranje spiska, kreirali smo proceduru za obradu događaja OnCreate. U ovom prvom primeru nismo koristili dugmić. Postoji još jedan, mnogo jednostavniji, način za izlistavanje fontova. Potrebno je da samo objektu tipa TStringList dodelimo Screen. Fonts. Postavljenom dugmetu, potrebno je da samo dodelite sledeću liniju (događaj OnClick): ListBox1 : = Screen. Fonts; Pripremio: Milenko Kusurović

Neka vaš modem “izigrava” obični telefon. Modemom birajte obične “glasovne” telefonske brojeve. Usledećem primeru ćemo videti kako da iz naše Delphi aplikacije biramo telefonske brojeve za glasovnu komunikaciju, nešto slično Windows-ovom “Phone Dialer”-u. Sve se ovo odvija preko poziva funkcija u biblioteci TAPI32. dll. Pokrenite Delphi i kreirajte novi projekt, a zatim posle svih deklaracija dodajte sledeće konstante i funkcije: {tapi Errors}const TAPIERR_CONNECTED = 0;const TAPIERR_DROPPED = -1;const TAPIERR_NOREQUESTRECIPIENT = -2;const TAPIERR_REQUESTQUEUEFULL = -3;const TAPIERR_INVALDESTADDRESS = -4;const TAPIERR_INVALWINDOWHANDLE = -5;const TAPIERR_INVALDEVICECLASS = -6;const TAPIERR_INVALDEVICEID = -7;const TAPIERR_DEVICECLASSUNAVAIL = -8;const TAPIERR_DEVICEIDUNAVAIL = -9;const TAPIERR_DEVICEINUSE = -10;const TAPIERR_DESTBUSY = -11;const TAPIERR_DESTNOANSWER = -12;const TAPIERR_DESTUNAVAIL = -13;const TAPIERR_UNKNOWNWINHANDLE = -14;const TAPIERR_UNKNOWNREQUESTID = -15;const TAPIERR_REQUESTFAILED = -16;const TAPIERR_REQUESTCANCELLED = -17;const TAPIERR_INVALPOINTER = -18; {tapi size constants}const TAPIMAXTelBrojSIZE = 80;const TAPIMAXAPPNAMESIZE = 40;const TAPIMAXPozivUpucenSIZE = 40;const TAPIMAXKomentarSIZE = 80;const TAPIMAXDEVICECLASSSIZE = 40;const TAPIMAXDEVICEIDSIZE = 40; function tapiRequestMakeCallA(TelBroj : PAnsiChar;AppName : PAnsiChar;PozivUpucen : PAnsiChar;Komentar : PAnsiChar) : LongInt;stdcall; external ‘TAPI32. DLL’; function tapiRequestMakeCallW(TelBroj : PWideChar;AppName : PWideChar;PozivUpucen : PWideChar;Komentar : PWideChar) : LongInt;stdcall; external ‘TAPI32. DLL’; function tapiRequestMakeCall(TelBroj : PChar;AppName : PChar;PozivUpucen : PChar;Komentar : PChar) : LongInt;stdcall; external ‘TAPI32. DLL’; Potom dodajte na formu jedno komandno dugme, i u događaj Button_Click smestite sledeći kod: procedure TForm1. Button1Click(Sender: TObject);varTelBroj : string;PozivUpucen : string;Komentar : string;beginTelBroj := ‘011-111111′; // broj telefonaPozivUpucen := ‘Ime’; // onaj koga pozivamoKomentar := ‘Poziv upicen…’; // neki komentartapiRequestMakeCall(pChar(TelBroj),PChar(Application. Title),PChar(PozivUpucen),PChar(Komentar));end; Kada pokrenete aplikaciju i kliknete na dugme, automatski će se birati broj naveden u varijabli “TelBroj”. Na ovaj način možete na napravite program - Telefonski imenik, koji će odmah birati upisane brojeve. Pripremio: Milenko Kusurović

U svaki Delphi projekat/aplikaciju možete smestiti i osnovne informacije o programa, što će biti korisno i korisnicima aplikacija ali i programerima koji vrše eventualni reinženjering. Delphi svojim korisnicima - programerima, omogućava da uz svaki projekat (aplikaciju) smeste i osnovne informacije o programu, kao što su: • Naziv programa• Verzija programa• Opis projekta• Podaci o pravima korišćenja programa• Komentari, itd. Sve ove informacije možete uneti pri kreiranju aplikacija, preko menija Project > Options i kartice “Version Info”. Ovde unete informacije koriste i samim programerima, ali i budućim korisnicima. Programerima, ponajviše zbog beleženja izmena, revizija, i prepravki u kodu, tj. radi boljeg snalaženja unutar jednog projekta. Korisnicima ova opcija može biti važna, kako zbog praćenja verzije programa kojeg koriste (u sklopu održavanja softverskog proizvoda), tako i zbog prava i obaveza preuzetih kupovinom nekog programa (sekcije “LegalCopyright” i “LegalTrademarks”). Za iščitavanje “VersionInfo” informacija služi procedura “GetFileVersionInfo”. U sledećim redovima videćemo primer procedure koja će da iščita sve dostupne VersionInfo informacije i da ih smesti u jedan listbox. Na praznu formu postavi te jedno dugme i jednu listu (listbox). Klikom na dugme pozivaćemo funkciju koja će sve odraditi: procedure TForm1. Button1Click(Sender: TObject);beginInformacijeOVerziji(ListBox1);end; Preostali deo koda smestite u isti Unit: Function StringPad(InputStr,FillChar: String;StrLen: Integer;StrJustify: Boolean): String;VarTempFill: String;Counter : Integer;BeginIf Not (Length(InputStr) = StrLen) ThenBeginIf Length(InputStr) > StrLen ThenBeginInputStr := Copy(InputStr,1,StrLen);EndElseBeginTempFill := ”;For Counter := 1 To StrLen-Length(InputStr) DoBeginTempFill := TempFill + FillChar;End;If StrJustify ThenBegin{Left Justified}InputStr := InputStr + TempFill;EndElseBegin{Right Justified}InputStr := TempFill + InputStr ;End;End;End;Result := InputStr;End; Function InformacijeOVerziji(ListBox : TListBox): Boolean;constInfoNum = 11;InfoStr : array [1. . InfoNum] of String =(’CompanyName’, ‘FileDescription’, ‘FileVersion’,‘InternalName’, ‘LegalCopyright’, ‘LegalTradeMarks’,‘OriginalFilename’, ‘ProductName’, ‘ProductVersion’,‘Comments’, ‘Author’);LabelStr : array [1. . InfoNum] of String =(’Company Name’, ‘Description’, ‘File Version’,‘Internal Name’, ‘Copyright’, ‘TradeMarks’,‘Original File Name’, ‘Product Name’,‘Product Version’, ‘Comments’, ‘Author’);varS: String;n, Len, i : Integer;Buf : PChar;Value : PChar;beginTryS := Application. ExeName;ListBox. Items. Clear;ListBox. Sorted := True;ListBox. Font. Name := ‘Courier New’;n := GetFileVersionInfoSize(PChar(S),n);If n > 0 Then BeginBuf := AllocMem(n);ListBox. Items. Add(StringPad(’Size’,’ ‘,20,True)+’ = ‘+IntToStr(n));GetFileVersionInfo(PChar(S),0,n,Buf);For i:=1 To InfoNum Do BeginIf VerQueryValue(Buf,PChar(’StringFileInfo\040904E4\’+InfoStr[i]),Pointer(Value),Len) ThenBeginValue := PChar(Trim(Value));If Length(Value) > 0 ThenBeginListBox. Items. Add(StringPad(labelStr[i],’ ‘,20,True)+’ = ‘+Value);End;End;End;FreeMem(Buf,n);EndElse BeginListBox. Items. Add(’Nema FileVersionInfo podataka’);End;Result := True;ExceptResult := False;End;End; Pripremio: Milenko Kusurović

Delphi poseduje dosta velike mogućnosti za obradu grafike i miltimedije, a glavni oslonac na tom polju čine klase TCanvas i TBitmap. D eo programiranja koji se bavi grafikom uvek je predstavljao zabavniji deo programiranja. Naravno i Delphi poseduje dosta velike mogućnosti za obradu grafike i uopšte multimedije. Što se tiče grafičkog dela najbitnije su klase TCanvas i TBitmap. Uz pomoć VCL klase TCanvas radni prostor (prozore) ćemo pretvoriti u platno za crtanje, i to na lak i efektan način. Neke o glavnik karakteristika ove klase su : • Brush - boja za popunjavanje. • Font - font kojim ćemo “crtati” tekst• Pen - karakteristika za određenje boje i stila linija za crtanje na platnu• PenPos - trenutna pozicija “olovke”, izražena preko X i Y koordinata. • Pixels - skup piksela koji pripadaju određenoj površini za crtanje Pored osnovnih karakteristika, jako su bitne i metode kojima se vrši crtanje. Navešćemo samo neke od metoda: • Rectangle - crtanje pravougaonika. • Draw - kopiranje grafike iz memorije na platno (canvas). • TextExtent - metoda koja vraća visinu i širinu stringa koji se nalazi u parametru Text• TextOut - metoda koja vrši “crtanje” teksta na platno• TextRect - metoda koja ispisuje tekst unutar pravougaonika. Probaćemo sada da uz pomoć osnovne metode TextOut na platno ispišemo neki tekst u vidu grafike. Ovoj metodi treba samo da prosledite koordinate X i Y, i string koji želite da se ispipše. Na primer: Canvas. TextOut (20,20,’Ovo je probni string. ’) Ovim kodom ćete nacrtati dati string na poziciji 20 piksela odgore i 20 piksela od leve ivice forme. Koordinate predstavljaju gornji levi ugao teksta koji će biti “nacrtan”. Metoda TextRect će vam omogućiti da odredite pravougaonik za isecanje u koji ćete smestiti tekst. Ukoliko tekst bude prelazio granice pravougaonika biće “odsečen”. Obe ove metode dozvoljavaju ispisivanje stringova samo u jednoj liniji, što znači da nema preloma linija (word wrap). Pripremio: Milenko Kusurović

Tačke prekida mogu biti od velike koristi jer ih, u fazi testiranja, možete postaviti na lokacije koje prethode programskom kodu koji je potencijalno problematičan. B reakpoints ili “tačke prekida“, predstavljaju tačke u kojima se zaustavlja izvršenje programa, uglavnom tokom otklanjanja grešaka u programima. Ove tačke se postavljaju u linije izvornog koda ili na određenu lokaciju, adrese koju vi odredite. Veliki broj programera ovi opciju retko koristi, ili je koristi samo kada se jave problemi u radu programa. Ipak, i bez problema u programiranju, preporučuje se korišćenje tački prekida jer ćete na taj način bolje videti kako u stvari radi Delphi i sekvenciranje vašeg programskog koda. Tačke prekida možete postaviti na lokacije koje prethode programskom kodu koji je potencijalno problematičan. Nakon postavljanja tački prekida, kada pokrenete program, njegovo izvršavanje će se prekinuti, a vi ćete preko prozor “Code View” i “CPU” moći da vidite broj linije ili adresu lokacije koja sadrži tačku prekida. U ovom trenutku, možete iskoristiti debugger da bi uvideli stanje programa i svih njegovi parametara. Da bi bolje uvideli korist upotrebe tački prekida prikazaćemo vam mali primer. Pokrenite Delphi i na praznu formu postavite jedno komando dugme, a zatim dvostruko kliknite na dugme i dodajte sledeći programski kod (događaj OnClick): procedure TForm1. Button1Click(Sender: TObject);var x,y : word;    s : string;begin    s:='15';    x:=StrToInt(s);    x:=x+1;end; Po dodavanju koda, iskompajlirajte program preko menija “Project > Build All”. Sada na levoj strani prozora sa kodom, možete videti male plave tačke, one označavaju mesta na kojima možete postaviti tačke prekida. Kliknite na plavu tačku pored linije:       x:=StrToInt(s); Pozadina cele linije će biti crvene boje, što znači da ste ovde dodali tačku prekida (Breakpoint). Ako ponovo kliknete, sada na crevenu tačku, ukloniće se tačka prekida i ponovo ćete videti plavu tačku. Ponovo kliknite ovu tačku radi postavljanja tačke prekida, a zatim i pokrenite program (F9) pa kliknite postavljeni dugmić. Izvršenje programa će stati kod postavljene tačke prekida, a Delphi će vam prikazati prozor sa programskim kodom. Zapazite i malu zelenu kvačicu na crvenoj tački, što nam govori da je program stao upravo ovde, a ne na nekoj drugoj tački prekida. U ovom trenutku možete iskoristiti i pozvati tri funkcijska tastera: • F8 - ovim tasterom napravićemo samo jedan korak, tj. izvršiće se još jedna linija programskog koda. • F9 - ovim tasterom izvršavamo program do prve sledeće tačke prekida. Ukoliko nadalje nema nijedne tačke prekida, program dalje normalno nastavlja izvršenje. • kombinacijom Ctrl+F2 - ovom kombinacijom resetujemo program tj. prekidamo njegovo dalje izvršenje. Prevucite pokazivač miša iznad varijable “s” i moćićete da vidite vrednost date varijable (s=’15′). Isto važi i za sve ostale varijable. Kao što vidite, upotrebom tački prekida stećićete bolji uvid u rad vaših programa. Pripremio: Milenko Kusurović

Postoji više načina za kreiranje direktorijuma, pa i čitavog stabla direktorijuma (direktorijum sa pripadajućim poddirektorijumima), a u ovom prilogu prikazaćemo vam jednu proceduru koja vam može pojednostaviti posao. U ovom prilogu ćemo videti kako da kreiramo celo stablo direktorijuma, odnosno kako da kreiramo recimo direktorijum “C:\Prvi\Drugi\Treci” (znači direktorijum Treci), kad direktorijumi “Prvi” i “Drugi” ne postoje. procedure KreirajDir(Dir: String);function Prethodni(Sta: String; Gde: String): Integer;varInd : Integer; beginResult := 0; for Ind := (Length(Gde)-Length(Sta)+1) downto 1 doif Copy(Gde, Ind, Length(Sta)) = Sta thenbeginResult := Ind;Break;end;end; varPrethodniDir : String;Ind : Integer; beginif Copy(Dir,2,1) <> ‘:’ thenif Copy(Dir,3,1) <> ‘\’ thenif Copy(Dir,1,1) = ‘\’ thenDir := ‘C:’+DirelseDir := ‘C:\’+DirelseDir := ‘C:’+Dir; if not DirectoryExists(Dir) thenbegin// ukoliko direktorijum ne postoji,// pronadji naziv prethodnog Ind := Prethodni(’\', Dir);// pozicija prethodnog ‘\’PrethodniDir := Copy(Dir, 1, Ind-1);// prethodni direktorijum // ukoliko prethodni dir. ne postoji,// propusta se rekurzivno kroz proceduru…if not DirectoryExists(PrethodniDir) thenKreirajDir(PrethodniDir); // u ovoj tacki prethodni dir. mora da postoji. // Tako da ce se kreirati direktorijum u “Dir”varijabli. CreateDir(Dir);end;end; Kako se koristi ova procedura, pa jednostavno je negde u kodu pozovemo sa: KreirajDir(’\Prvi\Drugi\Treci’); Kada se pozove procedura, ispituje se string varijabla stabla direktorijuma, a zatim se na početak dodaje “C:\”. Potom se ispituje da li uopšte postoji takav direktorijum na disku, ako postoji procedura dolazi do kraja, a ako ne postoji prolazi se kroz stablo direktorijuma sve do korenog, kada se kreira prvi, pa potom i ostali, sve do poslednjeg i to rekurzivno. Pripremio: Milenko Kusurović

Korišćenjem vrlo privlačane Coolbar kontrole, interfejs vaših aplikacija može biti još privlačniji za korisnike programa. Gotovo sve savremene aplikacije imaju takozvane “CoolBar”-ove, tj. palete alatki koje se prilagođavaju potrebama korisnika. Očigledan primer su palete alata u paketu MS Office i palete u MS Internet Explorer-u. Takođe i Dephi poseduje ovakvu kontrolu - Coolbar, koja se nalazi na “Win32″ paleti komponenti. Ovo je ustvari objekat u vidu kontejnera koji može da u sebi sadrži bilo koju komponentu. Sve komponente koje postavite na Coolbar, ređaju se u više traka (bars), a tokom izvršavanja programa korisnici mogu da ih međusobno mešaju i kombinuju. Postavljanje na formu se vrši jednostavnim izborom sa palete VCL i smeštanjem na formu. Coolbar se “lepi” za vrh prozora, ispod linije menija, a ovo možemo promeniti preko osobine “Align”. Na jednom Coolbar-u može da bude više traka (bands), koje mogu da imaju i tekstualne oznake pored dugmića. Da bi kreirali oznaku, pritisnite dugme sa tri tačkice u osobini “Bands”, otvoriće vam se “Coolbar Bands Editor”. Trake dodajete pritiskom na “Add New”, a oznake, ukucavajući nazive u polje “Text”. Da bi sada, na Coolbar dodali alatke, postavićemo jednu “Toolbar” kontrolu. Da bi dodali dugme na Toolbar, pritisnite desnim tasterom miša i izaberite “New Button”. Svako dugme na Toolbar-u je objekat klase “TToolButton”, tj. ovo nisu obična dugmad (uvek koristite ovakav način dobijanja dugmića). Postavite osobine: • svojstvo “Autosize”, objekta Toolbar na “True”, a objekata “ToolButton” na “False”. • svojstvo “Flat”, objekta Toolbar na “True”. Ovim dobijamo efekat ravnih dugmića. • svojstva “ButtonHeight” i “ButtonWidtn” trebaju biti ista za sve dugmiće, nemoguće je podešavati veličinu pojedinačnog dugmeta. čak i za pozadinu Coolbar-a možete postaviti bitmapu, na ovaj način dobijate mnogo efektivniji izgled samog prozora. Ovo činimo preko osobine “Bitmap” Coolbar-a. Nazive dugmićima dodeljujemo preko osobine “Caption”, ali da bi oni bili i vidljivi morate podesiti i osobinu Toolbar-a “ShowCaptions” na “True”. Ikone na dugmiće postavljamo preko dodatne komponente “ImageList”. Ubacite na formu ovu kontrolu i dvostruko kliknite na nju. Otvoriće vam se prozor “Add Editor”-a, ubacite neke ikonice. Svakoj ikonici de dodeljuje indeks, počevši od nule za prvu sliku u redu. Preko ovih indeksa dodelićete posebne ikone svakom dugmetu na Toolbar-u. Ovo ćete uraditi na kraju tako što osobini Toolbar-a “Images” dodelite vrednost “ImageList1″. Na ovaj način ćete dobiti da vaši programi izgledaju poput svih savremenih Windows aplikacija. Pripremio: Milenko Kusurović

Uz pomoć klasične TMediaPlayer komponente možemo vrlo lako i vrlo brzo kreirati sopstveni MP3 plejer. MP3 playerKao što već verovatno znate format MP3 je kompresovani . wav fajl, čiji stepen kompresije ide i do deset puta, pa tako obični muzički fajl koji ima 64MB kada se kompresuje imaće 3-4MB. U sledećim redovima videćemo kako da kreiramo MP3 Player uz pomoć klasične TMediaPlayer komponente. Jedna od najbitnijih osobina ove komponente je DeviceType, koja određuje koje tipove multimedijalnih fajlova možemo otvoriti sa ovom komponentom. Ako malo bolje pogledamo, ovde je navedeno nekoliko tipova, ali nigde se ne spominje MP3. Ako ste mislili da je sa ovom komponentom nemoguće “odsvirati” MP3 fajlove, pogrešili ste. Otvorite novi projekt, i formu postavite sledeće komponente: • MediaPlayer - podesite samo osobinu “VisibleButtons”, da samo prva tri dugmića ostanu vidljiva (postavite na “True”, ostale na “False”). • BitButton - u osobinu “Caption” upi¹ite “Otvori”. • Label - izbrišite sadržaj osobine “Caption”. • ProgressBar - osobinu “Smooth” postavite na “True”, da bi linija napredovanja i¹la “glatko”. • OpenDialog - u polju osobine “Filter” pritisnite dugmić sa tri tačke da bi dobili filter editor. Kada vam se otvori editor, u polje “Filter Name” unesite “MP3 fajlovi” i u polje Filter unesite ” *. mp3 “. • Timer - ovde samo proverite da je osobina “Interval” postavljena na 1. 000 milisekundi odnosno 1 sekund. Kada ste postavili na formu sve ove komponente i podesili odgovarajuće njihove osobine, ostaje samo da unesete sledeći kod (vrlo mali): procedure TForm1. BitBtn1Click(Sender: TObject);beginwith OpenDialog1 do  if Execute then      ProgressBar1. Max := 0;      label1. caption:= OpenDialog1. FileName;      MediaPlayer1. FileName :=OpenDialog1. FileName;      MediaPlayer1. Open;      ProgressBar1. Max := MediaPlayer1. Length;  end; procedure TForm1. Timer1Timer(Sender: TObject);beginif ProgressBar1. Max<>0 then    ProgressBar1. Position := Mediaplayer1. Position; end; Pokrenite projekat pritiskom na F9 i imaćete funkcionalni MP3 Player koji otvara jedan po jedan fajl, uz malu doradu mo¾ete daodati da „odsvira” i celu listu numera. Pripremio: Milenko Kusurović

Ponekad je korisnicima aplikacija potrebno omogućiti poziv Pop-Up menija klikom na neko dugme, posebno u slučajevima kada korisnici nisu dovoljno obučeni. Kontrola TPopupmenu i kontrole koje poseduju mogućnost “desnog-klika” predstavljaju dobro rešenje za sve korisnike. Međutim, ponekad korisnici aplikacija ne znaju da imaju mogućnost korišćenja desnog klika, pa je tada dobro da pop-up meni pozovemo klikom na neki dugmić ili sličnu kontrolu. Korišćenjem metode OtvoriPopUp() koju ćemo vam predstaviti u narednim redovima, moćićete da otvorite bilo koji pop-up meni iz bilo kog dela obrade događaja OnClick, bilo koje kontrole u vašoj aplikaciji. Potrebno je samo da programski kôd sličan ovom dole smestite u obradu događaja Click. Programski kôd procedure TForm1. Button1Click(Sender:TObject);beginOtvoriPopUp(Sender,PopUpMenu1);end; Procedure OtvoriPopUp(TheControl:Tobject; PopMenu:TPopMenu);varp:TPoint;r:TRect;beginIf (TheControl Is TButtonControl) ThenBegin// smeštanje pop menija na dno dugmićaGetWindowRect(TButtonControl(TheControl). handle,r);p. x:=r. Left;p. y:=r. Bottom;End Else BeginGetCursorPos(p);End;Popmenu. Popoup(p. x, p. y);End; Pripremio: Milenko Kusurović

Ako vam ikada bude potrebno da pokrećete neku spoljnu aplikaciju iz vašeg projekta, a treba da sačekate njen završetak rada, nemojte koristiti proceduru ShellExecute. Zaobićićemo ovu proceduru korišćenjem funkcija: CreateProcess, WaitForSingleObject i CloseHandle. Pokrenite novi projekt i na formu postavite jedno komandno dugme, te događaju ButtonClick dodajte sledeći programski kod: procedure TForm1. Button1Click(Sender: TObject);varproc_info: TProcessInformation;startni_info: TStartupInfo;begin// inicijalizacijaFillChar(proc_info, sizeof(TProcessInformation), 0);FillChar(startni_info, sizeof(TStartupInfo), 0); startni_info. cb := sizeof(TStartupInfo);// pokusaj kreiranja procesaif CreateProcess(’c:\windows\notepad. exe’, nil, nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, startni_info, proc_info) <> False thenbegin// proces je uspesno kreiran i//ceka se njegovo okoncanje…WaitForSingleObject(proc_info. hProcess, INFINITE);// Proces je zavrsen. Možemo ga zatvoritiCloseHandle(proc_info. hProcess); Application. MessageBox(’Notepad zavrsio rad!’, ‘Info’, MB_ICONINFORMATION);endelse begin// nemogućnost kreiranja procesaApplication. MessageBox(’Nije moguce izvrsiti ‘ + ‘application’, ‘Error’, MB_ICONEXCLAMATION);end;end; Kada pokrenete aplikaciju i kliknete dugme, pokrenuće se Windows editor “Notepad” (proverite samo putanju). Kada zatvorite “Notepad”, dobićete poruku o završetku pozvanog procesa. Eventualni problemi mogu da se jave kod funkcije WaitForSingleObjecti to u kombinaciji sa nekim aplikacijama. Pripremio: Milenko Kusurović

Navikli smo da se kroz forme Windows aplikacija krećemo pritiskom na taster [TAB]. Šta ako ovo želimo da promenimo i da fokus prebacujemo pritiskom na taster [Enter]? U običajeno je da se kroz forme aplikacija krećemo pritiskom na taster [TAB], šta ako ovo želimo da promenimo i da fokus prebacujemo pritiskom na taster [Enter]? Sa druge strane podrazumevano je da, ako na nekoj formi pritisnemo Enter, simuliraće se pritisak na default taster. Ovo podrazumevano ponašanje možemo promeniti i to tako što izvršimo preraspodelu kontrole sa tastature, a to se radi preko osobine KeyPreview koju postavljamo na True. Ovim smo regulisali da naša forma, na svaki pritisak na taster, na tastaturi pozove handler za događaj OnKeyPress. Ovo ćemo dobiti ako sledeći kod ubacimo u FormKeyPress. BEGINif Key = #13 thenif Not (ActiveControl is TDBGrid)thenBEGINKey := #0 ;Perform (WM_NEXTDLGCTL, 0, 0) ;ENDelsewith TDBGrid (ActiveControl) doif selecedtindex <> (FieldCount - 1)then selecedtindex := selecedtindex + 1else selecedtindex := 0 ;END; Šta radi ovaj programski kod? U prvom delu, u slučaju da je pritisnut taster [Enter] (#13), a aktivna kontrola (ActiveControl) nije TDBGrid, poništiće se taster i poslaće se poruka WM_NEXTDLGCTL. Ova poruka će kroz kontrolu na formi preću na Windows i izazvaće aktiviranje sledeće kontrole (kao da je pritisnuto [TAB]). Drugi deo koda obrađuje slučaj kada je pritisnuto Enter, a fokus se nalazi na TDBGrid kontroli. Sa ovim kodom izazivamo prelaženje sa jednog reda na drugi u kontroli za prikaz baze podataka. Ovde imamo dva podatka: FieldCount i SelectedIndex. Prvi podatak je broj polja u mreži (grid-u), a drugi indeks trenutnog polja. U slučaju da se nalazimo na poslednjem polju, prebacijemo se na prvo, a inače vršimo pomeraj za po jedno polje. Pripremio: Milenko Kusurović

Nakon upoznavanja sa postupkom čitanja podataka o kontaktima, videćemo i kao se isti podaci dodaju u Outlook-ov adresar. Nastavljajući se na prethodni prilog u kome smo vam prikazali kako da ičitate podatke o kontaktima iz Outlook-a, u ovom prilogu ćemo vam prikazati kako da upišete novi kontakt u Outlook. Sa ovom procedurom možete, na primer, kreirati aplikaciju za konverziju ili import-eksport aplikaciju. Radi primera kreiraćemo novi Delphi projekt sa formom na koju ćemo postaviti nekoliko polja sa podacima koje treba da upišete u Outlook-ov folder Contacts. Postavite elemente (kontrole) kao na slici i dodajte sledeći programski kod: {$IFDEF SYN_COMPILER_6}Uses ComObj, Outlook2000;{$ELSE}Uses ComObj, Outlook8;{$ENDIF} procedure UpisNovogKontakta;varOutlApp : OutlookApplication;OutlNamespace : Namespace;ContactFolder : MAPIFolder;Contact : ContactItem;beginOutlApp:=CoOutlookApplication. Create;OutlNamespace:=OutlApp. GetNameSpace(’MAPI’);ContactFolder:=OutlNamespace. GetDefaultFolder(olFolderContacts);Contact:=OutlApp. createitem(olContactItem) as ContactItem;Contact. FirstName:=Form1. Edit1. Text;Contact. LastName:=Form1. Edit2. Text;Contact. HomeAddressStreet:=Form1. Edit3. Text;Contact. HomeAddressCountry:=Form1. Edit4. Text;Contact. HomeAddressPostalCode:=Form1. Edit5. Text;Contact. HomeAddressCity:=Form1. Edit6. Text;Contact. HomeTelephoneNumber:=Form1. Edit7. Text;Contact. HomeFaxNumber:=Form1. Edit8. Text;Contact. Email1Address:=Form1. Edit9. Text;Contact. save;OutlApp:=nil;end;procedure TForm1. Button1Click(Sender: TObject);beginUpisNovogKontaktaend; Pripremio: Milenko Kusurović

Ovim četvrtim člankom nastavljamo seriju tekstova o . EDU podzemlju, svetu domena posvećenog obrazovnim institucijama koji je većini korisnika Interneta veoma slabo poznat. U želji da vama (i nama) pomognemo da ova oblast Web-a ne ostane nepoznanica, donosimo vam ovu listu linkova ka najprestižnijim i najprogresivnijim . edu sajtovima koji se mogu naći na Internetu. Sigurni smo da ćete na ovolikom broju web sajtova obrazovnih institucija naučiti mnogo toga o mnogo čemu. Sretno obrazovanje! Gödöllö University of Agricultural Sciences Göteborgs Universitet GMI Engineering & Management Institute GNA - Globewide Network Academy, Inc. Gainesville College Gajra Raja Medical College Gallaudet University Galveston College Gannon University GateWay Community College Gateshead College Gazi University Gdansk Medical Academy Gdansk Technical University Gdynia Maritime Academy Gembloux Faculté Universitaire des Sciences Agronomiques Geneva College George Fox College George Mason University George Washington University Georgetown University Georgia Institute of Technology Georgia Military College Georgia Southern University Georgia Southwestern College Georgia State University Georgian College of Applied Arts and Technology Gettysburg College Girne American University Gjøvik College Glasgow University Glendale Community College Goddard College Golden Gate University Golden West College Goldey-Beacom College Goldsmiths College, University of London Gonzaga University Gooding Institute of Nurse Anesthesia Gordon College Gordon-Conwell Theological Seminary Goshen College Goucher College Government College of Engineering, Pune Government College of Engineering, Salem Government College of Technology, Coimbatore Grace College Graceland College Graduate Institute of International Studies Graduate School, USDA Grand Rapids Baptist Seminary Grand Rapids Community College Grand Valley State University Grant MacEwan Community College Grays Harbor Community College Grayson County College Graz University of Technology Green Mountain College Greenville Technical College Griffith University Grinnell College Grossmont Community College Grossmont-Cuyamaca Community College District Grove City College Guildford College Guilford College Guilford Technical Community College Gulf Coast Community College Gunma University Gustavus Adolphus College Gutenberg College Gwynedd Mercy College Gyeongsang National University Häme Polytechnic Høgskolen i Bodø Høgskolen i Hedmark Høgskolen i Oslo Högskolan på Gotland Haagse Hogeschool Hacettepe University Hachinohe Institute of Technology Hahnemann University Hallym University Halmstad University Hamilton College Hamline University Hampden-Sydney College Hampshire College Hampton University Handelshochschule Leipzig (HHL) Hangzhou University Hankook University of Foreign Studies Hanover College Hanyang University Hanzehogeschool Harbin Engineering University Harbin Institute of Technology Harding University Hartland Institute of Health and Education Harvard Graduate School of Education Harvard University Harvey Mudd College Hastings College Hastings College of Law Hautes Etudes Commerciales Haverford College Hawaii Pacific University Heald Institute Of Technology Hebrew College Hebrew University of Jerusalem Heidelberg College Heinrich-Heine-Universität Düsseldorf Helsinki Business Polytechnic Helsinki School of Economics Helsinki University of Technology Henderson State University Hendrix College Heriot-Watt University Hesston College High Point University Higher Colleges of Technology Hill College Hillsdale College Hiram College Hirosaki University Hiroshima City University Hiroshima Institute of Technology Hiroshima Shudo University Hiroshima University Hiroshima-Denki Institute of Technology Hitotsubashi University Hobart and William Smith Colleges Hochschule für Architektur und Bauwesen Weimar Hochschule für Druck Stuttgart Hochschule für Musik und Darstellende Kunst Mozarteum Hochschule für Musik und Darstellende Kunst in Graz Hochschule für Technik und Wirtschaft Dresden Hochschule für Technik und Wirtschaft Mittweida Hochschule für Technik und Wirtshaft Zwickau (FH) Hochschule für Technik, Wirtschaft und Kultur Leipzig Hochschule für Technik,Wirtshaft, und Sozialwesen Zittau/Görlitz(FH) Hocking College Hofstra University Hogeschool Eindhoven Hogeschool van Amsterdam Hogeschool van Utrecht Hohai University Hokkaido University Hokkaido University of Education Holland College Holyoke Community College Hong Kong Baptist University Hong Kong Polytechnic University Hong Kong University of Science and Technology Honolulu Community College Hood College Hope College Houghton College Houston Community College System Howard Community College Howard University HuaFan College of Humanitites and Technology Huazhong University of Science & Technology Huazhong University of Science & Technology Huddersfield University Hudson Valley Community College Humber College of Applied Arts and Technology Humboldt State University Humboldt-University, Berlin Hunan Agricultural University Hung-Kuang College of Nursing Huntingdon College Huntington College ICI University IJselland Polytechnic Idaho State University Illinois Benedictine College Illinois College Illinois Institute of Technology Illinois State University Illinois Wesleyan University Imperial College of Science and Technology Imperial Valley College Incarnate Word College Indian Institute of Management, Calcutta Indian Institute of Science, Bangalore Indian Institute of Technology, Bombay Indian Institute of Technology, Delhi Indian Institute of Technology, Kanpur Indian Institute of Technology, Kharagpu Indian Institute of Technology, Kharagpur Indian Institute of Technology, Madras Indiana Institute of Technology Indiana State University Indiana University Indiana University Kokomo Indiana University Purdue University, Indianapolis Indiana University South Bend Indiana University Southeast Indiana University of Pennsylvania Indiana University, Bloomington Indiana Wesleyan University Ingenieurschule HTL Chu Inha University Institut Francais de Recherche pour l'Exploitation de la Mer Institut Jozef Stefan Institut National Polytechnique de Grenoble Institut National Polytechnique de Toulouse Institut National de Physique Nucleaire et de Physique des Particules Institut National de la Recherche Scientifique Institut National des Sciences Appliquées de Lyon Institut National des Sciences Appliquees de Toulouse Institut National des Télécommunications Institut Supérieur d'Informatique et d'Automatique Institut Supérieur de Technologie Institut Supérieure D'Electronique du Nord Institut Superieur de Gestion Institut Teknologi Bandung Institut Universitaire de Technologie de Sceaux Institut Universitari de l'Audiovisual Institut d'Informatique d'Entreprise Institut des Sciences de l'Ingénieur de Montpellier Institut f. Semantische Informationsverarbeitung Institut fur Lasertechnik Institute for Mathematical Sciences Institute of Clinical Pharmacology and Toxicology Institute of Historical Research Institute of Industrial Science Institute of Paper Science and Technology Institute of Technology, Benaras Hindu University Institute of Telecommunications and Information Technology Instituto Centroamericano de Adminstración de Empresas Instituto Militar de Engenharia Instituto Peruano de Administración de Empresas Instituto Politecnico Nacional Instituto Politecnico do Porto Instituto Superior de Ciencias do Trabalho e da Empresa Instituto Superior de Transportes Instituto Tecnológico de Mérida Instituto Tecnológico y de Estudios Superiores de Monterrey Campus Ciudad de México Instituto Tecnologico de Costa Rica Instituto Tecnologico y de Estudios Superiores de Monterrey Instituto Tecnologico y de Estudios Superiores de Monterrey, Campus Chihuahua Instituto Tecnologico y de Estudios Superiores de Monterrey, Campus Chihuahua Instituto Tecnologico y de Estudios Superiores de Monterrey, Campus Guaymas Instituto Tecnologico y de Estudios Superiores de Monterrey, Campus Sonora Norte Instituto Tecnologico y de Estudios Superiores de Occidente Instituto de Ciencias de la Educación Inter American University Intercultural Open University International American University International College Penang International Islamic University Malaysia International Islamic University, Malaysia International Reform University International School for Advanced Studies International University College International University of Japan Interstaatliche Ingenieurschule Neu-Technikum Buchs (NTB) Interstate Institute of Technology St. Gallen Iona College Iowa State University Istanbul Technical University Istituto Universitario di Architettura (Venezia) Istituto di Teologia Ecumenico-Patristica Greco-Bizantina «San Nicola» Itasca Community College Ithaca College Ivanovo State Power University Ivy Tech State College Jönköping International Business School Jönköping University J. E. Purkyne University Jackson State Community College Jackson State University Jacksonville State University Jacksonville State University, Alabama Jacksonville University Jadavpur University Jagiellonian University James Cook University James Madison University Jamestown College Janus Pannonius University Japan Advanced Institute of Science and Technology Japan Women's University Jawaharlal Nehru Technological University Jawaharlal Nehru University Jefferson Community College Jefferson State Community College Jessenius Faculty of Medicine Jilin University Jilin University (Alumni) Jin Wen College Johannes Gutenberg Universität, Mainz Johannes Kepler University of Linz John A. Logan College John Brown University John Carroll University John F. Kennedy School of Government John Marshall Law School Johns Hopkins University Johnson & Wales University, Rhode Island Johnson & Wales University, South Carolina Johnson C. Smith University Johnson County Community College Joliet Junior College Jones College Jones County Junior College Jordan University of Science and Technology Judson College Juhasz Gyula Teacher Training College Julius-Maximilians-Universität, Würzburg

Web aplikacija SimplyNoise obezbeđuje jednostavan interfejs za konfigurisanje relaksirajuće bele buke direktno u vašem web pretraživaču. Samo učitajte web sajt i podesite kuglu na klizaču na željenu jačinu. Kao što ovaj sajt ističe, bela buka može da vam pomogne da zaspite, blokirate razna zvučna ometanja, smanjite migrenu i još mnogo toga. Možemo da kažemo da SimplyNoise radi jednu stvar ali je radi savršeno. A ako želite da imate malo više opcija za podešavanje bele buke, pogledajte šta mogu da vam ponude ChatterBlocker za Windows ili Noise za Mac. Adresa: SimplyNoise