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

Вниз

Проблема выделения текста в RichEdit   Найти похожие ветки 

 
@LeX-I ©   (2006-05-18 20:02) [0]

Код:
       RichEdit.Text:=RichEdit.Text + "А" + #13#10;
       RichEdit.Text:=RichEdit.Text + "Б" + #13#10;
       richEdit.SelStart:=3;
       richEdit.SelLength:=1;
       richedit.SelAttributes.Style:= [fsBold];
       RichEdit.Text:=RichEdit.Text + "В";

Если убрать последнюю строчку, что буква Б будет жирной, иначе - почему-то нет.


 
TStas ©   (2006-05-18 22:49) [1]

Потому что текст меняется в этой же процедуре


 
@LeX-I ©   (2006-05-18 23:00) [2]

Что-то не совсем понятно. Поясните, пожалуйста.


 
webpauk   (2006-05-19 10:10) [3]


> RichEdit.Text:=RichEdit.Text + "В"

последней строчкой ты переписываешь весь Text и к ней применяются SelAttributes по умолчанию


 
webpauk   (2006-05-19 10:12) [4]

RichEdit1.Lines.Add("В");


 
@LeX-I ©   (2006-05-19 10:55) [5]

Дело в том, что при очень длинных строках ADD вылетает


 
webpauk   (2006-05-19 10:58) [6]

RichEdit1.selstart:=Richedit1.RichEdit.Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber;
RichEdit1.PasteFromClipBoard;
предварительно записав туда чего те надо
LineNumber - номер строки, CharNumber - номер символа в строке


 
webpauk   (2006-05-19 11:01) [7]

function GetStringFromClipboard: WideString;
var
 Data: THandle;
begin
 if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
   Result:=Clipboard.AsText
 else
 begin
   Clipboard.Open;
   Data := GetClipboardData(CF_UNICODETEXT);
   try
     if Data <> 0 then
       Result := PWideChar(GlobalLock(Data))
     else
       Result := "";
   finally
     if Data <> 0 then GlobalUnlock(Data);
     Clipboard.Close;
   end;
 end;
end;

procedure PutStringIntoClipBoard(const Str: WideString);
var
 Size: Integer;
 Data: THandle;
 DataPtr: Pointer;
begin
 Size := Length(Str);
 if Size = 0 then
   exit;
 if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
   Clipboard.AsText := Str
 else
 begin
   Size := Size shl 1 + 2;
   Data := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, Size);
   try
     DataPtr := GlobalLock(Data);
     try
       Move(Pointer(Str)^, DataPtr^, Size);
       Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
     finally
       GlobalUnlock(Data);
     end;
   except
     GlobalFree(Data);
     raise;
   end;
 end;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
3-1146588999
olevacho_
2006-05-02 20:56
2006.06.25
Надежность Absolute Database Personal


3-1146241531
Galiaf
2006-04-28 20:25
2006.06.25
Переместить указатель.


2-1149490302
novice
2006-06-05 10:51
2006.06.25
Контроль работы приложения на уд. компе


15-1149145505
Gorlum
2006-06-01 11:05
2006.06.25
ISA-сервер


15-1148288235
atmospheric
2006-05-22 12:57
2006.06.25
Литература для начинающих Delphi?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский