VPF::Непрвильная работа GetData в Free Vision

RpC

Дата 20.3.2011, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Всем привет, пытаюсь выбрать данные из созданного диалога в Free Pascal. Почему - то корректно возвращается только первое и последнее значение записи из 4- х, остальные пустые.

Определение структуры:

Код


 TDialogData = record
       State: word;
       Date:  string[9];
       Group: string[21];
       Mark:  string[21];

    end;

Функция вызова диалога

Код


procedure TMainWindow.lAddRecord;
var
  Dialog: PDialog;
  R: TRect;
  Control: Word;
  Combo, Date, Mark, Group: PView;
  Data : TDialogData;
begin
  Data.Date := '';
  Data.Mark := '';
  Data.Group:='';
  Data.State := 0;

  R.Assign(0, 0, 40, 15);
  Dialog := New(PDialog, Init(R, 'Add Record'));
  with Dialog^ do
  begin
    //buttons
    R.Assign(17, 13, 27, 14);
    Insert(New(PButton, Init(R, '~O~K', cmOK, bfDefault)));
    R.Assign(29, 13, 39, 14);
    Insert(New(PButton, Init(R, 'Cancel', cmCancel, bfNormal)));
    R.Assign(1, 3, 18, 5);
    //combo
    Combo := New(PRadioButtons, Init(R,
                 NewSItem('~R~eady',
                 NewSItem('NOT Ready',
                 nil))
               ));
    Insert(Combo);
    //combo label
    R.Assign(1, 2, 33, 3);
    Insert(New(PLabel, Init(R, 'State', Combo)));

    // input data
    R.Assign(27, 3, 38, 4);
    Date := New(PInputLine, Init(R, 8));
    Insert(Date);
    R.Assign(19, 3, 25, 4);
    Insert(New(PLabel, Init(R, 'Date', Date)));

    // input Group
    R.Assign(8, 6, 38, 7);
    Group := New(PInputLine, Init(R, 20));
    Insert(Group);
    R.Assign(1, 6, 7, 7);
    Insert(New(PLabel, Init(R, 'Group', Group)));

    // input Mark
    R.Assign(8, 8, 38, 9);
    Mark := New(PInputLine, Init(R, 20));
    Insert(Mark);
    R.Assign(1, 8, 7, 9);
    Insert(New(PLabel, Init(R, 'Mark', Mark)));

   end;

  Control:=DeskTop^.ExecView(Dialog);

  // проверим если вернулло да - считаем данные
  if Control <> cmCancel  then
             Dialog^.GetData(Data);

end;

Помогите найти ошибку.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »