Размер поля берется из структуры

FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sPicDescr'] := '';

FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sAgregateExpr']:= '';

FDbInterface.N_pTFieldInfo.sMTTableInfo := FpTFbCommonType.FbLUp.spTableInfo;

FDbInterface.N_pTFieldInfo.sMTFieldInfo := FpTFbCommonType.FbLUp.spFieldInfo;

FDbInterface.N_pTFieldInfo.sPickList := nil;

FDbInterface.N_pTFieldInfo.sFieldType := FpTFbCommonType.FbLUp.sType;

// Размер поля берется из структуры поля, на которое берется ссылка

FDbInterface.N_pTFieldInfo.sFieldSize :=

FpTFbCommonType.FbLUp.spFieldInfo.sFieldSize;

FDbInterface.N_pTFieldInfo.sFieldMBytes :=

FpTFbCommonType.FbLUp.spFieldInfo.sFieldMBytes;

end;

end;

except

end;

Result := True;

end;

Procedure TFldDlgFr.FldNameEditKeyUp(Sender: TObject; Var Key: Word;

Shift: TShiftState);

begin

if Key = VK_UP then

Self.FindNextControl(Sender as TWinControl, False, True, True).SetFocus

else if Key = VK_DOWN then

Self.FindNextControl(Sender as TWinControl, True, True, True).SetFocus;

end;

procedure TFldDlgFr.TypeGroupCmBoxChange(Sender: TObject);

Var

k : Integer;

wTFbTypeGroup : TFbTypeGroup;

begin

k := TypeGroupCmBox.ItemIndex;

if k < 0 then

Exit;

FldNameEdit.Enabled := True;

FldNameEdit.Color := clWhite;

wTFbTypeGroup := TFbTypeGroup(TypeGroupCmBox.Items.Objects[k]);

// Заполнить универсальный список списком выбранного комб. типа

UpdateFieldTypesN(FDbInterface, TypesComboBox, wTFbTypeGroup);

SetTypeGroupLayout(wTFbTypeGroup);

if wTFbTypeGroup = RefGroup then

begin

FldNameEdit.Enabled := False;

FldNameEdit.Color := clSilver;

end;

// Установим фокус ввода на TypesComboBox

TypesComboBox.SetFocus;

end;

Procedure TFldDlgFr.SetTypeGroupLayout(ffTFbTypeGroup : TFbTypeGroup);

begin

// Типовой вид, который будем уточнять

TypesComboBox.Width := 354;

TypesComboBox.BringToFront;

TypesComboBox.Enabled := True;

case ffTFbTypeGroup of

FldGroup :

begin { базовая группа данных }

TypesComboBox.Width := 262;

end;

RefGroup : ;

PicGroup : ;


Содержание  Назад  Вперед

---

---