Kosmetyki naturalne - sklep internetowy



From: "Marcin (news)" <delphins poczta.onet.pl>
Subject: Vista 32 czy 64 Bit?
Witam,

jestem w trakcie finalizowania zakupu notebooka i muszę się zdecydować,
którą wersję systemu brać 32 czy 64 bitową? Dysponuję Delphi 7 Pro +
programy do FB i MySQL - głównie chodzi mi o możliwość pracy w tym
środowisku, reszta programów jakie by one nie były mogą poczekać do
uzyskania kompatybilności. Zastanawiam się bo jak sądzę wszystko powinno
działać sprawniej z 64bit.. _tak_mi_się_wydaje_
Sprzęt to: T7500, 2GBRAM+TC1GB, 120GB HDD, X3100, więc chyba pasuje
bardziej do 64Bit.

Marcin

p.s.
musi być Vista - z archiwum wiem, że D7 działa pod Vistą więc pozostaje
mi tylko kwestia podwersji.


From: wloochacz <wl no.spam>
Subject: Re: =?ISO-8859-2?Q?B=B3=B1d_Invalid_Pointer_Operation?=
[ciach]
> Właśnie w tej procedurze. Odwrotnie stosowałem indeksy w tablicy
> typ_ilosc_zwierzecia :-D.
> A faktycznie. To jest aplikacja dla Hotelu dla zwierząt. A czemu pytasz??
Bo mam taki hotel :D
Dla koników :-)

--
wloochacz


From: wloochacz <wl no.spam>
Subject: Re: Vista 32 czy 64 Bit?
[ciach]
> jestem w trakcie finalizowania zakupu notebooka i muszę się zdecydować,
> którą wersję systemu brać 32 czy 64 bitową? Dysponuję Delphi 7 Pro +
> programy do FB i MySQL - głównie chodzi mi o możliwość pracy w tym
> środowisku, reszta programów jakie by one nie były mogą poczekać do
> uzyskania kompatybilności. Zastanawiam się bo jak sądzę wszystko powinno
> działać sprawniej z 64bit.. _tak_mi_się_wydaje_
> Sprzęt to: T7500, 2GBRAM+TC1GB, 120GB HDD, X3100, więc chyba pasuje
> bardziej do 64Bit.
32; Vista i 64bit to nie jest dobry pomysł na dziś - imo.
Kłopoty z sterownikami itp.
Poza tym to na pewno nie będziesz szybciej działać; 32bitowy kompilator
na 64bitowym OSie ;-`)
BTW - co to za laptok? Może coś na kadłubku CompalaFL 90? Chyba raczej
nie, bo za cienka grafika ;-)

--
wloochacz


From: "Marcin (news)" <delphins poczta.onet.pl>
Subject: Re: Vista 32 czy 64 Bit?
wloochacz pisze:
> [ciach]
>> jestem w trakcie finalizowania zakupu notebooka i muszę się
>> zdecydować, którą wersję systemu brać 32 czy 64 bitową? Dysponuję
>> Delphi 7 Pro + programy do FB i MySQL - głównie chodzi mi o możliwość
>> pracy w tym środowisku, reszta programów jakie by one nie były mogą
>> poczekać do uzyskania kompatybilności. Zastanawiam się bo jak sądzę
>> wszystko powinno działać sprawniej z 64bit.. _tak_mi_się_wydaje_
>> Sprzęt to: T7500, 2GBRAM+TC1GB, 120GB HDD, X3100, więc chyba pasuje
>> bardziej do 64Bit.
> 32; Vista i 64bit to nie jest dobry pomysł na dziś - imo.
> Kłopoty z sterownikami itp.
> Poza tym to na pewno nie będziesz szybciej działać; 32bitowy kompilator
> na 64bitowym OSie ;-`)

dzięki, tak właśnie się skłaniałem z rozsądku do 32.

> BTW - co to za laptok? Może coś na kadłubku CompalaFL 90? Chyba raczej
> nie, bo za cienka grafika ;-)

