RX Library

← →
Kott © (2003-11-26 22:31) [0]

Скачал я сегодня RX Library, написано что подходит под Delphi7, стал я компилить *.DPK, а он ругается такими словами:
Unsafe type "PChar"
...
Unsafe type "Poiter"
...
Culd not crete output file "c:\tmp\d7\MaxMin.dcu"
Че с этим делать???

← →
Юрий Федоров © (2003-11-26 23:08) [1]

это две разные вещи.
Критична последняя
Проверь, есть ли такая папка.
И есть ли у тебя права на запись в нее
И нет ли там файла MaxMin.dcu с аттрибутом ReadOnly

← →
Ломброзо © (2003-11-27 00:48) [2]

RXLib - хтоническая реликтовая библиотека. Была портирована в дистрибутив Jedi Component Library.

← →
Kott © (2003-11-27 16:37) [3]

to[Юрий Федоров]: Спасибо!!! Все поправил теперь усе работает.
to[Ломброзо]: А где его взять?

У меня теперь возник другой вопрос...
Как можно в RxRichEdit заменить заменить определенные слова картинками, програмно? Т.е. например я открываю текстовый файл, а программа должна заменить смайлики в виде текста на картинки.

← →
Adoon (2003-11-27 18:39) [4]

Пробегаешь текст, ищещь вхождения твоих смайликов,
выделяешь эти текстовые смайлики и вставляешь заранее нарисованный графический смайлик, процедура вставки рисунка в RxRichEdit можно найти в инете.

SS := TStringStream.Create(BitmapToRTF(BMP));
try
RxRich.PlainText := False;
RxRich.StreamMode := [smSelection];
RxRich.Lines.LoadFromStream(SS);
RxRich.StreamMode := [];
finally

function BitmapToRTF(pict: TBitmap): string;
var
bi,bb,rtf: string;
bis,bbs: Cardinal;
achar: ShortString;
hexpict: string;
I: Integer;
begin
GetDIBSizes(pict.Handle,bis,bbs);
SetLength(bi,bis);
SetLength(bb,bbs);
GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(bb)^);
rtf := "{\rtf1 {\pict\dibitmap ";
SetLength(hexpict,(Length(bb) + Length(bi)) * 2);
I := 2;
for bis := 1 to Length(bi) do
begin
achar := Format("%x",[Integer(bi[bis])]);
if Length(achar) = 1 then
achar := "0" + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
for bbs := 1 to Length(bb) do
begin
achar := Format("%x",[Integer(bb[bbs])]);
if Length(achar) = 1 then
achar := "0" + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
rtf := rtf + hexpict + " }}";
Result := rtf;
end;

← →
Ru © (2003-11-28 10:08) [5]

http://jvcl.sourceforge.net/ - там Jedi

Всем большое спасибо!!!
Еще у меня появились вопросики:
1:Можно ли теперь когда я вставил картинки в текст, отыскать нужные и изменить их на текст;
2:Мне нужно отыскать в тексте (в RichEdit) определенный
изменить цвет строки начиная с этого символа;
3:Кто-нить знает, что это мпоненты TTextBrowser и TTextView, почему их не видно и нельза использовать?

Подскажите как можно вставить текст в TRichEdit в позицию курсора???

> Подскажите как можно вставить текст в TRichEdit в позицию курсора???

1. Можно создать для этого новую ветку.
2. ДЛя этого понадобятся св-ва Text (весь тескт) и CaretPos (положение курсоар).

RX Library Найти похожие ветки