mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Show example when set font

Browse source
This commit is contained in:
Alexander Koblov 2009-12-16 22:39:35 +00:00
commit 151e5ea03f
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/foptions.pas
View file

@ -753,6 +753,7 @@ begin
cbEditorFont.Text := dlgFnt.Font.Name;
edtEditorSize.Value := dlgFnt.Font.Size;
edtTest2.Font := dlgFnt.Font;
edtTest2.Text:= cbEditorFont.Text;
end;
end;
@ -766,6 +767,7 @@ begin
cbMainFont.Text := dlgFnt.Font.Name;
edtMainSize.Value := dlgFnt.Font.Size;
edtTest1.Font := dlgFnt.Font;
edtTest1.Text:= cbMainFont.Text;
end;
end;
@ -779,6 +781,7 @@ begin
cbViewerFont.Text := dlgFnt.Font.Name;
edtViewerSize.Value:= dlgFnt.Font.Size;
edtTest3.Font := dlgFnt.Font;
edtTest3.Text:= cbViewerFont.Text;
end;
end;
@ -810,20 +813,23 @@ begin
edtViewerSize.Value:=gViewerFontSize;
edtMainSize.Value:=gFontSize;
edtTest1.Text:= gFontName;
with edtTest1.Font do
begin
Name := gFontName;
Size := gFontSize;
Style:= gFontStyle;
end; // with
edtTest2.Text:= gEditorFontName;
with edtTest2.Font do
begin
Name := gEditorFontName;
Size := gEditorFontSize;
Style:= gEditorFontStyle;
end; // with
edtTest3.Text:= gViewerFontName;
with edtTest3.Font do
begin
Name := gViewerFontName;