na FL91 :-) cienka grafika ze względów temparaturowo-bateryjnych, bo
gier żadnych nie instaluję, więc po co ma się biedak męczyć.. :)
Swoją drogą brzydkie to cholerstwo jak nie wiem co, ale lepszej ceny
nigdzie się nie uwidzi..

Marcin



From: Buster <radob w1pos.p.lodz.pl>
Subject: Re: =?ISO-8859-2?Q?B=B3=B1d_Invalid_Pointer_Operation?=
Kliknij do mnie na GG :-)

--
Pozdrowienia
Radek Dobrowolski vel Buster
GG: 1670266
Odpowiadajac na priv, zamien 1 na i w adresie e-mail


From: Krzychu <kynio priv.ckp.pl>
Subject: Problem z TCustomLayer i TImage32
Witam mam problem z komponentem TImage32. Gdy chce uzyc OnMouseMove
zglasza sie problem z brakiem TCustomLayer. Mam delphi 6.0 i Windowsa
XP Professional SP2. Jak moge rozwiazac ten problem?
Pozdrawiam


From: "=?ISO-8859-2?Q?barbara_koz=B3owska?=" <basia555 NOSPAM.gazeta.pl>
Subject: =?ISO-8859-2?Q?Komunikaty_programu_w_pliku_zewn=EAtrznym?=
Pozdrawiam wszystkich.

Mam problem związany z komunikatami w programie i nie bardzo wiem jak go
rozwiązać. Mam komunikaty w postaci 'array of byte', ponieważ ich treść jest
zaszyfrowana (jest ich w programie około 100). W jaki sposób można by je
przenieść do pliku zewnętrznego?
Chodzi mi o możliwość późniejszego stworzenia różnych wersji językowych.

Oczywiście nie chodzi o gotowe rozwiązanie ale o ideę.

Barbara Kozłowska

--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/


From: Krzychu <kynio priv.ckp.pl>
Subject: skalowanie i przesowanie zysunka przy uzyciu TImage32
Witam, pisze przegladarke grafiki (taka bardzo prosta co bedzie
wyswietlac zdjecia z wakacji) i chcialbym zrobic opcje zoom. Tzn ze w
miejscu klikniecia myszka obraz sie przyblizy, a po przyblizeniu bede
mogl przesowac obraz za pomoca kursorow na klawiaturze. Kozystam z
dodatkowego komponentu TImage32 sciagnietego z 4programmers.net.
Uzywam Delphi 6. Pozdrawiam


Kosmetyki mineralne i zapachowe


From: "Mariusz" <szmit [WYTNIJ_TO]onet.eu>
Subject: Bardzo szybkie wypełnianie ListView
Witam.
Aktualnie pisze program, ktory zmienia masowo nazwy plikow (tak, jak w Total
Commanderze narzedzie do wielokrotnej zmiany nazwy - skrot Ctrl+M).
Do wyswietlania plikow i podgladu nowej nazwy uzylem (jednego) komponentu
ListView. W jednej kolumnie mam nazwy i sciezki do plikow zrodlowych, a w
kolejnej wyswietla sie podglad nowych nazw, tworzonych na podstawie jakiegos
skryptu podawanego przez uzytkownika. Podglad wyswietlany jest za pomoca
petli "for" - iteracja od 0 do konca ListView - pobierane sa wartosci z
pierwszej kolumny, odpowiednio modyfikowane i wpisywane (jako podglad nowej
nazwy pliku) do drugiej kolumny.
Jest jednak jeden problem - robilem testy na b. duzej ilosci plikow i
generowanie podgladu trwa baaaardzo dlugo. Przy tescie na 50.000 plikow,
generowanie podgladu trwa w moim programie kilka minut, podczas gdy w
TotalCommanderze jest to proces, ktory jakby w ogole nie trwal, bo podglad
wyswietla sie w czasie rzeczywistym :-) - generacja podgladu (tak na oko)
trwa mniej niz 1 sekunde.

Stad tez moje pytanie - jak osiagnac taka szybkosc dzialania? Probowalem
nawet uruchamiac kilka watkow dzialajacych jednoczesnie na osobnych
fragmentach ListView, ale nic to nie dalo - moze cos zrobilem nietak?

Z gory wielkie dzieki za pomoc.



From: "adam myszor" <adam.myszor op.pl>
Subject: Re: TIdHTTP - 302 Found

Użytkownik "arnam" <arnam in_da_kosmos.com> napisał w wiadomości
news:f81mpj$8a7$1 atlantis.news.tpi.pl...
> Piotr Hosowicz pisze:
>> adam myszor wrote:
>>> Witam
>>>
>>> Przy pobieraniu niektórych stron TIdHTTP wywala błąd: HTTP/1.1 302 Found
>
>>> Jak temu zaradzić ???
>
> 1. Czy ma Pan ustawione HandleRedirects na True?
> 2. Jaką wartość ustawia Pan w UserAgent?
>
> Pozdrawiam
> arnam

Pomogło przestawienie wartości HandleRedirects naTrue.
Serdeczne dzięki :)))

UserAgent jest ustawiony domyślnie czyli na: Mozilla/3.0 (compatible; Indy
Library)

Pozdrawiam
Adam Myszor



From: Grzegorz Skoczylas <gskoczylas rekord.bez-tego.pl>
Subject: Re: Komunikaty programu w pliku =?ISO-8859-2?Q?zewn=EAtrznym?=
barbara koz=B3owska pisze:
> Pozdrawiam wszystkich.
>=20
> Mam problem zwi=B1zany z komunikatami w programie i nie bardzo wiem jak=
go=20
> rozwi=B1za=E6. Mam komunikaty w postaci 'array of byte', poniewa=BF ich=
tre=B6=E6 jest=20
> zaszyfrowana (jest ich w programie oko=B3o 100). W jaki spos=F3b mo=BFn=
a by je=20
> przenie=B6=E6 do pliku zewn=EAtrznego?
> Chodzi mi o mo=BFliwo=B6=E6 p=F3=BCniejszego stworzenia r=F3=BFnych wer=
sji j=EAzykowych.
>=20
> Oczywi=B6cie nie chodzi o gotowe rozwi=B1zanie ale o ide=EA.

Na przyk=B3ad obiekt typu TFileStream. Dodatkowo mo=BFesz na pocz=B1tku l=
ub=20
ko=F1cu pliku zapisa=E6 jeszcze liczb=EA znak=F3w i/lub sum=EA kontroln=B1=
=2E Pozwoli=20
to =B3atwo sprawdzi=E6, czy zawarto=B6=E6 pliku nie uleg=B3a przek=B3aman=
iu (czy=20
kto=B6 w nim nie grzeba=B3).

W Internecie znajdziesz wiele gotowych procedur do obliczania sum=20
kontrolnych CRC16, CRC32, MD5 i innych.

--=20
Pozdrawiam,

Grzegorz Skoczylas
http://gskoczylas.rekord.pl
----------------------------------------------


From: "=?ISO-8859-2?Q?barbara_koz=B3owska?=" <basia555.SKASUJ gazeta.pl>
Subject: =?ISO-8859-2?Q?Re:_Komunikaty_programu_w_pliku_zewn=EAtrznym?=
Dziękuję za informację.

Pozdrawiam

Barbara Kozłowska

--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/


From: "jh" <NIE_SPAMUJ_jh radio.kielce.pl>
Subject: =?iso-8859-2?Q?Re:_Bardzo_szybkie_wype=B3nianie_ListView?=
Oczywiście BeginUpdate i EndUpdate stosujesz?

jh


From: Grzegorz Skoczylas <gskoczylas rekord.bez-tego.pl>
Subject: Re: Bardzo szybkie =?ISO-8859-2?Q?wype=B3nianie_ListView?=
Mariusz pisze:
> Witam.
> Aktualnie pisze program, ktory zmienia masowo nazwy plikow (tak, jak w =
Total=20
> Commanderze narzedzie do wielokrotnej zmiany nazwy - skrot Ctrl+M).
> Do wyswietlania plikow i podgladu nowej nazwy uzylem (jednego) komponen=
tu=20
> ListView. [...]
> Jest jednak jeden problem - robilem testy na b. duzej ilosci plikow i=20
> generowanie podgladu trwa baaaardzo dlugo. Przy tescie na 50.000 plikow=
,=20
> generowanie podgladu trwa w moim programie kilka minut, podczas gdy w=20
> TotalCommanderze jest to proces, ktory jakby w ogole nie trwal, bo podg=
lad=20
> wyswietla sie w czasie rzeczywistym :-) - generacja podgladu (tak na ok=
o)=20
> trwa mniej niz 1 sekunde.
>=20
> Stad tez moje pytanie - jak osiagnac taka szybkosc dzialania?

Mia=B3em podobny problem. W programie te=BF u=BFywa=B3em TListView i te=BF=
=20
zauwa=BFy=B3em, =BFe przy du=BFej liczbie element=F3w jego aktualizowanie=
trwa=20
niemi=B3osiernie d=B3ugo, mimo stosowania BeginUpdate - EndUpdate. W ko=F1=
cu=20
zast=B1pi=B3em TListView przez TVirtualStringTree=20
(http://www.soft-gems.net). Teraz dzia=B3a b=B3yskawicznie - praktycznie =
bez=20
wzgl=EAdu na liczb=EA element=F3w.

TVirtualStringTree jest odmian=B1 komponentu TVirtualTreeView. Mo=BFna go=
=20
tak oprogramowa=E6, =BFe dzia=B3a identycznie jak TListView w trybie vsRe=
port.

--=20
Pozdrawiam,

Grzegorz Skoczylas
http://gskoczylas.rekord.pl
----------------------------------------------


From: "Marcin (news)" <delphins poczta.onet.pl>
Subject: Re: Bardzo szybkie =?ISO-8859-2?Q?wype=B3nianie_ListView?=
Mariusz pisze:
> Witam.
> Aktualnie pisze program, ktory zmienia masowo nazwy plikow (tak, jak w Total
> Commanderze narzedzie do wielokrotnej zmiany nazwy - skrot Ctrl+M).
> Do wyswietlania plikow i podgladu nowej nazwy uzylem (jednego) komponentu
> ListView. W jednej kolumnie mam nazwy i sciezki do plikow zrodlowych, a w
> kolejnej wyswietla sie podglad nowych nazw, tworzonych na podstawie jakiegos
> skryptu podawanego przez uzytkownika. Podglad wyswietlany jest za pomoca
> petli "for" - iteracja od 0 do konca ListView - pobierane sa wartosci z
> pierwszej kolumny, odpowiednio modyfikowane i wpisywane (jako podglad nowej
> nazwy pliku) do drugiej kolumny.
> Jest jednak jeden problem - robilem testy na b. duzej ilosci plikow i
> generowanie podgladu trwa baaaardzo dlugo. Przy tescie na 50.000 plikow,
> generowanie podgladu trwa w moim programie kilka minut, podczas gdy w
> TotalCommanderze jest to proces, ktory jakby w ogole nie trwal, bo podglad
> wyswietla sie w czasie rzeczywistym :-) - generacja podgladu (tak na oko)
> trwa mniej niz 1 sekunde.
>
> Stad tez moje pytanie - jak osiagnac taka szybkosc dzialania? Probowalem
> nawet uruchamiac kilka watkow dzialajacych jednoczesnie na osobnych
> fragmentach ListView, ale nic to nie dalo - moze cos zrobilem nietak?

1. OwnerData = True;
2. Item.Data := Wskaznik_Na_Dane_W_np.TStringList
- w stringlist wstawiasz obiekty przez
AddObject(ObiektKtoryBedzieWData, 'tekst')
3. Items.Count := StringLista.Count;
4. OnData
if not Assigned(Item.Data) then
begin
Item.Data := StringLista.Objects[Item.Index];
Item.Caption := Obiekt.Nazwa
Item.SubItems.Add(Obiekt.Cecha);
end
5. Po takim przygotowaniu operacje wykonujesz na stringlist lub listview
szybkość będzie zbliżona..
6. dodatkowo obejrzyj przykład VirtualListView

Tak naprawdę to nie będzie potrzebne nawet Items.Begin/EndUpdate
wystarczy Invalidate.. choć to kwestia zastosowania.

Marcin

p.s.
podana receptura to tylko przykład schematu, a nie gotowiec..

p.s.2.
jeśli mnie pamięć nie myli to w Delphi CZaPy znajdziesz przykład jak
wstawić coś listview na tych zasadach..


From: "Koral" <koral00 op.pl>
Subject: zablokowanie aktywacji buttona przez pojedynczy klawisz
Witam,

Na formie mam kilka kontrolek TEdit i TButton oraz TDBGrid. Jesli grid jest
aktywny, to gdy nacisne na klawiaturze litere podkreslona w Caption
ktoregokolwiek buttona to zostanie wykonana przypisana do niego czynnosc.
Jak zablokowac takie dzialanie, aby aktywowac buttona dopiero po kombinacji
Alt-litera ?

PK



From: Grzegorz Skoczylas <gskoczylas rekord.bez-tego.pl>
Subject: Re: zablokowanie aktywacji buttona przez pojedynczy klawisz
Koral pisze:
> Witam,
>=20
> Na formie mam kilka kontrolek TEdit i TButton oraz TDBGrid. Jesli grid =
jest=20
> aktywny, to gdy nacisne na klawiaturze litere podkreslona w Caption=20
> ktoregokolwiek buttona to zostanie wykonana przypisana do niego czynnos=
c.=20
> Jak zablokowac takie dzialanie, aby aktywowac buttona dopiero po kombin=
acji=20
> Alt-litera ?

Nie mam w tej chwili pewno=B6ci. Zdaje mi si=EA jednak, =BFe to ma zwi=B1=
zek z=20
rodzajem okna. Czy to Twoje okno nie ma przypadkiem w=B3a=B6ciwo=B6ci=20
BorderStyle ustawionej na bsDialog? Je=BFeli tak jest to spr=F3buj czy ni=
e=20
pomo=BFe przestawienie jej na bsSingle. Dodatkowo mo=BFesz ustawi=E6 Form=
Style=20
na fsStayOnTop - uzyskasz efekt podobny do okna dialogowego, ale chyba=20
bez opisanego przez Ciebie dzia=B3ania.

--=20
Pozdrawiam,

Grzegorz Skoczylas
http://gskoczylas.rekord.pl
----------------------------------------------


Naszyjniki


From: arnam <arnam in_da_kosmos.com>
Subject: Re: TIdHTTP - 302 Found
adam myszor pisze:

> Pomogło przestawienie wartości HandleRedirects naTrue.
> Serdeczne dzięki :)))
>
> UserAgent jest ustawiony domyślnie czyli na: Mozilla/3.0 (compatible; Indy
> Library)


Proszę bardzo :)

Sugerował bym jeszcze zmianę UserAgent na coś innego. Może Pan np.
wysinffować co wysyła, któraś z nowszych wersji przeglądarek. Ja
przykładowo ostatnio stosowałem wpis 'Mozilla/5.0 (Windows; U; Windows
NT 5.1; pl; rv:1.8.0.9) Gecko/2'. Z wartością domyślną może mieć Pan
bowiem i tak problemy przy połączeniu z niektórymi serwerami.

Pozdrawiam
arnam


From: "Koral" <koral00 op.pl>
Subject: Re: zablokowanie aktywacji buttona przez pojedynczy klawisz
Nie mam w tej chwili pewności. Zdaje mi się jednak, że to ma związek z
rodzajem okna. Czy to Twoje okno nie ma przypadkiem właściwości
BorderStyle ustawionej na bsDialog? Jeżeli tak jest to spróbuj czy nie
pomoże przestawienie jej na bsSingle. Dodatkowo możesz ustawić FormStyle
na fsStayOnTop - uzyskasz efekt podobny do okna dialogowego, ale chyba
bez opisanego przez Ciebie działania.

****
Forma jest MDIChild i taka musi pozostac.

PK



From: "mwgomez" <informatykWYTNIJTO element.com.pl>
Subject: Re: skalowanie i przesowanie zysunka przy uzyciu TImage32
> Witam, pisze przegladarke grafiki (taka bardzo prosta co bedzie
> wyswietlac zdjecia z wakacji) i chcialbym zrobic opcje zoom. Tzn ze w
> miejscu klikniecia myszka obraz sie przyblizy, a po przyblizeniu bede
> mogl przesowac obraz za pomoca kursorow na klawiaturze. Kozystam z
> dodatkowego komponentu TImage32 sciagnietego z 4programmers.net.
> Uzywam Delphi 6. Pozdrawiam
>

Dla
Image: TImgView32;
powiększenie np:
Image.Scale := Image.Scale + 0.1;
analigicznie zmniejszenie np:
Image.Scale := Image.Scale - 0.1;
Komponent posiada OnClick, OnKeyDown itd. więc z resztą nie powinno być
problemów.

Pozdrawiam

--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl


From: "informatyk element.com.pl" <informatykWYTNIJTO element.com.pl>
Subject: Re: Problem z TCustomLayer i TImage32
> Witam mam problem z komponentem TImage32. Gdy chce uzyc OnMouseMove
> zglasza sie problem z brakiem TCustomLayer. Mam delphi 6.0 i Windowsa
> XP Professional SP2. Jak moge rozwiazac ten problem?

D6 i Windows chyba nie ma z tym nic wspólnego.
Klasa TCustomLayer znajduje sie w pliku GR32_Layers.pas
Może po prostu kompilator nie widzi plików biblioteki?
Wówczas należy wybrać:

Project/Options/ Directories/Confitionals
Search Path
....
i dodajemy sciezkę do plików gdzie jest zainstalowana biblioteka np:
C:\PROJEKTY\DELPHI\KOMPONENTY\graphics32-1-8-2

Ewentualnie usunąc i zainstalowac Graphics32 ponownie, w D7 to było

GR32_D7.DPK Compile
GR32_DSGN_D7.DPK Compile and Install

(Najnowsza wersja pod adresem
http://sourceforge.net/project/showfiles.php?group_id=112985
)

Pozdrawiam


--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl


From: "jh" <jh radiokropkakielcekropkapl.nic>
Subject: Watek - dwa pytania
1.
Mam buforek zrobiony na wskaźnikach (lista jednokierunkowa), opakowany w
klase (metody typu dodaj do listy, wyczyść listę itd.). Klasa jest wątkiem.
W Execute pobieram pierwszy element z listy, jeśli nie jest nil to robię z
nim co trzeba ;), przesuwam początek listy na następny element a pierwszy
zwalniam i tak cały czas w pętli "while not Terminated" aż do opróżnienia
listy. Wszystko jest ok, dopóki lista ma co najmniej jeden element w
przeciwnym wypadku pracuje pusta pętla, która bardzo obciąża procesor.
Oczywiście wystarczy wrzucić Sleep(1) w pętli i niby wszystko gra. Tyle, że
1 ms to za dużo, ponieważ zdarzenia dopisane do listy mogą pojawiać się
częściej niż co 1 ms lub w odstępach różnych od 1 ms, a timing zdarzeń z tej
listy jest bardzo istotny. Czym zastąpić ten Sleep? Myślałem o sygnalizacji
przez SetEvent/WaitForSingleObject - ustawianie w momencie dodawania
elementu do listy - ale czy to jedyna metoda na "szybkie odczekanie"
krótkiego czasu?

2.
Jak powinno się robić: timer, który uruchamia wątek czy wątek, który
uruchamia timer? Przy czym chodzi o timer pracujący na
QueryPerformanceCounter, który jednak obciąża system, a chodzi o dokładność
mniej więcej w granicach 100us (multimedia timer to "tylko" 1 ms, a to za
dużo), natomiast cykliczne zdarzenie do wykonania odwołuje się do portów: z
jednego sprawdza czy coś przyszło i oznacza czas nadejścia, a do drugiego
wysyła własne dane po minięciu określonego, różnego czasu (jako licznik
pracuje te 100us).

