zna li neko?

Thread View: bc.hackers

8 messages

[T] Back to Threads [V] Tree View [G] Group Articles

8 total messages Started by Mladen B. Mon, 04 Jun 2001 19:08

#373

Author: Mladen B.
Date: Mon, 04 Jun 2001 19:08

25 lines
1554 bytes

kako da obojim neke svoje komponente na formi u neku boju... pitanje
nije banalno jer treba da radim u run-time-u, s tim da ne znam sve
komponente koje su mi na formi..

postoji property Form->ControlCount i Form->Controls[] koji daju niz
kontrola na formi kojima mogu pristupiti preko iteracije (for petlje)
ali....

sledeci segment koda nece da radi..
for (...)
{
   Form1->Components[i]->Color = bilo_shta;
   opet_bilo_shta = Form1->Components[i]->Color;
}

dakle ni chitanje ni pisanje...
greshka koju mi javlja je " bla bla , Color" is not accessible...???
ne kontam majke mi... ajde da sam ulovio nechiju tudju formu, ali svoju
najrodjeniju?? ;)))

znal' neko kako ovo...?

pozdrav,
mld.

Re: zna li neko?

#374

Author: Dejan Maksimovic
Date: Mon, 04 Jun 2001 19:14

25 lines
1817 bytes

    A, da nije mozda u pitanju to sto nemaju sve komponente Color property?

>    Form1->Components[i]->Color = bilo_shta;
>    opet_bilo_shta = Form1->Components[i]->Color;

    Probaj

>    if (Form1->Components[i] Is TControl)

        Form1->Components[i]->Color = bilo_shta;

>    opet_bilo_shta = Form1->Components[i]->Color;

--
Kind regards, Dejan M. CEO Alfa Co. www.alfaunits.co.yu and
www.register.co.yu
E-mail : alfaunits@ptt.yu, dejan@register.co.yu and dejan@alfaunits.co.yu
ICQ# : 56570367
Professional file&system related components and libraries for Win32
developers.
Alfa File Monitor - #1 file monitoring system for Win32 developers.
Alfa File Protector - #1 file protection and hiding system for Win32
developers.
Alfa Units - #1 file and system handling units for Delphi.

Re: zna li neko?

#384

Author: Mladen B.
Date: Wed, 06 Jun 2001 06:53

16 lines
1305 bytes

nije to...
greshkom sam napisao komponente a u stvari su kontrole...
tj
for(...)
{
    Form1->Controls[i]->Color = bilo_shta;
    opet_bilo_shta = Form1->Controls[i]->Color;
}

pozdrav,
mld.


Dejan Maksimovic wrote:
> 
>     A, da nije mozda u pitanju to sto nemaju sve komponente Color property?

Re: zna li neko?

#337

Author: Nemanja Simovic
Date: Wed, 13 Jun 2001 16:52

36 lines
2161 bytes

Ovo si pisao na c-u, je l'?
E ovako bi ja napisao u delphiju.

for i:=0 to Form1.ComponentCount do
    if Form1.Components[i] is TControl then
                            {da li je tipa TControl jer sve komponente
izvedene iz nje imaju color property}
        TControl(Form1.Components[i]).Color:=bilo sta;

Mladen B. <e7955@student.ftn.ns.ac.yu> wrote in message
news:01c0ed20$0a9be860$LocalHost@zvezda_n...
>
> kako da obojim neke svoje komponente na formi u neku boju... pitanje
> nije banalno jer treba da radim u run-time-u, s tim da ne znam sve
> komponente koje su mi na formi..
>
> postoji property Form->ControlCount i Form->Controls[] koji daju niz
> kontrola na formi kojima mogu pristupiti preko iteracije (for petlje)
> ali....
>
> sledeci segment koda nece da radi..
> for (...)
> {
>    Form1->Components[i]->Color = bilo_shta;
>    opet_bilo_shta = Form1->Components[i]->Color;
> }
>
> dakle ni chitanje ni pisanje...
> greshka koju mi javlja je " bla bla , Color" is not accessible...???
> ne kontam majke mi... ajde da sam ulovio nechiju tudju formu, ali svoju
> najrodjeniju?? ;)))
>
> znal' neko kako ovo...?
>
> pozdrav,
> mld.

Re: zna li neko?

#338

Author: Mladen B.
Date: Thu, 14 Jun 2001 11:58

31 lines
2203 bytes

greshka koju mi javlja je "... .Color" is not accessible...

probaj da ukucash taj kod pa cesh videti, inache, hteo sam da promenim
boje komponenti tako sto bi korisnik kliknuo na neku komponentu na
jednoj formi, a na drugoj formi bi se u nekom boxu prikazala ta boja a
zatim bi on mogao da izabere zeljenu boju... e sad, da ne bih za svaku
komponentu pravio "if" izraze, mislio sam da proletim kroz for petlju...

ali iz nekog razloga mi ne dozvoljava da pristupim Color property-u, kao
da je Color u private delu klase...

btw, ne morash da u for petlji radish iteracije od 0-ComponentCount, vec
mozesh odmah da radish od 0-ControlCount...(i radish sa
Form1.Controls[i]) tako ne morash proveravati da li je komponenta ujedno
i kontrola..

pozdrav,
mld.

Nemanja Simovic wrote:
> 
> Ovo si pisao na c-u, je l'?
> E ovako bi ja napisao u delphiju.
> 
> for i:=0 to Form1.ComponentCount do
>     if Form1.Components[i] is TControl then
>                             {da li je tipa TControl jer sve komponente
> izvedene iz nje imaju color property}
>         TControl(Form1.Components[i]).Color:=bilo sta;
>

Re: zna li neko?

#339

Author: Dejan Maksimovic
Date: Fri, 15 Jun 2001 00:52

37 lines
2629 bytes

    Jao, jeste u private delu. Probaj typecast u TWinControl ili
TScrollingWinControl (mada ovo drugo nece uspeti, skoro sigurno). Ako nece,
moras da radis typecast u sve koriscene controle.

    Dejan.

"Mladen B." wrote:

> greshka koju mi javlja je "... .Color" is not accessible...
>
> probaj da ukucash taj kod pa cesh videti, inache, hteo sam da promenim
> boje komponenti tako sto bi korisnik kliknuo na neku komponentu na
> jednoj formi, a na drugoj formi bi se u nekom boxu prikazala ta boja a
> zatim bi on mogao da izabere zeljenu boju... e sad, da ne bih za svaku
> komponentu pravio "if" izraze, mislio sam da proletim kroz for petlju...
>
> ali iz nekog razloga mi ne dozvoljava da pristupim Color property-u, kao
> da je Color u private delu klase...
>
> btw, ne morash da u for petlji radish iteracije od 0-ComponentCount, vec
> mozesh odmah da radish od 0-ControlCount...(i radish sa
> Form1.Controls[i]) tako ne morash proveravati da li je komponenta ujedno
> i kontrola..
>

--
Kind regards, Dejan M. CEO Alfa Co. www.alfaunits.co.yu and
www.register.co.yu
E-mail : alfaunits@ptt.yu, dejan@register.co.yu and dejan@alfaunits.co.yu
ICQ# : 56570367
Professional file&system related components and libraries for Win32
developers.
Alfa File Monitor - #1 file monitoring system for Win32 developers.
Alfa File Protector - #1 file protection and hiding system for Win32
developers.
Alfa Units - #1 file and system handling units for Delphi.

Re: zna li neko?

#340

Author: Mladen B.
Date: Fri, 15 Jun 2001 07:00

29 lines
2018 bytes

e drushtvo :)))
reshio sam problem... i hvala Joggy-u puno... :) a i svima vama koji su
takodje pokushali da mi pomognu... :)
evo samo da paste-ujem njegovo reshenje...
fora je da se objekat TControl type-cast-uje u (TForm*) ili bar u neku
komponentu kojoj je dozvoljeno da se pristupa Color property-u

 ( (TForm *)(Form1->Components[i]) )->Color = Nesto;
 NestoDrugo = ( (Tform *)(Form1->Components[i]) )->Color;

btw, zar nije malo glupo shto je Color ostavljeno kao protected
property..??

pozdrav,
mld.

Dejan Maksimovic wrote:
> 
>     Jao, jeste u private delu. Probaj typecast u TWinControl ili
> TScrollingWinControl (mada ovo drugo nece uspeti, skoro sigurno). Ako nece,
> moras da radis typecast u sve koriscene controle.
> 
>     Dejan.
> 
> "Mladen B." wrote:
> 
> > greshka koju mi javlja je "... .Color" is not accessible...

Re: zna li neko?

#341

Author: Dejan Maksimovic
Date: Fri, 15 Jun 2001 12:58

28 lines
2310 bytes

    Hi,

> reshio sam problem... i hvala Joggy-u puno... :) a i svima vama koji su
> takodje pokushali da mi pomognu... :)
> evo samo da paste-ujem njegovo reshenje...
> fora je da se objekat TControl type-cast-uje u (TForm*) ili bar u neku
> komponentu kojoj je dozvoljeno da se pristupa Color property-u
>
>  ( (TForm *)(Form1->Components[i]) )->Color = Nesto;
>  NestoDrugo = ( (Tform *)(Form1->Components[i]) )->Color;

    E, ovo bi TREBALO da pukne cim componenta nije TForm, ali mi nije jasno
zasto-;)

> btw, zar nije malo glupo shto je Color ostavljeno kao protected
> property..??

    'ebi ga, objasni ti to Borlandu-;)

--
Kind regards, Dejan M. CEO Alfa Co. www.alfaunits.co.yu and www.register.co.yu
E-mail : alfaunits@ptt.yu, dejan@register.co.yu and dejan@alfaunits.co.yu
ICQ# : 56570367
Professional file&system related components and libraries for Win32 developers.
Alfa File Monitor - #1 file monitoring system for Win32 developers.
Alfa File Protector - #1 file protection and hiding system for Win32 developers.
Alfa Units - #1 file and system handling units for Delphi.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads