summaryrefslogtreecommitdiff
path: root/examples/gui/fontselect
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-12 16:15:21 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-12 16:15:21 +0000
commit68c345d04c323d1e98b83236c465c63a916260cd (patch)
treeb86d652551ce2b6aae1dc323f90759d2c8fa298b /examples/gui/fontselect
parent97dfb85b7f7da2140a91675c499e2c61bfe86a7c (diff)
downloadfpGUI-68c345d04c323d1e98b83236c465c63a916260cd.tar.xz
* Implemented a Base Dialog class.
* Implemented 95% of the Font Select dialog. * Completed the FontSelect example project.
Diffstat (limited to 'examples/gui/fontselect')
-rw-r--r--examples/gui/fontselect/fontselect.lpi2
-rw-r--r--examples/gui/fontselect/fontselect.lpr55
2 files changed, 43 insertions, 14 deletions
diff --git a/examples/gui/fontselect/fontselect.lpi b/examples/gui/fontselect/fontselect.lpi
index 18b66abc..230ba30c 100644
--- a/examples/gui/fontselect/fontselect.lpi
+++ b/examples/gui/fontselect/fontselect.lpi
@@ -9,6 +9,7 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
+ <IconPath Value="./"/>
<TargetFileExt Value=""/>
</General>
<VersionInfo>
@@ -16,7 +17,6 @@
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
- <IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
diff --git a/examples/gui/fontselect/fontselect.lpr b/examples/gui/fontselect/fontselect.lpr
index f47d996f..cc9f1ca6 100644
--- a/examples/gui/fontselect/fontselect.lpr
+++ b/examples/gui/fontselect/fontselect.lpr
@@ -10,7 +10,10 @@ uses
fpgfx,
gui_form,
gui_dialogs,
- gui_button;
+ gui_button,
+ gui_listbox,
+ gui_edit,
+ gui_label;
type
@@ -18,8 +21,12 @@ type
private
btnQuit: TfpgButton;
btnSelectFont: TfpgButton;
+ lbFontList: TfpgListBox;
+ edFontDesc: TfpgEdit;
+ lblFontList: TfpgLabel;
procedure btnQuitClick(Sender: TObject);
procedure btnSelectFontClick(Sender: TObject);
+ procedure CreateFontList;
public
constructor Create(AOwner: TComponent); override;
end;
@@ -33,17 +40,23 @@ end;
procedure TMainForm.btnSelectFontClick(Sender: TObject);
var
- frm: TfpgFontSelect;
+ fontdesc: string;
begin
- frm := TfpgFontSelect.Create(nil);
- try
- if frm.ShowModal = 1 then
- begin
- // query font selected in dialog
- end;
- finally
- frm.Free;
- end;
+ fontdesc := edFontDesc.Text;
+ if SelectFontDialog(fontdesc) then
+ edFontDesc.Text := fontdesc;
+end;
+
+procedure TMainForm.CreateFontList;
+var
+ fl: TStringList;
+ i: integer;
+begin
+ lbFontList.Items.Clear;
+ fl := fpgApplication.GetFontFaceList;
+ for i := 0 to fl.Count-1 do
+ lbFontList.Items.Add(fl.Strings[i]);
+ fl.Free;
end;
constructor TMainForm.Create(AOwner: TComponent);
@@ -51,13 +64,29 @@ begin
inherited Create(AOwner);
WindowTitle := 'Font selection test';
SetPosition(100, 100, 500, 400);
+
+ btnSelectFont := CreateButton(self, 10, 10, 110, 'Select Font...', @btnSelectFontClick);
+
+ edFontDesc := CreateEdit(self, 10, 45, Width - 20, 24);
+// edFontDesc.Text := fpgApplication.DefaultFont.FontDesc;
+ edFontDesc.Text := 'Bitstream Vera Sans-9';
+
+ lblFontList := CreateLabel(self, 10, 80, 'Font List:');
+ lbFontList := TfpgListBox.Create(self);
+ with lbFontList do
+ begin
+ SetPosition(10, 100, 232, 236);
+ Items.Clear;
+ end;
+
+ CreateFontList;
btnQuit := CreateButton(self, 415, 370, 80, 'Quit', @btnQuitClick);
btnQuit.ImageName := 'stdimg.Quit';
btnQuit.ShowImage := True;
btnQuit.Anchors := [anRight, anBottom];
-
- btnSelectFont := CreateButton(self, 10, 20, 110, 'Select Font...', @btnSelectFontClick);
+
+ btnSelectFont.TabOrder := 0;
end;
procedure MainProc;