Форум программистов [Powered by Invision Power Board]

Код

function TPropertyList.AddEdit(Index:Integer; NeedButton:boolean):String;
var
  NewEdit   :TEdit;
  NewButton :TButton;
begin
try
  CountObj:=CountObj+1;

  NewEdit             :=TEdit.Create(GroupControlParent); // CreateAOwner
  NewEdit.Parent      :=GroupControlParent;//ControlParent;
  NewEdit.Height      :=ControlHeight;
  if (Not NeedButton) then
  begin
    NewEdit.Width       :=ControlS2Width-ValuePaddingRight-2;
    NewEdit.Top         :=FPositionTop;
    NewEdit.Left        :=ControlS1Width-ValuePaddingLeft;
// 17 строка - Ошибок нет
  end else begin
    NewEdit.Width       :=ControlS2Width-ValuePaddingRight-2-ControlHeight;
    NewEdit.Top         :=FPositionTop;
    NewEdit.Left        :=ControlS1Width-ValuePaddingLeft;
  end;
  NewEdit.BorderStyle :=bsNone;
  //NewEdit.Anchors:=[akRight,akTop];
  NewEdit.Name        :=ObjPrefName+'objEdit'+inttostr(CountObj);

  Items[Index].ControlValue   :=NewEdit;

  if Items[Index].ValueType='String' then
  begin
      NewEdit.Text        :=Items[Index].Value;
      NewEdit.Hint        :=Items[Index].Hint;
      NewEdit.ReadOnly    :=Items[Index].ControlReadOnly;
  end
  else if Items[Index].ValueType='Double' then
  begin
      NewEdit.Text        :=Items[Index].Value;
      NewEdit.Hint        :=Items[Index].Hint;
      NewEdit.ReadOnly    :=Items[Index].ControlReadOnly;
  end
  else if Items[Index].ValueType='Integer' then
  begin
      NewEdit.Text        :=Items[Index].Value;
      NewEdit.Hint        :=Items[Index].Hint;
      NewEdit.ReadOnly    :=Items[Index].ControlReadOnly;
  end;

  if NeedButton then
  begin
      NewButton           :=TButton.Create(GroupControlParent);
      NewButton.Parent    :=GroupControlParent;//ControlParent;
      NewButton.Height    :=ControlHeight;
      NewButton.Width     :=ControlHeight;
      NewButton.Top       :=FPositionTop;
      NewButton.Left      :=NewEdit.Left+NewEdit.Width;
      NewButton.Caption   :='...';
      NewButton.OnClick   :=EditButtonClick;

      NewButton.Name               :=ObjPrefName+'objButton'+inttostr(CountObj);
      Items[Index].ControlButton   :=NewButton;
  end
  else
      Items[Index].ControlButton   :=nil;

  if Items[Index].ControlReadOnly then
    NewEdit.Color:=RowColorReadOnlyTrue
  else
    NewEdit.Color:=RowColorReadOnlyFalse;

  NewEdit.PopupMenu:=FPopupMenu;
  NewEdit.OnClick:=EditOnClick;
  NewEdit.OnChange:=EditOnChange;
  NewEdit.OnKeyPress:=EditOnKeyPress;
  NewEdit.OnEnter:=EditOnEnter;
  NewEdit.OnExit:=EditOnExit;

  NewEdit.Show;
  if NeedButton then NewButton.Show;
  result:=NewEdit.Name;
except
   application.MessageBox('TPropertyList.AddEdit','Class Error',0);
   result:=null;
end;
end;