Skriftstørrelse

Tags:    delphi

hej jeg har et sindsygt problem som har drillet mig i lang tid nu. Jeg vil lave en combobox hvorfra der kan vælges skriftstørrelser til en richedit. Det virker men problemet er når jeg markere et andet sted tidligere i teksten skriver den med den skriftstørrelse som jeg benytter mig af lige nu og ikke den som der var skrevet med på det markerede sted. Jeg vil foretrække hvis der var nogen der gad og give mig denne kode i et lidt beskrivende format på forhånd tak.



2 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 6 karma
Sorter efter stemmer Sorter efter dato
hej jeg har et sindsygt problem som har drillet mig i lang tid nu. Jeg vil lave en combobox hvorfra der kan vælges skriftstørrelser til en richedit. Det virker men problemet er når jeg markere et andet sted tidligere i teksten skriver den med den skriftstørrelse som jeg benytter mig af lige nu og ikke den som der var skrevet med på det markerede sted. Jeg vil foretrække hvis der var nogen der gad og give mig denne kode i et lidt beskrivende format på forhånd tak.


Man skriver Richedit1.SelAttributtes.Name:=ComboBox1.Text;

nlf :-)[Redigeret d. 21/03-03 09:32:28 af Nicolai]



Jeg har lavet en procedure til dig her:

Procedure SelTextSize(RichEdit: TRichEdit; Size: integer);
begin
RichEdit.SelAttributes.Size := size;
end;


Du bruger den ved at skrive

SelTextSize(DinRichEdit, Størrelsesomtal);
fx.
SelTextSize(RichEdit1, 8);

mvh.
Lasse Espeholt
webmaster for espeholt.dk



t