Каждый потомок TWindowsObject имеет поле TransferBuffer. Когда вы хотите передать данные в диалоговое окно, нужно задать объект TransferBuffer диалогового блока, указывающий на запись передачи:

     PenDlg := New(PPenDialog, Init(Application^.MainWindow,
                                    'PenDlg'));
     PenDlg^.TransferBuffer := @PenData;

    Если ваши программы создают объекты диалогового окна динамически, убедитесь, что они каждый раз назначают буфер передачи. TransferBuffer по умолчанию имеет значение nil. Это означает, что данные не переданы.

    Перед фактической передачей данных в диалоговое окно, вам нужно установить значение полей в буфере передачи. Перед выводом диалогового окна пера это делает TPen.ChangePen:

     procedure TPen.ChangePen;
     var
       PenDlg: PPenDialog;
       TempWidth, ErrorPos: Integer;
     begin
       SetColorAttr(PenDate, Color);
       SetStyle(PenDate, Style);
       wvsprintf(PenDialog, Init(Application^.MainWindows,
                 'PenDlg'));
       PenDlg^.TransferBuffer := @PenData;
       if Application^.ExecDialog(PenDlg) <> id_Cancel then
       begin
          Val(PenData.XWidth, TempWidth, ErrorPos);
          if ErrorPos = 0 then
              SetAttributes(SetStyle(PenData), TempWidth,
                   GetColorAttr(PenData));
       end;
     end;

    SetColorAttr и SetStyle используют то преимущество, что буфер передачи задает кнопки с зависимой фиксацией в виде массива значений Word. SetStyle, например, выглядит следующим образом:

     procedure SetStyle(var ARec: TPenData; AStyle: Integer);
     var i: Integer;
     begin
       for i := 0 to 5 do
           if = AStyle then ARec.StyleArray[i] := bf_Checked
           else ARec.StyleArray[i] := bf_Unchecked;
     end;

    Примечание: SetColorAttr выполняет то же назначение, что и ColorArray. bf_Checked и bf_Unchecled - это константы ObjectWindows.