Priesvitnost

~ Anonymní uživatel
~ 6 příspěvků

29. 3. 2008 #1

Hoj,
potrebujem trochen nakopnut spravnym smerom. Pisem programik, ktory budem pouzivat ako "poznamky blok a mierne upravene a zmensene kreslenie v jednom", ktory budem mat stale na ploche. (to je vlastne jedno) Chcem sa spytat, ako sa v delphi da naprogramovat, aby bol na 80% priesvitny? A aby sa dala priesvitnost nastavovat?
A este jedna otazka, doteraz som ho mala robeny tak, ze bol vzdy v trayliste. Ako sa da zariadit, aby mi bezal na pozadi? V trayi aj na liste mi prekaza. Stejne ho mam spusteny cely den.

Diky moc za odpoved alebo za link, kde je to vysvetlene.

Nahlásit jako SPAM

IP: 84.47.40.–

misela

~ Anonymní uživatel
~ 6 příspěvků

31. 3. 2008 #2

nikto nevie pomoct? :smile10:

Nahlásit jako SPAM

IP: 84.47.40.–

Ace McIntosh 0

Super člen

Kultivátor příspěvků ve starém fóru – 6.38 % z celku

31. 3. 2008 #3

Ale jo, od Delphi 6 se o průhlednost okna starají 4 základní vlastnosti (třídy TForm): Jsou to vlastnosti AlphaBlend, AlphaBlendValue, TransparentColor a TransparentColorValue. Najdi si to v Properties svého formuláře a vesele změň;-)

Nahlásit jako SPAM

IP: 84.42.174.–

misela

~ Anonymní uživatel
~ 6 příspěvků

1. 4. 2008 #4

Ace McIntosh: vdaka, pohram sa s tym hned ako sa dostanem domov. Co zvysok? Napada ta nieco?

Nahlásit jako SPAM

IP: 84.47.40.–

misela

~ Anonymní uživatel
~ 6 příspěvků

4. 4. 2008 #5

a da sa nastavit priesvitnost len pozadia formulara na 30%? nechcem priesvitne cele okno aj s tlacitkami :(((

Nahlásit jako SPAM

IP: 84.47.40.–

Ace McIntosh 0

Super člen

5. 4. 2008 #6

Takže aplikaci z pruhu úloh skryješ naprosto jednoduše:

procedure TForm1.Skrytizpruhuuloh;

begin

 ShowWindow(Application.Handle, SW_HIDE);

end;

a zobrazíš analogickým způsobem:

procedure TForm1.Zobrazenivpruhuuloh;

begin

 ShowWindow(Application.Handle, SW_SHOW);

end;

A z traye ikonku vyženeš tak, že ji nebudeš vůbec vytvářet, ale to je asi jasné(píši jen pro kompletnost:-)).

Jinak takový doplněček, pokud bys program chtěl zneviditelnit i pro správce úloh:
nejdříve si deklaruj tuto funkci:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

a nyní již můžeš napsat proceduru pro schování:

procedure TForm1.Schovejzeseznamuprocesu;

begin

RegisterServiceProcess(GetCurrentProcessID, 1);

end;

či pro opětovné ukázání:

procedure TForm1.Ukazvseznamuprocesu;

begin

RegisterServiceProcess(GetCurrentProcessID, 0);

end;

--------------------------------------------------------------------------------------

Jinak k té průhlednosti: bohužel nevím jak by se dalo zařídit, aby vlastnost transparentnosti (AlphaBlendValue) byla rozdílná pro formulář a komponenty v něm, skoro bych řekl že to nelze, protože všechny komponenty ve formuláři jsou jeho potomky a ti dědí vlastnosti po svých předcích(v tomto případě vlastnosti třídy TForm). Zkus to vyřešit např. změnou fontu nebo barvy textu, když si s tím vyhraješ, určitě si poradíš;-)

Nahlásit jako SPAM

IP: 84.42.174.–

misela

~ Anonymní uživatel
~ 6 příspěvků

7. 4. 2008 #7

bohužel nevím jak by se dalo zařídit, aby vlastnost transparentnosti (AlphaBlendValue) byla rozdílná pro formulář a komponenty v něm, skoro bych řekl že to nelze, protože všechny komponenty ve formuláři jsou jeho potomky a ti dědí vlastnosti po svých předcích(v tomto případě vlastnosti třídy TForm).

a naopak by sa to nedalo? myslim, nastavit 30% priesvitnost nejakemu tlacitku alebo obrazku?

Nahlásit jako SPAM

IP: 84.47.40.–

misela

~ Anonymní uživatel
~ 6 příspěvků

17. 4. 2008 #8

kaslem na to => vyriesene, temu mozte zmazat

Nahlásit jako SPAM

IP: 84.47.40.–

← Zpět na seznam vláken ← Zpět do Fóra