Разное по RxRichEdit

← →
Goblinus (2002-07-23 02:43) [0]

Доброго времени суток всем ещё раз! Кто знает, ответьте, плз, на 4 небольших вопросика:

1). Нужно программно создавать ярлыки. В FAQ был пример кода - но он почему-то не работает под Delphi 6. Короче, нужен нормально работающий код. Киньте, ПЛЗ! Очень надо!

2). Нужно в RxRichEdit вставлять картинку из файла. Умею только через буфер обмена. Как обойтись без него?
Код:
var P: TPicture; begin with OpenPictureDialog do begin if Execute then begin P := TPicture.Create; try P.LoadFromFile(FileName); Clipboard.Assign(P); (ActiveMDIChild as TfrmChild).Editor.PasteFromClipboard; finally P.Free; end; end; end; end;
И ещё. Почему-то прога ругается на формат JPG - "Project raised exception class EInvalidGraphic with message "Uniknown picture file extension (.jpg)". По-че-му? Причём ругается именно при выборе в диалоге файла с таким расширением, а не при вставке. Ругается, кстати, не всегда.

3).Как в RxRichEdit вставить текст, который не будет выделен после вставки (вставляю путём RxRichEdit.SelText)?

4). Вроде бы, в RichEd20.dll есть процедура для сохранения в формате DOC, но в RichEdit"е её вроде нет. Что нужно добавить в модуль RxRichEd для возможности сохранения в DOC?

Заранее благодарен!!!

← →
Goblinus (2002-07-23 02:50) [1]

Дополнение. Как в RichEdit вставить стандартную таблицу и файл в ввиде значка (т.е, чтобы он бsk объектом и был представлен не как данные, а именно в виде значка).

Сбасибо заранее!

← →
Вадим (2002-07-23 03:56) [2]

Как в RxRichEdit вставить текст, который не будет выделен после вставки (вставляю путём RxRichEdit.SelText

RxRcihEdit.SelText := "test";
RxRichEdit.SelLength := 0;

← →
EugenCFG (2002-07-23 08:47) [3]

А обязательно через PictureDialog ???
Нельзя ли просто сгенерировать вставку рисунка???

← →
nick_sniper (2002-07-25 01:25) [4]

Про ярлыки: рабочий код:

function CreateShortcut(const CmdLine, Args, WorkDir, LinkFile, icon: string):IPersistFile; var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; WideFile : WideString; begin MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetPath(PChar(CmdLine)); SetArguments(PChar(Args)); SetWorkingDirectory(PChar(WorkDir)); SetIconLocation(@icon[1],0); end; WideFile := LinkFile; if MyPFile.Save(PWChar(WideFile), False) = S_OK then Result := MyPFile; end;

Вызов функции для создания на рабочем столе:
CreateShortcut("C:\MyProg.EXE", "", "C:\", GetDirectory(CSIDL_DESKTOP)+"Название ярлыка.lnk","C:\MyProg.EXE");

Вызов функции для создания в меню пуск:
CreateDir(GetDirectory(CSIDL_PROGRAMS)+"Название пункта меню"); CreateShortcut("C:\MyProg.EXE", "", "C:\", GetDirectory(CSIDL_PROGRAMS)+"Название ярлыка.lnk","C:\MyProg.EXE");

Ещё нужно подключить кучу модулей (точно не помню какие). Поэтому даю много, лишнее выкинешь (это кусок из рабочей проги):
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Mask, Buttons, ToolEdit, ComCtrls, RXCtrls, shlobj, ActiveX, comobj, registry, fileutil;

← →
MBo (2002-07-25 06:17) [5]

http://www.swissdelphicenter.ch/en/showcode.php?id=1332

← →
Goblinus (2002-07-26 13:22) [6]

>>>Вадим © (23.07.02 03:56)

Спасибо! Но есть одна маленькая проблема - курсор остаётся на том же месте, где и был до вставки.
До:
12|90
После вставки 345678:
12|34567890
Надо:
12345678|90.

-----------------------------------------------------------------

>>>EugenCFG (23.07.02 08:47)

Суть одна и та же: откуда-либо вставляется рисунок в созданной во время выполнения TPicture. Затем это надо вставить в RxRichEdit. Только как? :(

-----------------------------------------------------------------

>>>nick_sniper © (25.07.02 01:25)

Спасибо за код! Насчёт модулей - мне к стандартным при создании формы понадобились shlobj, ActiveX, comobj.

-----------------------------------------------------------------
MBo © (25.07.02 06:17)
Thanks. Иду смотреть...

Разное по RxRichEdit Найти похожие ветки