Fórum EDITOR DE COMPONENTES E COMPONENTES VISUAIS. #366994

http://www.4shared.com/account/file/76082770/e898bd5e/Editor_de_Component.html

  RegisterPropertyEditor(TypeInfo(string), TClasseDoComponent, ´FieldName´, TDataFieldProperty);

unit SuperComboBox;

interface

uses
  SysUtils, Classes, DesignEditors, DesignIntf,
  Windows, Messages, Controls, StdCtrls, Grids, ValEdit, Consts, Dialogs;
type
  TSuperComboBox = class(TComboBox)
  private
    FDBField:String;
    FNulo : Boolean;
    FMsgNulo : String;
    FTESTE : TItemProps;
    FRegiao:integer;

      { Private declarations }
  protected
    { Protected declarations }
  public
   constructor Create(AOwner: TComponent); override;
    { Public declarations }
  published
    { Published declarations }
    property DBField : String read FDBField write FDBField;
    property DBRegiao : Integer read FRegiao write FRegiao;
    property Nulo : Boolean read FNulo write Fnulo;
    property MsgNulo : String read FMsgNulo write FMsgNulo;
  end;


  TEditorSuperComboForm = class(TComponentEditor)
  private
  public
    function GetVerb(Index: Integer): String; override;
    function GetVerbCount: Integer; override;
    procedure Edit; override;
    procedure ExecuteVerb(Index: Integer); override;
  end;

procedure Register;


implementation

{ TEditorSuperComboForm }

uses uEditorSuperComboDialog;

constructor TSuperComboBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FNulo:=true;
end;

procedure TEditorSuperComboForm.Edit;
begin
  inherited;
end;

procedure TEditorSuperComboForm.ExecuteVerb(Index: Integer);
var
  SuperComboBox : TSuperComboBox;
begin
 case Index of
   0: Execute(Component as TSuperComboBox);
 end;
end;

function TEditorSuperComboForm.GetVerb(Index: Integer): String;
begin
  case Index of
    0: Result := ´Editar´;
  end;
end;

function TEditorSuperComboForm.GetVerbCount: Integer;
begin
  Result := 1;
end;



procedure Register;
begin
  RegisterComponents(´SuperComponentes´, [TSuperComboBox]);

  //Esse é o que aparece com o botão direito do mouse ou duplo clique no componente
  RegisterComponentEditor(TSuperComboBox, TEditorSuperComboForm);

end;


end.

unit uEditorSuperComboDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ValEdit, SuperComboBox, AUTOMASOFT;

type
  TEditorSuperComboDialog = class(TForm)
    ValueListEditor1: TValueListEditor;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;    
  private
    { Private declarations }
  public
    itens : TStrings;
    { Public declarations }
  end;

  procedure Execute(Editor : TSuperComboBox);

var
  EditorSuperComboDialog: TEditorSuperComboDialog;

implementation

{$R *.dfm}

procedure Execute(Editor : TSuperComboBox);
var
  fEditor: TEditorSuperComboDialog;
  i, l : integer;
  flag : boolean;
begin
  try
    fEditor := TEditorSuperComboDialog.Create(Editor);
    fEditor.itens:=Editor.Items;

    /// verifica se tem itens
    if fEditor.Itens.Count>0 then
    begin
      //pula os itens no formato errado
      for i:=0 to fEditor.Itens.Count-1 do
      begin
        flag:=false;
        for l:=0 to length(trim(fEditor.Itens[i])) do
        begin
//          showmessage(copy(trim(fEditor.Itens[i]),l,1));
          if copy(trim(fEditor.Itens[i]),l,1)=´>´ then
          begin
            flag:=true;
            break;
          end;
        end;
        if flag then
          if (trim(EXPLODE(trim(fEditor.Itens[i]),´>´)[0])<>´´) and (trim(EXPLODE(trim(fEditor.Itens[i]),´>´)[1])<>´´) then
          fEditor.ValueListEditor1.InsertRow(EXPLODE(trim(fEditor.Itens[i]),´>´)[0],EXPLODE(trim(fEditor.Itens[i]),´>´)[1],TRUE);
      end;
    end;
    //// grava mudancas
    if fEditor.ShowModal = mryes then
    begin
      /// armazena resultado
      Editor.Items.Clear;
      for i:=1 to fEditor.ValueListEditor1.RowCount-1 do
      begin
        Editor.AddItem(fEditor.ValueListEditor1.Keys[i]+´ > ´+fEditor.ValueListEditor1.Values[fEditor.ValueListEditor1.Keys[i]],Editor);
      end;
    end;

  finally
    fEditor.Free;
  end;
end;

end.