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

  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;

Télécharger le zip

03 mai 2006 19:50:49 :

no comment