Discussion :

[kurul1]

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 ?

[Fbartolo]

Vérifie que ton Label est bien dans le panel et non derrière ?? sinon je vois pas

[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

[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é.

[totoche76]

Hello

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

.h:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

.cpp:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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++

[Kerod]

Vu que je passe par là lol, ca sert à quoi tout ce code Totoche ???

[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....

[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.

@+

[kurul1]

Ta néthode ne marche pas totoche76, le texte n'est toujours pas affiché.

[totoche76]

Hello

Dans l'éditeur, est-ce que tu as bien mis ton TStaticText au premier plan ??

[kurul1]

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

[totoche76]

Ha bon ?????

Curieux : :

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

.h:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kurul1]

Merci fumidu, je n'avait pas pensé au

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Application->ProcessMessages();

Maintenant mon texte apparait, même avec un label.


Merci également à tout le monde pour votre aide.