/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408849
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.