IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Composants VCL Delphi Discussion :

Color et ParentColor : aucun effet


Sujet :

Composants VCL Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    46
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 46
    Par défaut Color et ParentColor : aucun effet
    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.

  2. #2
    Expert confirmé

    Avatar de sjrd
    Homme Profil pro
    Directeur de projet
    Inscrit en
    Juin 2004
    Messages
    4 517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Directeur de projet
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2004
    Messages : 4 517
    Par défaut
    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.
    sjrd, ancien rédacteur/modérateur Delphi.
    Auteur de Scala.js, le compilateur de Scala vers JavaScript, et directeur technique du Scala Center à l'EPFL.
    Découvrez Mes tutoriels.

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    46
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 46
    Par défaut
    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;

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    46
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 46
    Par défaut
    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 ???

  5. #5
    Expert confirmé

    Avatar de sjrd
    Homme Profil pro
    Directeur de projet
    Inscrit en
    Juin 2004
    Messages
    4 517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Directeur de projet
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2004
    Messages : 4 517
    Par défaut
    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 ?
    sjrd, ancien rédacteur/modérateur Delphi.
    Auteur de Scala.js, le compilateur de Scala vers JavaScript, et directeur technique du Scala Center à l'EPFL.
    Découvrez Mes tutoriels.

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    46
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 46
    Par défaut
    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.

  7. #7
    Membre Expert
    Avatar de aityahia
    Homme Profil pro
    CIEPTAL CARS SPA
    Inscrit en
    Mars 2006
    Messages
    1 938
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Algérie

    Informations professionnelles :
    Activité : CIEPTAL CARS SPA
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2006
    Messages : 1 938
    Par défaut
    si votre problèmes est résolu alors n'oublier pas le tag sa aidera certainement les autres.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Selection d'une ligne sans effectuer aucun effet
    Par NoussaL dans le forum Windows Forms
    Réponses: 2
    Dernier message: 07/11/2008, 11h07
  2. Boutons et sliders n'ont aucun effet :(
    Par ®om dans le forum JSF
    Réponses: 2
    Dernier message: 17/04/2008, 09h56
  3. Réponses: 0
    Dernier message: 16/03/2008, 18h38
  4. ON DELETE RESTRICT -> Aucun effet
    Par irongomme dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 11/10/2007, 17h32
  5. Requête SQL aucun effet sur la base ?
    Par vain_mich dans le forum Hibernate
    Réponses: 5
    Dernier message: 25/05/2007, 15h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo