Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Cambiare Colore Testo StatusBar
Forum - Delphi - Cambiare Colore Testo StatusBar

Avatar
camaleonteplus (Normal User)
Pro


Messaggi: 95
Iscritto: 05/03/2009

Segnala al moderatore
Postato alle 10:12
Sabato, 03/10/2009
Vorrei cambiare colore al testo che compare in questa statusbar come si fa?
StatusBar.Panels[2].Text:='Email Inviata';
ho provato con il metodo come si fa con tlabel ma non va.

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 15:47
Sabato, 03/10/2009

PM Quote
Avatar
camaleonteplus (Normal User)
Pro


Messaggi: 95
Iscritto: 05/03/2009

Segnala al moderatore
Postato alle 16:17
Sabato, 03/10/2009
le tue risposte sono gradite ma ho notato che non sempre nei forum c'è qualcuno che mi risponde sto provando a mettere in pratica il codice che mi hai suggerito.

PM Quote
Avatar
camaleonteplus (Normal User)
Pro


Messaggi: 95
Iscritto: 05/03/2009

Segnala al moderatore
Postato alle 20:04
Domenica, 04/10/2009
Ho fatto in questo modo mi testereste il codice? A me non da risultati cioè non mi colora la StatusBar
Codice sorgente - presumibilmente Delphi

  1. procedure TForm1.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
  2. begin
  3. with StatusBar.Canvas do
  4. begin
  5. case Panel.Index of
  6.      0: //Primo Pannello
  7. begin
  8.      Brush.Color := clBtnFace;
  9.      Font.Color := clGreen;
  10.      Font.Style := [fsItalic];
  11. end;
  12.      1: //Secondo Pannello
  13. begin
  14.      Brush.Color := clBtnFace;
  15.      Font.Color := clGreen;
  16.      Font.Style := [fsItalic];
  17. end;
  18.      2: //Terzo Pannello
  19. begin
  20.      Brush.Color := clYellow;
  21.      Font.Color := clRed;
  22. end;
  23.      3: //second panel
  24. begin
  25.      Brush.Color := clBtnFace;
  26.      Font.Color := clNavy;
  27.      Font.Style := [fsItalic];
  28. end;
  29. end;
  30. end;
  31. end;


PM Quote