Może zbyt "mrocznie" napisałem ;) ale drążę pewien temat, na który
praktycznie nie ma informacji w sieci i muszę strasznie kombinować...
Generalnie chodzi o MIDI i MTC. Większość siedzących w temacie wie co to,
ale jak to jest zaimplementowane "w poważnych" rozwiązaniach to tylko
przypuszczenia...

Jacek


From: Buster <radob w1pos.p.lodz.pl>
Subject: Przycisk TSpeedButton
Witam.
Jak zrobić taki manewr na TSpeedButtonie. Naciskam raz i przycisk
zostaje wciśnięty. Naciskam drugi raz, przycisk zostaje wyciśnięty.
Oczywiście podczas wciskania i wyciskania coś się ma robić.

--
Pozdrowienia
Radek Dobrowolski vel Buster
GG: 1670266
Odpowiadajac na priv, zamien 1 na i w adresie e-mail


From: "Mirosław J" <aaa bbb.ccc.pl>
Subject: Re: Problem z TCustomLayer i TImage32
Użytkownik "Krzychu" <kynio priv.ckp.pl> napisał w wiadomości
news:1185207016.815286.66860 57g2000hsv.googlegroups.com...
> Witam mam problem z komponentem TImage32. Gdy chce uzyc OnMouseMove
> zglasza sie problem z brakiem TCustomLayer. Mam delphi 6.0 i Windowsa
> XP Professional SP2. Jak moge rozwiazac ten problem?
> Pozdrawiam

Może dodać nazwę modułu, w którym znajduje się TCustomLayer, nad deklaracją
procedury OnMouseMove. Np w sekcji uses zaraz pod unit i interface.

Pozdrawiam.



From: "Jan Kowalski" <jan.kowalski onet.pl>
Subject: Re: Przycisk TSpeedButton

Użytkownik "Buster" <radob w1pos.p.lodz.pl> napisał w wiadomości
news:f84a3n$qs7$1 inews.gazeta.pl...
> Witam.
> Jak zrobić taki manewr na TSpeedButtonie. Naciskam raz i przycisk zostaje
> wciśnięty. Naciskam drugi raz, przycisk zostaje wyciśnięty. Oczywiście
> podczas wciskania i wyciskania coś się ma robić.
przy onClick: Down := true/false i GroupIndex <> 0



From: Fox <plc2000 gazeta.pl>
Subject: Przycisk i 2 bitmapy
Chciałem zrobić przycisk w którym jedna bitmapę ładuje klient a druga
tworzona jest automatycznie na podstawie pierwszej, mam więc

property Glyph: TBitmap read FGlyph write SetGlyph;

w Create przycisku mam wpisane:

FGlyph := TBitmap.Create;
FShadowGlyph := TBitmap.Create;

w SetGlyph mam wpisane:

procedure TMagicButton.SetGlyph(const Value: TBitmap);
begin
FGlyph.Assign(Value);
FShadowGlyph.Assign(Value);


ale FShadowGlyph nic się nie zmienia - nadal jest puste - co jest grane?


Serwery wirtualne


From: DarekM <darekm emadar.com>
Subject: Re: Watek - dwa pytania
jh pisze:
> 1.
> Mam buforek zrobiony na wskaźnikach (lista jednokierunkowa), opakowany w
> klase (metody typu dodaj do listy, wyczyść listę itd.). Klasa jest
> wątkiem. W Execute pobieram pierwszy element z listy, jeśli nie jest nil
> to robię z nim co trzeba ;), przesuwam początek listy na następny
> element a pierwszy zwalniam i tak cały czas w pętli "while not
> Terminated" aż do opróżnienia listy. Wszystko jest ok, dopóki lista ma
> co najmniej jeden element w przeciwnym wypadku pracuje pusta pętla,
> która bardzo obciąża procesor. Oczywiście wystarczy wrzucić Sleep(1) w
> pętli i niby wszystko gra. Tyle, że 1 ms to za dużo, ponieważ zdarzenia
> dopisane do listy mogą pojawiać się częściej niż co 1 ms lub w odstępach
> różnych od 1 ms, a timing zdarzeń z tej listy jest bardzo istotny. Czym
> zastąpić ten Sleep? Myślałem o sygnalizacji przez
> SetEvent/WaitForSingleObject - ustawianie w momencie dodawania elementu
> do listy - ale czy to jedyna metoda na "szybkie odczekanie" krótkiego
> czasu?
Zmień nieco tok rozumowania. Nie masz odczekać, tylko czekasz na pewne zdarzenie
(synchronizacja) i do tego służą WaitForSingleObject albo mutexy czy semafory.
Pętla jest złym rozwiązaniem (mało wydajnym) ale to już wiesz.


>
> 2.
> Jak powinno się robić: timer, który uruchamia wątek czy wątek, który
> uruchamia timer? Przy czym chodzi o timer pracujący na
> QueryPerformanceCounter, który jednak obciąża system, a chodzi o
> dokładność mniej więcej w granicach 100us (multimedia timer to "tylko" 1
> ms, a to za dużo), natomiast cykliczne zdarzenie do wykonania odwołuje
> się do portów: z jednego sprawdza czy coś przyszło i oznacza czas
> nadejścia, a do drugiego wysyła własne dane po minięciu określonego,
> różnego czasu (jako licznik pracuje te 100us).

do dokładnego pomiaru czasu możesz skorzystać z cpu_timer
http://members.yline.com/~tom_at_work/index.html


Wątek który uruchamia timer nie ma większego sensu, gdyż timer jest robiony na wątku.
teraz co nazywasz dokładnością, czy jest to pewność wywołania (hard real time) to
musisz ustawić wysoki priorytet wątku, ale chyba chodzi Ci o częstotliwość wywołania


Poczytaj sobie też o POSIX THREAD, no i chłopcy z FPC dużo walczą z wielowątkowością.



Darek


From: Sebcio <sebcio nowhere.com>
Subject: =?ISO-8859-2?Q?W=B3a=B6ciwo=B6=E6_Font_nie_dzia=B3a_=3A=28?=
Witam !

TKlasa = class(TObject)
private
FFont: TFont;
procedure SetFont(F: TFont);
public
constructor Create;
destructor Destroy; override;
property Font: TFont read FFont write SetFont;
end;

constructor TKlasa.Create;
begin
FFont:= TFont.Create;
end;

destructor TKlasa.Destroy;
begin
FFont.Free;
inherited Destroy;
end;

procedure TKlasa.SetFont(F: TFont);
begin
FFont.Assign(F);
end;

Pytanie za sto punktów - jak doprowadzić do sytuacji by w programie
działało coś takiego:

Klasa.Font.Name:= 'Tahoma';

W jaki sposób mogę ustawiać pola obiektu, będącego właściwością innego
obiektu ? W takiej konstrukcji jak powyżej działa tylko przypisanie
całego obiektu. Zaglądałem w źródła innych obiektów i tam to wszystko
działa mimo identycznej konstrukcji :(


--
Pozdrawiam,
Sebcio


From: TButton <TButton love-delphi.com>
Subject: Re: =?ISO-8859-2?Q?W=B3a=B6ciwo=B6=E6_Font_nie_dzia=B3a_?=
>=20
> W jaki spos=F3b mog=EA ustawia=E6 pola obiektu, b=EAd=B1cego w=B3a=B6=
ciwo=B6ci=B1=20
> innego obiektu ? W takiej konstrukcji jak powy=BFej dzia=B3a tylko=20
> przypisanie ca=B3ego obiektu. Zagl=B1da=B3em w =BCr=F3d=B3a innych obie=
kt=F3w i tam to=20
> wszystko dzia=B3a mimo identycznej konstrukcji :(
>=20
>=20

Przeczyta=B3 bym ze zrozumieniem co robi Assign(F); :)


następna strona