TActivityIndicator

[František]

skúšam použiť TActivityIndicator, ale zamotal som sa
1. vytvoriť ho samostatne alebo použiť form
2. mám problém aj s priehľadnosťou
3. a v podstate neanimuje keď app niečo vykonáva

tak asi robím niečo zle, alebo som to nepochopil

[František]

urobil som to do threadu, ale aj tak neanimuje

[Delfin]

urobil som to do threadu, ale aj tak neanimuje

Co jsi udelal "do threadu"? Pravidla jsou jednoducha, UI kresli, worker thready pracuji (a signalizuji UI o zacatku nebo konci prace, coz je signal pro ten indikator).

[pf1957]

tak asi robím niečo zle, alebo som to nepochopil

Nevim, co ti to presne dela resp nedela. Ale ze zvedavosti jsem se podival, coze je to v Delphi noveho a nefunguje mi to taky: kdyz na prazdny formular dam ten TActivityIndicator a v design time mu nastavim Animate na true, tak animuje. Ale kdyz aplikaci spustim, tak po nastaveni Animate na true se objevi cerny ctverec odpovidajici pozadi indikatoru. A jejich demo https://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RADStudio_Tokyo/Object%20Pascal/VCL/ActivityIndicator/ se chova stejne (nefunguje)

Oprava: kdyz tomu dam bilou barvu, tak na cernem ctverci bile animuje.

[Pavol Kubik]

Tiez som svojho casu zapasil s touto komponentou a podobne ako pf1957 som videl len cierny stvorec. Nakoniec som zistil, ze musi byt v parametroch projektu v sekcii Application zaskrtnuta volba Enable Runtime Themes. Potom uz mi to chodilo v poriadku. Snad to niekomu pomoze.

[Delfin]

Tiez som svojho casu zapasil s touto komponentou a podobne ako pf1957 som videl len cierny stvorec. Nakoniec som zistil, ze musi byt v parametroch projektu v sekcii Application zaskrtnuta volba Enable Runtime Themes. Potom uz mi to chodilo v poriadku. Snad to niekomu pomoze.

Ta volba je ale pro nove vytvorene projekty zapnuta, nebo ne (nemam ted Delphi)? Chapu ze by byt nemusela kdyby se importoval projekt napr. z Delphi 7...

[pf1957]

Ta volba je ale pro nove vytvorene projekty zapnuta, nebo ne (nemam ted Delphi)? Chapu ze by byt nemusela kdyby se importoval projekt napr. z Delphi 7...

Nejen - ja si stahnul ten jejich demo projekt, kde to maji samozrejme zapnute. Prekladam Win32 na Tokyo 10.2 Upd1 a nefunguje ani se zapnutymi thematy

[František]

no asi som to zle vysvetlil, ono mi to animuje, ale ak niečo program vykonáva, tak animácia zastane, to znamená že je to len na 2 veci ....*#$%^&*^$(@*&...
lebo samozrejeme že chcem, aby to animovalo práve vtedy

[Delfin]

no asi som to zle vysvetlil, ono mi to animuje, ale ak niečo program vykonáva, tak animácia zastane, to znamená že je to len na 2 veci ....*#$%^&*^$(@*&...
lebo samozrejeme že chcem, aby to animovalo práve vtedy

Pravidla jsou jednoducha, UI kresli, worker thready pracuji (a signalizuji UI o zacatku nebo konci prace, coz je signal pro ten indikator).

[pf1957]

no asi som to zle vysvetlil, ono mi to animuje, ale ak niečo program vykonáva, tak animácia zastane, to znamená že je to len na 2 veci ....

Standardne se veskere UI ve VCL obsluhuje pumpou zprav v hlavnim threadu. A pokud tu pumpu zastavis, tak se nic obsluhovat nebude. Prasacke Q&D reseni je cas od casu zavolat obsluhu te pumpy, ale spravne reseni je jak pise Delfin: hlavni thread bezi a obsluhujue nerusene pumpu zprav a dlouhotrvajici cinnost se presouva do threadu, ktery kdyz vola Synchronize(), tak predava informaci pres pumpu zprav.

[František]

to znamená že vytvorím, TActivityIndicator(AI) a potom v Threade zavolám vykonanie úlohy?

(keďže mi to doteraz správne nefugovalo, vykašlal som sa na AI a nechal som to indikovať iba kurzorom, a preto chcem spýtať, čo je lepšie/rozumnejšie/efektívnejšie riešenie AI vs. cursor)

[pf1957]

to znamená že vytvorím, TActivityIndicator(AI) a potom v Threade zavolám vykonanie úlohy?

To zalezi, co presne chces delat, ale pokud se jedna o jednorazovou akci, tak nejjednoduzsi bude
- nastavit Animate na true
- vytvorit suspended auto-free thread a povesit se na jeho OnTerminate event
- resume thread - v jeho Execute se provede uloha
- nastavit Animate na false

Jestli pouzit cursor nebo nejaky animovany cirkus je otazka na grafika

[František]

- vytvorit suspended auto-free thread a povesit se na jeho OnTerminate event

auto-free thread = AnonymousThread?

[pf1957]

auto-free thread = AnonymousThread?

Ne, tim jsem myslel FreeOnTerminate na true

[Delfin]

To zalezi, co presne chces delat, ale pokud se jedna o jednorazovou akci, tak nejjednoduzsi bude
- nastavit Animate na true
- vytvorit suspended auto-free thread a povesit se na jeho OnTerminate event
- resume thread - v jeho Execute se provede uloha
- nastavit Animate na false

Nebo pouzit TTask (nechce se mi ted hledat do ktere verze byl pridan).