Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Вниз

Разное по 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. Иду смотреть...



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.02 c
14-24186
wed
2002-07-11 17:59
2002.08.08
помогите с Betrieve


1-24028
jen_bond
2002-07-29 08:56
2002.08.08
запуск приложения в


1-24016
anod
2002-07-28 18:27
2002.08.08
Invalid pointer operation


3-23946
alords
2002-07-19 07:22
2002.08.08
Query lookup-поля


6-24142
Draculenok
2002-05-27 11:40
2002.08.08
Как открыть сайт!??





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский