Problème avec une progressBar

Version imprimable

22/03/2006, 09h09
kurul1

Problème avec une progressBar

Bonjour à tous

Je désire afficher une progressbar avec un label au dessus.

J'ai d'abord mis ces deux composants dans un Panel que je rend visible lorsque j'en ai besoin.

J'ai ensuite créé une Form et je les ai mis dedans et rendu cette form visible lorsque j'en ai besoin.

Dans les deux cas, le label est invisible (même en mettant Label->Visible avant l'affichage).

Est ce que quelqu'un aurait une solution ?
23/03/2006, 00h47
Fbartolo

Vérifie que ton Label est bien dans le panel et non derrière ?? sinon je vois pas
23/03/2006, 03h05
Kerod

J'ai eu le même soucis et voilà la solution que l'on m'a donné, j'espère que ce sera la même pour toi Lien
23/03/2006, 08h48
kurul1

J'ai fait un petit test.

Vu que le Panel dans leque sont la progressBar et le label est invisible au départ, je l'ai mis en visible.

là le label est visible, par contre il disparait lorsque la barre de progression commence a avancé.

Hello

Essaie ceci: remplace le label par un TStaticText, et rajoute ceci dans le code:

.h:

Code:

1
2
void __fastcall StaticTextWndProc(Messages::TMessage &Message);
TWndMethod ancienne_wndproc;

.cpp:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
  {
  SetWindowLong(StaticText1->Handle, GWL_EXSTYLE, GetWindowLong(StaticText1->Handle, GWL_EXSTYLE) | WS_EX_TRANSPARENT);
  ancienne_wndproc = StaticText1->WindowProc;
  StaticText1->WindowProc = StaticTextWndProc;
  }
 
void __fastcall TForm1::StaticTextWndProc(Messages::TMessage &Message)
  {
  if (Message.Msg == CN_CTLCOLORSTATIC)
    {
    Message.Result = (int)(HBRUSH)::GetStockObject(HOLLOW_BRUSH);
    SetBkMode(HDC(Message.WParam), TRANSPARENT);
    }
  else
    ancienne_wndproc(Message);
  }

A++

23/03/2006, 13h52
Kerod

Vu que je passe par là lol, ca sert à quoi tout ce code Totoche ???
23/03/2006, 14h34
totoche76

Hello

Ben.... à placer un texte en transparence sur un contrôle fenêtré...

J'ai vu faire ce genre de choses avec Visual C++ en utilisant un CStatic... c'est juste une adaptation à Builder.

Si quelqu'un a plus simple (autre que dériver TGraphicControl, façon TCGauge, le composant fourni en exemple par Borland), je suis preneur....
24/03/2006, 00h36
OliverSleep

Lut kurul1!
pk tu ne ferais pas une mini class qui contiendrai tes 2 composants.
Déjà tu ne gèreras plus le Panel en rab, ni la form en rab.

Et je pense que niveau gestion et affichage ce sera plus simple.

Sinon, je te proposerai bien, de positionner la ProgressBar, puis par dessus une Image, et tu afficheras ton texte dans le canvas de l'Image.

@+
27/03/2006, 09h22
kurul1

Ta néthode ne marche pas totoche76, le texte n'est toujours pas affiché.
27/03/2006, 11h14
totoche76

Hello

Dans l'éditeur, est-ce que tu as bien mis ton TStaticText au premier plan ??
28/03/2006, 09h00
kurul1

Oui je viens de vérifier, il est bien au premier plan

Ha bon ?????

Curieux :?: :?:

Ché moué ca affiche bien un label en transparence par dessus autre chose.

.h:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
  TPanel *Panel1;
  TProgressBar *ProgressBar1;
  TStaticText *StaticText1;
private:	// Déclarations de l'utilisateur
void __fastcall StaticTextWndProc(Messages::TMessage &Message); 
TWndMethod ancienne_wndproc;
public:		// Déclarations de l'utilisateur
  __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

.cpp:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
  {
  SetWindowLong(StaticText1->Handle, GWL_EXSTYLE, GetWindowLong(StaticText1->Handle, GWL_EXSTYLE) | WS_EX_TRANSPARENT);
  ancienne_wndproc = StaticText1->WindowProc;
  StaticText1->WindowProc = StaticTextWndProc;
  }
 
void __fastcall TForm1::StaticTextWndProc(Messages::TMessage &Message)
  {
  if (Message.Msg == CN_CTLCOLORSTATIC)
    {
    Message.Result = (int)(HBRUSH)::GetStockObject(HOLLOW_BRUSH);
    SetBkMode(HDC(Message.WParam), TRANSPARENT);
    }
  else
    ancienne_wndproc(Message);
  }

.dfm:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
object Form1: TForm1
  Left = 547
  Top = 363
  Width = 295
  Height = 108
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 269
    Height = 57
    Caption = ' '
    TabOrder = 0
    object ProgressBar1: TProgressBar
      Left = 20
      Top = 16
      Width = 229
      Height = 25
      Min = 0
      Max = 100
      Position = 50
      TabOrder = 0
    end
    object StaticText1: TStaticText
      Left = 112
      Top = 24
      Width = 58
      Height = 17
      Caption = 'StaticText1'
      TabOrder = 1
    end
  end
end

28/03/2006, 15h39
fumidu

J'ai déjà eu un problème semblable.
Est ce que tout l'avancement de la progressBar se fait dans dans un seule fonction à tout hasard ?
Si c'est le cas, essaie de mettre

Code:

Application->ProcessMessages();

après chaque fois que tu modifies un TLabel, ou après chaque fois que tu rend un TForm visible, ou que tu fais avancer la progressBar.
29/03/2006, 10h29
kurul1
Merci fumidu, je n'avait pas pensé au
Code:

1 2 Application->ProcessMessages();
Maintenant mon texte apparait, même avec un label.

Merci également à tout le monde pour votre aide.