
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Folyamatjelző Tray Icon komponens

Példaprogram letöltése

9165 bájt

Ha a programunk egy hosszabb műveletbe kezd, ami ráadásul teljesen lefoglalja, akkor általában egy folyamatjelzőben jelzi a felhasználó felé, hogy hány százalékkal van már kész. Mindeközben a felhasználó megnyithat más alkalmazásokat, amelyek eltakarhatják ezt a folyamatjelzőt, így ha kíváncsi az állapotára, mindig át kell váltania a mi programunkra. Ha viszont a TaskBar-on az óra mellett megjelenítünk egy kis folyamatjelző ikont, akkor erre nem lesz szükség, elég csak odapillantania. A mellékelt komponens segítségével egy ilyen folyamatjelző megjelenítése gyerekjáték.

A mellékelt példaprogram megnyitása előtt a TrayProgress.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A komponens Min és Max property-jében kell megadnunk azt az intervallumot, amelyben az adott érték változhat. Az aktuális értéket a Progress property-ben adhatjuk meg, aminek természetesen a Min és a Max property-k által meghatározott intervallumba kell esnie (erről a komponens gondoskodik). Mivel a kijelző mérete meglehetősen kicsi lesz, ezért minél egyszerűbben rajzoljuk meg. Azért három színt megadhatunk: BackColor (háttérszín), FontColor (szöveg szín) és FrontColor (kijelző szín). A ShowText property-vel állíthatjuk, hogy a szöveg megjelenjen-e az ikonban. A ToolTip property-ben megadhatjuk az ikonhoz tartozó Hint szöveget. Ez akkor jelenik meg, ha a felhasználó az ikon fölé mozgatja az egeret. A Visible property-vel ki- és bekapcsolhatjuk az egeret.

A képet a property-k aktuális értékének megfelelően a CreateIcino eljárás készíti el egy 16x16 pixel méretű TBitmap objektumban. Egy TIconInfo rekordban megadjuk az ikon adatait, majd a CreateIconIndirec függvénnyel előállítjuk az ikont. Ezután meghívjuk az AddIcon eljárást, amely kitölti az FIcondata TNotifyIcondata típusú struktúrát a megfelelő adatokkal, majd megjeleníti az ikont ha még nem látszott, illetve módosítja azt, ha már látszott.

    if FAdded then begin
      Shell_NotifyIcon(NIM_MODIFY, @FIconData);
    end else begin
      Shell_NotifyIcon(NIM_ADD, @FIconData);
      FAdded:=true;
    end;

Az ikont a DeleteIcon eljárás törli.

  Shell_NotifyIcon(NIM_DELETE, @FIconData);
  FAdded:=false;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
1166	Delphi	Osztály hierarchia lekérdezése	1. rész
1180	Delphi	Osztály hierarchia lekérdezése	2. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 559. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!