begin process at 2008 08 29 22:24:32
1 233 909 membres
430 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DES PETITES FENÊTRES ALIGNÉES QUI SE POSITIONNENT ET S'OUVRENT/FERMENT PAR SIMPLE CLIC SUR LA BARRE DE TITRE


Information sur la source

Catégorie :Composants Classé sous : panel, tscrollingwincontrol, wmncpaint, auto, reduce Niveau : Débutant Date de création : 03/05/2006 Date de mise à jour : 03/05/2006 19:50:49 Vu / téléchargé: 2 968 / 569

Note :
Aucune note

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Ce package introduit 2 nouveaux composants: TScrollPanel et TTitlePanel. Ils seront installés dans la page "Win32"

Le premier sert de parent pour les seconds, un peu comme un TPageControl sert de parent à des TTabSheet. Il y a d'ailleurs un éditeur de composant personnalisé: quand on fait un clic avec le bouton droit de la souris sur un TScrollPanel, un menu apparait qui permet de créer facilement un nouveau TitlePanel.

Le but de ce composant (voir capture et programme d'exemple fourni) est de faire une barre de menu sur un des côtés de l'application avec des petits panneaux qui s'ouvrent et se referment par simple clic. Si la hauteur totale des panneaux est trop grande pour tenir dans la fenêtre, une ScrollBar va apparaitre sur le TScrollPanel (d'où son nom) pour permettre de faire défiler les TitlePanels, pourvu que sa propriété AutoScroll soit à True.

Les TitlePanel peuvent aussi s'utiliser seuls. Merci de m'indiquer d'éventuels bugs, et si quelqu'un a l'occasion de l'utiliser sous Win95 ou 98, de me dire si ça marche.

Source

  • TScrollPanel=class(TScrollingWinControl)
  • public
  • property TitlePanelCount:Integer read GetTitlePanelCount; //TitlePanels count
  • property TitlePanel[Index:Integer]:TTitlePanel read GetTitlePanel; //TitlePanel by index
  • published
  • property Indent:Integer read FIndent write SetIndent; //Space between panels
  • property AutoClose:Boolean read FAutoClose write SetAutoClose; //If true then TitlePanels are auto-closed when maximizing one
  • end;
  • TTitlePanel=class(TWinControl)
  • published
  • property TitleHeight:Integer read FTitleHeight write SetTitleHeight; //Height of the title bar...
  • property BorderColor:TColor read FBorderColor write SetBorderColor; //Border color...
  • property Index:Integer read GetIndex write SetIndex nodefault; //Index in ScrollPanel parent. -1 if the TitlePanel has no parent ScrollPanel.
  • property ScrollPanel:TScrollPanel read FScrollPanel write SetScrollPanel; //Scroll panel parent
  • property OpenClientHeight:Integer read FLastClienHeight write SetOpenClientHeight; //CLientHeight when open
  • property Open:Boolean read FOpen write SetOpen; //Open or not...
  • end;
  TScrollPanel=class(TScrollingWinControl)
  public
    property TitlePanelCount:Integer read GetTitlePanelCount;           //TitlePanels count
    property TitlePanel[Index:Integer]:TTitlePanel read GetTitlePanel;  //TitlePanel by index
  published
    property Indent:Integer read FIndent write SetIndent;           //Space between panels

    property AutoClose:Boolean read FAutoClose write SetAutoClose;  //If true then TitlePanels are auto-closed when maximizing one
  end;

  TTitlePanel=class(TWinControl)
  published
    property TitleHeight:Integer read FTitleHeight write SetTitleHeight;                 //Height of the title bar...
    property BorderColor:TColor read FBorderColor write SetBorderColor;                  //Border color...

    property Index:Integer read GetIndex write SetIndex nodefault;                       //Index in ScrollPanel parent. -1 if the TitlePanel has no parent ScrollPanel.

    property ScrollPanel:TScrollPanel read FScrollPanel write SetScrollPanel;            //Scroll panel parent

    property OpenClientHeight:Integer read FLastClienHeight write SetOpenClientHeight;   //CLientHeight when open
    property Open:Boolean read FOpen write SetOpen;                                      //Open or not...
  end;

Conclusion

Pour essayer le composant:
-Compiler et installer le package ScrollPanel_D7.dpk (dans le répertoire Lib/)
-Compiler et exécuter le programme Project1.dpr (dans le répertoire Example/)

Le code est dans la catégorie débutant, car les Title et Scroll Panels sont faciles à utiliser, le package est de niveau Expert.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

03 mai 2006 19:50:49 :
no comment
    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

Snippets en rapport

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS