Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Editor de texto RTF: Tahoma/11pt como fuente predeterminada.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@181 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-12-20 10:01:45 +00:00
parent 05d73bd406
commit d61aa9fa28
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Source/GUIBase/uViewRichEditor.dfm
View File

@ -158,7 +158,7 @@ inherited frViewRichEditor: TfrViewRichEditor
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Height = 21 Height = 21
Width = 20 Width = 19
end end
end end
end end
@ -166,12 +166,19 @@ inherited frViewRichEditor: TfrViewRichEditor
Left = 0 Left = 0
Top = 26 Top = 26
Align = alClient Align = alClient
ParentFont = False
Properties.HideSelection = False Properties.HideSelection = False
Properties.ScrollBars = ssBoth Properties.ScrollBars = ssVertical
Properties.OnChange = RichEditPropertiesChange Properties.OnChange = RichEditPropertiesChange
Properties.OnSelectionChange = RichEditPropertiesSelectionChange Properties.OnSelectionChange = RichEditPropertiesSelectionChange
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -15
Style.Font.Name = 'Tahoma'
Style.Font.Style = []
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard

3
Source/GUIBase/uViewRichEditor.pas
View File

@ -170,7 +170,8 @@ end;
procedure TfrViewRichEditor.CustomViewCreate(Sender: TObject); procedure TfrViewRichEditor.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
CurrText.Name := DefFontData.Name; CurrText.Name := 'Tahoma';
CurrText.Size := 11;
RichEditPropertiesSelectionChange(Self); RichEditPropertiesSelectionChange(Self);
end; end;