Problem z komponentem TShape

problemy z funkcjonowaniem bibliotek, komponentów itp.

Problem z komponentem TShape

Nowy postprzez kris35 » Å›roda, 23 lipca 2008, 12:56

Zrobiłem kontrolkę wykorzystując do tego Shape. Ustawiona jest ona na kolor czerwony i ma za zadanie zmienić kolor na zielony gdy wykonywane są funkcje. Wszystko Jest dobrze tylko, że kontrolka robi się zielona dopiero gdy program wyjdzie z pętli do while. Czy jest jakiś sposób aby odświeżyć formularz zaraz po wykonaniu kontrolka->Brush->Color = clGreen; a nie po skończniu pętli? Wcześniej użyłem komponentu ProgressBar i było dokładnie to samo.

void __fastcall TForm1::WyszukajClick(TObject *Sender)
{
String katalog,temp;
TStringList *listek = new TStringList;
kontrolka->Brush->Color = clGreen;
if (SelectDirectory("Wybierz folder do zapisu","",katalog))
{
temp=katalog+"\\";
FindDir(listek, temp, "pdf");
do
{
tabela->RowCount=(listek->Count/3)+1;
tabela->Cells[0][r]=IntToStr(r);
tabela->Cells[1][r]=listek->Strings[p];
tabela->Cells[2][r]=listek->Strings[p+1];
tabela->Cells[3][r]=listek->Strings[p+2];
r++;
p=p+3;
Label2->Caption=IntToStr(r-1)+" plików";
}
while (p < listek->Count);
}

listek->Free();
}
Avatar użytkownika
kris35
Bladawiec
Bladawiec
 
Posty: 2
Dołączył(a): środa, 23 lipca 2008, 12:37
PodziÄ™kowaÅ‚ : 0
OtrzymaÅ‚ podziÄ™kowaÅ„: 0
    NieznanyNieznana

Re: Problem z komponentem TShape

Nowy postprzez Cyfrowy Baron » Å›roda, 23 lipca 2008, 13:07

Zaraz po zmianie koloru TShape wstaw funcję odświeżającą aplikację:

Kod: Zaznacz cały
   kontrolka->Brush->Color = clGreen;

   Application->ProcessMessages();
Avatar użytkownika
Cyfrowy Baron
Administrator
Administrator
 
Posty: 4716
Dołączył(a): niedziela, 13 lipca 2008, 15:17
PodziÄ™kowaÅ‚ : 12
OtrzymaÅ‚ podziÄ™kowaÅ„: 442
System operacyjny: Windows 7 x64 SP1
Kompilator: Embarcadero RAD Studio XE2
C++ Builder XE2 Update 4
SKYPE: cyfbar
Gadu Gadu: 0
    NieznanyNieznana

Re: Problem z komponentem TShape

Nowy postprzez kris35 » Å›roda, 23 lipca 2008, 13:14

Wielkie dzięki za pomoc. Teraz działa ok.
Avatar użytkownika
kris35
Bladawiec
Bladawiec
 
Posty: 2
Dołączył(a): środa, 23 lipca 2008, 12:37
PodziÄ™kowaÅ‚ : 0
OtrzymaÅ‚ podziÄ™kowaÅ„: 0
    NieznanyNieznana


  • Podobne tematy
    Odpowiedzi
    Wyświetlone
    Ostatni post

Powrót do Biblioteki i komponenty

Kto przeglÄ…da forum

Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 1 gość

cron