With "SynEdit" I was able to Set the Text Selection Appearance, to something really "cool" looking:
Code: Select all
with SynEdit.SelectedColor do
begin
Background:=clMyPastelColor;
Foreground:=clBlack;
FrameColor:=clNavy; {Nice}
FrameStyle:=slsDotted; {Even Nicer}
end;
This above "FrameStyle" (in SynEditTypes.pas) is:
Code: Select all
TSynLineStyle = (
slsSolid, // PS_SOLID pen
slsDashed, // PS_DASH pen
slsDotted, // PS_DOT
slsWaved // solid wave
);
Code: Select all
with AtSynEdit.Colors do
begin
TextSelBg:=clMyPastelColor;
TextSelFont:=clBlack;
//FrameColor:=clNavy; {Cant find anything to do this}
//FrameStyle:=slsDotted; {Cant find anything to do this}
end;
Thank You Sincerely..