Discussion :

[molini_a]

Bonjour,

Je suis en train de développer une application, et j'ai créer un form avec un panel de couleur blanc. Enseuite, j'aimerais ajouter une CheckBox qui à pour couleur de fond du vert et qui s'aligne en fonction du haut du Panel, mais automatiquement, il garde la couleur blanc du Panel.
Pourtant, j'ai bien fait attention de bien mettre les propriétés:

Code :

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

1
2
3
4
5
parent := Panel;
ParentColor := False;
ParentFont := False;
ParentCtl3D := False;
ParentBiDiMode := False;

Auriez vous déjà eu ce genre de problèmes ???

Merci d'avance pour votre aide éventuelle.

[sjrd]

Peut-on avoir une capture d'écran de ta fiche en design, et éventuellement ton dfm texte. A moins que tu ne crées tes composants dynamiquement, dans ce cas le code complet sera plus utile

Sans cela, il sera difficile de t'aider.

[molini_a]

Oui, effectivement, mes composants sont crées dynamiquement. La structure de mon fichier est comme cela :

j'ai un tableau qui contient des textes. en fait, j'ai une fonction qui liste ce tableau et qui créer les boites de dialogues. les textes sont tirés d'un fichier SRT, c'est à dire des sous-titres. et en fait je veux mettre des couleurs pour bien distingués quels personnages parlent.

Donc je cré une form avec jsute un panel blanc (car au dessus du panel blanc, j'ai des boutons pour ouvrir le fichier texte, les couleurs, etc...).

voilà ma fonction d'initialisation:

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
43
44
45
46
47
48
49
While Not(EOF(fichierTexte) do
begin
        readln(F,Ligne);
        readln(F,Ligne);
        readln(F,Ligne);
 
        MainForm.TabCheck[i].Check := TCheckBox.Create(self);
        MainForm.TabCheck[i].Check.Parent := PanelTexte;
        MainForm.TabCheck[i].Check.ParentColor := False;
        MainForm.TabCheck[i].Check.ParentFont := False;
        MainForm.TabCheck[i].Check.ParentCtl3D := False;
        MainForm.TabCheck[i].Check.ParentBiDiMode := False;
        MainForm.TabCheck[i].Check.Enabled := TRUE;
        MainForm.TabCheck[i].Check.Visible := TRUE;
        MainForm.TabCheck[i].Check.Left := 30;
        MainForm.TabCheck[i].Check.Top := 60*i-50;
        MainForm.TabCheck[i].Check.Anchors := [akLeft,akTop,akRight];
        if length(Ligne)<200 then
          MainForm.TabCheck[i].Check.Height := 40
        else
          MainForm.TabCheck[i].Check.Height := 50;
        MainForm.TabCheck[i].Check.WordWrap := TRUE;
        MainForm.TabCheck[i].Check.Font.Name := 'Arial';
        MainForm.TabCheck[i].Check.Font.Size := 11;
        MainForm.TabCheck[i].Check.Width := 1150;
        MAinForm.TabCheck[i].Check.OnClick := CheckBarre;
        MainForm.TabCheck[i].Check.Font.Style := [fsBold];
        if (Couleur='Noir') or (Couleur='Couleur') then
          MainForm.TabCheck[i].Check.Font.Color := clBlack
        else if (Couleur='Vert') then
          MainForm.TabCheck[i].Check.Font.Color := clGreen
        else if (Couleur='Bleu') then
          MainForm.TabCheck[i].Check.Font.Color := clBlue
        else if (Couleur='Rouge') then
          MainForm.TabCheck[i].Check.Font.Color := clRed
        else if (Couleur='Marron') then
          MainForm.TabCheck[i].Check.Font.Color := clMaroon
        else if (Couleur='Violet') then
          MainForm.TabCheck[i].Check.Font.Color := clPurple
        else if (Couleur='Rose') then
          MainForm.TabCheck[i].Check.Font.Color := clFuchsia
        else
          MainForm.TabCheck[i].Check.Font.Color := clRed;
        MainForm.TabCheck[i].Check.Caption := Ligne;
        MainForm.TabCheck[i].Check.Color := clRed;
 
        readln(F,Ligne);
 
end;

[molini_a]

j'ai remarqué que dans toute mon application, les couleurs de fond et des polices des check box ne fonctionnent pas (pour les Labels Aussi), par contre, quand je crée un nouveau projet, cela fonctionne.

Aurais-je modifié un parametre qui oblige à tous les composants "enfants" de garder la couleur de la form principale, ou quelque chose de ce style la ???

[sjrd]

Bon avant de commencer on va remettre de l'ordre dans ton code, parce que pour l'instant il est pas très lisible

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
43
44
45
46
47
48
49
50
uses
  StrUtils;
 
const
  ColorStrings : array[0..7] of string = (
    'Couleur', 'Noir', 'Vert', 'Bleu', 'Rouge', 'Marron', 'Violet', 'Rose'
  );
  Colors : array[-1..7] of TColor = (
    clRed, // default color
    clBlack, clBlack, clGreen, clBlue, clRed, clMaroon, clPurple, clFuchsia
  );
 
while not EOF(fichierTexte) do
begin
  ReadLn(F, Ligne);
  ReadLn(F, Ligne);
  ReadLn(F, Ligne);
 
  MainForm.TabCheck[i].Check := TCheckBox.Create(self);
  with MainForm.TabCheck[i].Check do
  begin
    Parent := PanelTexte;
    ParentColor := False;
    ParentFont := False;
    ParentCtl3D := False;
    ParentBiDiMode := False;
    Enabled := True;
    Visible := True;
    Left := 30;
    Top := 60*I - 50;
    Anchors := [akLeft, akTop, akRight];
 
    if Length(Ligne) < 200 then
      Height := 40
    else
      Height := 50;
 
    WordWrap := True;
    Font.Name := 'Arial';
    Font.Size := 11;
    Width := 1150;
    OnClick := CheckBarre;
    Font.Style := [fsBold];
    Font.Color := Colors[AnsiIndexStr(Couleur, ColorStrings)];
    Caption := Ligne;
    Color := clRed;
  end;
 
  ReadLn(F, Ligne);
end;

Ensuite, plusieurs questions :

• fichierTexte et F sont-ils le même fichier ? Je suppose que oui
• Pourquoi plusieurs ReadLn sans effet ?
• Pourquoi pas de inc(I); dans la boucle ?
• Où et comment est renseigné Couleur ?
• Aurais-tu mis un TXPManifest quelque part ?

[molini_a]

A voilà, merci beaucoup, tu as repondu à maquestion, ca vient bien du style XP qui embete tt le monde. Merci pour ton aide, ca m'a bien aidé.

D'ailleurs, j'ai appris des choses pour optimisé mon code ave ce que tu m'a réécrit.

[aityahia]

si votre problèmes est résolu alors n'oublier pas le tag sa aidera certainement les autres.