Losev Word(Моя программа)

[Яр|/||< (^_^)]

Люди хочу выложить на форум программистов программу чтобы вы протестировали и высказали всё что вы думаете. Даже самые маленькие замечания учтутся. Давайте я буду ждать сообщенией и премечаний!

[Utkin]

У меня ничего при запуске не происходит. Вообще ничего.

[Яр|/||< (^_^)]

При щелчке на ссылку или что?
Вот на всякий случай файла на файлообменник залил http://letitbit.net/download/3494.3dcd57a3aa7063de382cfd659/losevword.zip.html

[uberchel]

У меня, даже не запускается, сразу ошибка : код1722 - RPC сервер недоступен!
У меня нет принтера, так что думаю по этому, сделай проверку на то, установлен ли принтер в системе или нет, смотри в подключении принтдеалог.

[Яр|/||< (^_^)]

Всмысле в подключение принт диалог?

[uberchel]

Посмотри код его подключения, ну как ты его привязал к программе.
Там, как я понял идет и идет ошибка в импортирования функции, сделай или исключения или проверку.

Наверно у вас идет вызов принтдиалог при создании формы или запуску, попробуйте сделать топо этого:

try
 if PrintDialog.execute then
 begin
 //you code
end
except
// raise error
end

Тоесть нужно посмотреть есть ли принтер если его нет то не грузить принт диалог?

Да.

[Яр|/||< (^_^)]

Тоесть нужно посмотреть есть ли принтер если его нет то не грузить принт диалог?

[Utkin]

Прога не запускается - я распаковал ее на рабочий стол. Кликаю на нее - нет результатов.

[Яр|/||< (^_^)]

А как вот у меня код онкреат

  SetLength(Editors, 1);
  Editors[0] := SRichViewEdit1;
  ActiveEditor := SRichViewEdit1;
  SRVTabSet1.TabIndex := 0;

    rvActionsResource.rvActionSave1.OnDocumentFileChange :=
    rvActionSave1DocumentFileChange;

  rvActionsResource.rvActionColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionColor1.OnHideColorPicker := ColorPickerHide;
  rvActionsResource.rvActionParaColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionParaColor1.OnHideColorPicker := ColorPickerHide;
  rvActionsResource.rvActionFontColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionFontColor1.OnHideColorPicker := ColorPickerHide;
  rvActionsResource.rvActionFontBackColor1.OnShowColorPicker := ColorPickerShow;
  rvActionsResource.rvActionFontBackColor1.OnHideColorPicker := ColorPickerHide;

    cmbFont.AutoComplete := False;
  cmbFontSize.AutoComplete := False;
{$ENDIF}
  Localize;

  Application.OnHint := ApplicationHint;

  rvActionsResource.rvActionOpen1.LoadFile(ActiveEditor.RichViewEdit,
    ExtractFilePath(Application.ExeName) + 'help.dlw', ffiRVF);

  {
    rvActionsResource.rvActionNew1.ExecuteTarget(ActiveEditor.RichViewEdit);
    }

  VToolButton := nil;

  rvActionsResource.rvActionNew1.OnExecute := OnNewEditor;
  rvActionsResource.rvActionOpen1.OnExecute := OnOpenEditor;
  ActiveEditor.RichViewEdit.Modified := False;
  UpdateIcon(ActiveEditor);

[Яр|/||< (^_^)]

Люди а может ему какая нибудь библиотека дельфяевская нужна?