DES PETITES FENÊTRES ALIGNÉES QUI SE POSITIONNENT ET S'OUVRENT/FERMENT PAR SIMPLE CLIC SUR LA BARRE DE TITRE panel, tscrollingwincontrol, wmncpaint, auto, reduce, Source N°37417

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

Auteur : Forman

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

ScrollPanel
- Example
  - Project1.dpr 188 octets
  - Unit1.dfm3 830 octets
  - Unit1.pas 712 octets
- Lib
  - ScrollPanel.dcr924 octets
  - ScrollPanel.pas 15 029 octets
  - ScrollPanel_D7.dpk615 octets
  - ScrollPanel_Reg.pas 929 octets

Télécharger le zip

Historique

03 mai 2006 19:50:49 :: no comment

Sources du même auteur

Toutes les sources de Forman

Sources de la même categorie

Toutes les sources de la catégorie Composants

Sources en rapport avec celle ci

Commentaires

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source

auto logon par jcm

StatusBar et largeur Panel par apz

Création dynamiqe par bougste

Problemes d'affichage dans une DBCtrlgrid par balstrom

Générer des cliques ou avoir acces a ... par stage

statusbar comment recuperer des infos? par noyax

Personnalisation de la barre de titre par holomina

panel en canvas? par lupoo

Panel qui ne change pas de couleur par etrix

Word - correction auto espaces insecable par freud2000