Kontrolowanie wklejania w RichEdit

0

Jak można ograniczyć, które dane dot. tekstu mają zostać wklejone do RichEdit?
Chcę, żeby przy wklejaniu dowolnego tekstu pozbywać się info o jego czcionce, rozmiarze itp. ale pozostawić TYLKO kolor i pogrubienie/kursywe/podkreślenie.

Wiem, że jest cos takiego jak PasteSpecial(CF_TEXT); ale to usunie mi cale formatowanie, a ja chcialbym zeby te elementy zachowac...

0

Możesz po wklejeniu ten text zaznaczyć (.SelStart .SelLength) i 'odbierać mu' co po niektóre wartości... Albo nadać mu pewno wartości z góry określone, np. czcionka CourierNew, Wielkość czcionki na 10, itd...

0

Możesz po wklejeniu ten text zaznaczyć (.SelStart .SelLength) i 'odbierać mu' co po niektóre wartości... Albo nadać mu pewno wartości z góry określone, np. czcionka CourierNew, Wielkość czcionki na 10, itd...

1: i tak usuwac po kolei: nazwe, rozmiar, obrazki, tabelki, bajerki......

2: I jak mam te z góry ustalone wartości zablokowac zeby nie dalo sie ich zmienic?

0

zeby wszystko ladnie wygladalo wklej to do dodakowego pola memo [visible:=false]

potem

memo1.text i ustawiasz wlasciwosci tekstu

font.height := 10
font.color := clBlack
font.style := []

a na koncu kopiujesz z tego memo do richa :)
wyglada to ladniej i nie ma zrywow w wyswietlaniu

nie pamietam tego dokladnie ale zawsze masz pomoc delphi

[diabel] na razie [diabel]

0

ach zeby to bylo takie proste...
powiem raz jeszcze:

  1. Nazwa i rozmiar czionki mają zostac zignorowane (tu memo by dzialalo, ale...)

  2. KOLOR i STYL (pogrubienie itp) mają być ZACHOWANE! Tzn te informacje nie maja zostac usuniete z wklejanego tekstu.

0

Rozwiązanie maxymalnie powolne, ale powjnno zadziałać: Wklejasz do drugiego RichEdit text ze schowka, a następnie przpisujesz znak po znaku (do innego RichEdit), ustawiając odpowiednie włąściwości znaku według tego co potrzebujesz...

0 
//zaznaczasz wklejony tekst i edytujesz ignorowane warości na własne np:
  RichEdit.SelAttributes.Name := 'MS Sans Serif';
  RichEdit.SelAttributes.Size := 8;
  RichEdit.SelAttributes.Pitch := fpDefault;
//lub na domyślne RichEdita:
  RichEdit.SelAttributes.Name := RichEdit.Font.Name;
  RichEdit.SelAttributes.Size := RichEdit.Font.Size;
  RichEdit.SelAttributes.Pitch := RichEdit.Font.Pitch;
0

Aa.... hm... a w jakiej postaci sa dane w schowku? ;/ Moze daloby rade samemu to odczytac...?

(U Was RichEdit tez tak debilnie wkleja tekst z Internet Explorera?)

1 użytkowników online, w tym zalogowanych: 0, gości: 1