Вставка компонентов в текст или таблицу

[Stilet]

А ЗАЧЕМ???? такие глупые вопросы

А потому что я оч. хорошо знаю что это за область. И все шаблоны доков стандартизированы жестко. Шаг влево-вправо нарваться на скандал можно. Как минимум инстанция не примет отчетность, как максимум нашлют проверку.

Человек_Борща

Потому что в этом смысла мало - шаблоны доков обновляются весьма часто.
Ладно, если я не в тему глаголю - извиняюсь. Мое мнение - не стоит делать то что уже сделано в том же медке или налоговой отчетности. Я бы на такое не пошел, иначе конфликты с бухгалтерией и пр. отделами неизбежны.

[IvaniuS]

Человек_Борща - Не мойдет, этот вариант рассматривался еще в самом начале разработки т.к. он и реализован в ОЗП(

)
Stilet я тоже очеьн хорошо это все знаю и вот какраз для подачи в МинФинансов (Статистика) нет программ нормальных (бузок - полное уг) вот мне и поручили написать то что сможет сформировать отчет в статистику, отправлятся он будет через демо медок, а тот в свою очередь проверяет структуру xml файла, а номер xsd схемы подметить в хмл не сложно, если поменяется форма отчета.....

Ну так что мы будем дальше обсуждать эту тему или все таки вы мне поможете, я сейчас решил сделать табличный вариант просто скрывая лишнее в StringGride думаю примерно так и в медке реализовано..

[Stilet]

или все таки вы мне поможете

Я поддерживаю Аватара и Сашу40.
Если бы мне не дай боже нужно было бы такое реализовать именно в виде шаблона отчета то делал бы это либо в HTML в виде сайта, либо в оффисе, где макросами бы формировал XML или PFZ потом.
Больше мне нечего сказать.

[Человек_Борща]

думаю примерно так и в медке реализовано..

Вы сравниваете звездолет с камнем.

Попробуйте TMS FlexCell, или DevExpress cxGrid или NextGrid. Они гораздо мощнее и гибче, последний имеет удобную добавлялку редакторов для своих типов данных, по мимо имеющихся стандартных.

[IvaniuS]

да уже начал смотреть ehLib, и он мне уже переписал стандартный TEditStyle и теперь не компилируется старый проект, сейчас посмотрю то чт овы предлагаете. NextGrid хорош - буду изучать но мне нужно то что они предлагают в как вы выразились "удобной добавлялки" нужно в рантайм выполнять и делать не для всего столбика, а для конкретной ячейки, надеюсь разберусь.

[Человек_Борща]

Посмотрите ещё в сторону TVirtualDrawTree, TVirtualStringTree
На основе второго можно свой Grid реализовать.
Да и свои редакторы под данные в конкретной колонке тоже не сложно писать.
На основе первого можно вообще на ушах стоять, в смысле за отображение ты полностью отвечаешь а не компонент.

[IvaniuS]

Если бы в обычном стринг гриде можно было нормально обьединять ячейки как в экселе и обводку менять(края), то мне бы и его хватило, но этого нету, сейчас выбираю из всего что-то наиболее удобное для реализации моей задачи. А стандартный компонент все может, просто нужно уметь им пользоваться...
После целого дня поисков был найден мало известный ZColorStringGrid который достаточно прост, универсален, бесплатен и т.д. багов пока не заметил.

[IvaniuS]

ну что а вы говорили, нет и нет все нормально вот скрин теста.

[IvaniuS]

Найденный мною компонент хорош, но там нету типа ячейки, порыскав по интернету нашел как переписать потомка СТАНДАРТНОЙ stringgrid, а у меня не стандартный конкретно, так можно переписать стандартный:

 type
   TGetEditStyleEvent = procedure (TSender:TObject; ACol,ARow:integer;
     var EditStyle:TEditStyle) of object;

   TNewStringGrid = class(TStringGrid)
   private
     FDropdownRowCount : integer;
     FOnEditButtonClick : TNotifyEvent;
     FOnGetEditStyle : TGetEditStyleEvent;
     FOnGetPickListItems : TOnGetPickListItems;
     procedure SetDropdownRowCount(value:integer);
     procedure SetOnEditButtonClick(value:TNotifyEvent);
     procedure SetOnGetPicklistItems(value:TOnGetPickListItems);
   protected
     function  CreateEditor: TInplaceEdit; override;
     function  GetEditStyle(ACol, ARow: integer): TEditStyle; override;
   public
     constructor Create(AOwner:TComponent); override;
   published
     property DropdownRowCount : integer
       read FDropDownRowCount write SetDropdownRowCount default 8;
     property OnEditButtonClick: TNotifyEvent
       read FOnEditButtonClick write SetOnEditButtonClick;
     property OnGetEditStyle : TGetEditStyleEvent
       read FOnGetEditStyle write FOnGetEditStyle;
     property OnGetPickListItems : TOnGetPickListItems
       read FOnGetPickListItems write SetOnGetPickListItems;
   end;

 implementation

 constructor TNewStringGrid.Create(AOwner:TComponent);
 begin
   inherited Create(AOwner);
   FDropdownRowCount := 8;
 end;

 function TNewStringGrid.CreateEditor: TInplaceEdit;
 begin
   result := TInplaceEditList.Create(self);
   with TInplaceEditList(result) do begin
     DropdownRows := FDropdownRowCount;
     OnGetPickListItems := FOnGetPickListItems;
     OnEditButtonClick := FOnEditButtonClick;
   end;
 end;

 function TNewStringGrid.GetEditStyle(ACol,ARow:integer) : TEditStyle;
 begin
   result := esSimple;
   if Assigned(FOnGetEditStyle)
     then FOnGetEditStyle(self, ACol, ARow, result);
 end;

 procedure TNewStringGrid.SetDropDownRowCount(value:integer);
 begin
   FDropdownRowCount := value;
   if Assigned(InplaceEditor)
     then TInplaceEditList(InplaceEditor).DropdownRows := value;
 end;

 procedure TNewStringGrid.SetOnEditButtonClick(value:TNotifyEvent);
 begin
   FOnEditButtonClick := value;
   if Assigned(InplaceEditor)
     then TInplaceEditList(InplaceEditor).OnEditButtonClick := value;
 end;

 procedure TNewStringGrid.SetOnGetPicklistItems(value:TOnGetPicklistItems);
 begin
   FOnGetPicklistItems := value;
   if Assigned(InplaceEditor)
     then TInplaceEditList(InplaceEditor).OnGetPickListitems := value;
 end;

тут используется TInplaceEdit, а у меня ТМемо:

TZInplaceEditor = class(TCustomMemo)
  private
    FGrid: TZColorStringGrid;
    FExEn: integer; 
  protected
    procedure DoEnter; override;
    procedure DoExit; override;
    procedure Change; override;
    procedure DblClick; override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure KeyPress(var Key: Char); override;
    procedure KeyUp(var Key: Word; Shift: TShiftState); override;
  public
    constructor Create(AOwner: TComponent); override;
    function  DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
    function  DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;override;
  end;

  TInplaceEditorOptions = class (TPersistent)
  private
    FGrid: TZColorStringGrid;
    FFontColor: TColor;
    FBGColor: TColor;
    FBorderStyle: TBorderStyle;
    FAlignment: TAlignment;
    FWordWrap: Boolean;
    FUseCellStyle: Boolean;
    procedure SetFontColor(const Value: TColor);
    procedure SetBGColor(const Value: TColor);
    procedure SetBorderStyle(const Value: TBorderStyle);
    procedure SetAlignment(const Value: TAlignment);
    procedure SetWordWrap(const Value: Boolean);
    procedure SetUseCellStyle(const Value: Boolean);
  protected
  public
    constructor Create(AGrid: TZColorStringGrid); virtual;
  published
    property FontColor: TColor read FFontColor write SetFontColor default clblack;
    property BGColor: TColor read FBGColor write SetBGColor default clWhite;
    property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsNone;
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
    property WordWrap: Boolean read FWordWrap write SetWordWrap default true;
    property UseCellStyle: Boolean read FUseCellStyle write SetUseCellStyle default true;
  end;

если кто знает как добавить в мемо esEllipsis, esPickList то буду благодарен или наоборот инплейс привести ближе к мемо (нету переноса слов на новую строку выравнивания по горизонтали и т.д.)
прикладываю исходники одного и второго

[Viktor61]

Ув.IvaniuS, посмотрите в интернете книгу Василия Корнякова "Программирование документов и приложений MS Office в DELPHI". В ней достаточно толково рассказано как создать шаблон документа (в Вашем случае - форма для бухгалтерии), расставить метки в этом шаблоне и куда затем путём поиска-замены заносить данные. М.б. - пригодится. Успехов!