Hi,
How can I use FontBackColor without using the TRVActions? I need to use a TAdvOfficeTextColorSelector from TMS Software but the Actions override the color selector with it's own and also the selected color never displays on the Button.
Can this be done without using the Actions?
Many thanks
jnap
FontBackColor
-
- Site Admin
- Posts: 17520
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
1) See the demo in Demos\Delphi\Editors\Editor 2\
It shows how to apply editing commands, including font background color.
2) You can still use RichViewActions with your own color selector.
- choose the color using your selector,
- assign rvActionFontBackColor1.UserInterface := rvacNone;
- assign the chosen color to rvActionFontBackColor1.Color;
- call rvActionFontBackColor1.ExecuteTarget(RichViewEdit1).
It shows how to apply editing commands, including font background color.
2) You can still use RichViewActions with your own color selector.
- choose the color using your selector,
- assign rvActionFontBackColor1.UserInterface := rvacNone;
- assign the chosen color to rvActionFontBackColor1.Color;
- call rvActionFontBackColor1.ExecuteTarget(RichViewEdit1).
I try to do the same thing for selecting the Font Type but always the Font Dialog will be displayed.
How is it possible to do this without displaying the Font Dialog?
I have tried with:
procedure TMain.FontCmbSelectFontName(Sender: TObject; AName: string);
begin
// rvActionFonts1.UserInterface := rvacNone;
rvActionFonts1.Font.Name := AName;
rvActionFonts1.ExecuteTarget(rve);
end;
Many thanks
jnap
How is it possible to do this without displaying the Font Dialog?
I have tried with:
procedure TMain.FontCmbSelectFontName(Sender: TObject; AName: string);
begin
// rvActionFonts1.UserInterface := rvacNone;
rvActionFonts1.Font.Name := AName;
rvActionFonts1.ExecuteTarget(rve);
end;
Many thanks
jnap
-
- Site Admin
- Posts: 17520
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
Hi,
Thank you very much this works perfectly well.
I have used:
jnap
Thank you very much this works perfectly well.
I have used:
Code: Select all
procedure TMain.FontCmbSelectFontName(Sender: TObject; AName: string);
begin
rvActionFontEx1.UserInterface := False;
rvActionFontEx1.ValidProperties := [rvfimFontName];
rvActionFontEx1.Font.Name := AName;
rvActionFontEx1.ExecuteTarget(rve);
end;
-
- Site Admin
- Posts: 17520
- Joined: Sat Aug 27, 2005 10:28 am
- Contact: