/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
D6: Farver i RichEdit eller Memo
Fra : Sven Storm


Dato : 30-12-02 13:46

Hej

Nogen der har en ide til, hvordan man kan farve et enkelt bogstav i en
RichEdit? Alternativt at understrege det?

Mvh
Sven



 
 
Yngve Damgaard (01-01-2003)
Kommentar
Fra : Yngve Damgaard


Dato : 01-01-03 18:35


"Sven Storm" <sven.storm@skolekom.dk> skrev i en meddelelse
news:aupf5t$rhq$1@news.net.uni-c.dk...
> Hej
>
> Nogen der har en ide til, hvordan man kan farve et enkelt bogstav i en
> RichEdit? Alternativt at understrege det?
>
> Mvh
> Sven
>

Sådan sætter du f.eks den fjerde karakter i Richedit til rød, fed og
understreget
mvh.
Yngve

RichEdit1.selstart := 3;
RichEdit1.sellength := 1;
RichEdit1.SelAttributes.Style := [fsBold,fsUnderline];
RichEdit1.SelAttributes.Color := clRed;



Sven Storm (02-01-2003)
Kommentar
Fra : Sven Storm


Dato : 02-01-03 13:50


"Yngve Damgaard" <yngve@yyy.dk> skrev i en meddelelse
news:3e132744$0$220$edfadb0f@dread15.news.tele.dk...
>
> "Sven Storm" <sven.storm@skolekom.dk> skrev i en meddelelse
> news:aupf5t$rhq$1@news.net.uni-c.dk...
> > Hej
> >
> > Nogen der har en ide til, hvordan man kan farve et enkelt bogstav i en
> > RichEdit? Alternativt at understrege det?
> >
> > Mvh
> > Sven
> >
>
> Sådan sætter du f.eks den fjerde karakter i Richedit til rød, fed og
> understreget
> mvh.
> Yngve
>
> RichEdit1.selstart := 3;
> RichEdit1.sellength := 1;
> RichEdit1.SelAttributes.Style := [fsBold,fsUnderline];
> RichEdit1.SelAttributes.Color := clRed;
>

Tak for det. Det virker helt perfekt.

Har du også et hurtigt bud på, hvordan man kan tvinge RichEdit til at skrive
i OverWrite-Mode (svarende til at have tastet på Insert-knappen)?

Mvh
Sven



Sven Storm (02-01-2003)
Kommentar
Fra : Sven Storm


Dato : 02-01-03 14:42


> Har du også et hurtigt bud på, hvordan man kan tvinge RichEdit til at
skrive
> i OverWrite-Mode (svarende til at have tastet på Insert-knappen)?
>
> Mvh
> Sven
>
Fandt selv frem til en løsning - som gengives her for evt. andre
interesserede.
Mvh
Sven

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
InsertOn : bool;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_INSERT) and (Shift = []) then
InsertOn := not InsertOn;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Memo1.SelLength = 0) and
(not InsertOn)) then
Memo1.SelLength := 1;
end;




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste