A titre d'exemple voiçi quelques lignes qui mettent les "3 points" pour un "A propos" tiré d'un compo Slider: type //Property AboutBox TAboutSlideBarProperty = class(TPropertyEditor) public procedure Edit; override; function GetAttributes: TPropertyAttributes; override; function GetValue: string; override; end;
implementation ........................ //About property procedure TAboutSlideBarProperty.Edit; var msg: string; const carriage_return = chr(13); begin msg := 'SlideBar Component v1.1'; AppendStr(msg, carriage_return); AppendStr(msg, carriage_return); AppendStr(msg, 'Copyright © 1996 InforTech, Inc. All Rights Reserved.'); AppendStr(msg, carriage_return); AppendStr(msg, carriage_return); AppendStr(msg, 'Developed by:'); AppendStr(msg, carriage_return); AppendStr(msg, carriage_return); AppendStr(msg, 'Steven Martins'); AppendStr(msg, carriage_return); AppendStr(msg, 'E-Mail: steven.martins@workmail.com'); AppendStr(msg, carriage_return); AppendStr(msg, 'Home Page:'); AppendStr(msg, carriage_return); AppendStr(msg, 'http://www.geocities.com/SiliconValley/Park/7619/'); AppendStr(msg, carriage_return); ShowMessage(msg); end;
function TAboutSlideBarProperty.GetAttributes: TPropertyAttributes; begin Result := [paMultiSelect, paDialog, paReadOnly]; end;
function TAboutSlideBarProperty.GetValue: string; begin Result := 'Click on...for About box'; end; Avec ça je n'ai pas encore pu faire démarrer un TColorDialog...... Les "3 points" sont fournis par GetAttributes paDialog... Si celà peut aider.....A+
|