From c5ab0bf73a02edcbdda25b30ff98780893238d21 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Sun, 23 May 2010 23:15:09 +0200 Subject: Moved the global dialog functions to the fpg_dialogs.pas unit (out of the include files) --- src/gui/charmapdialog.inc | 1 - src/gui/colordialog.inc | 2 -- src/gui/fpg_dialogs.pas | 2 ++ 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/gui/charmapdialog.inc b/src/gui/charmapdialog.inc index 76a091e4..1eb21b77 100644 --- a/src/gui/charmapdialog.inc +++ b/src/gui/charmapdialog.inc @@ -47,7 +47,6 @@ property NewText: TfpgString read GetNewText; end; -function fpgShowCharMap: TfpgString; {$ENDIF read_interface} diff --git a/src/gui/colordialog.inc b/src/gui/colordialog.inc index 5fd30d96..6914257e 100644 --- a/src/gui/colordialog.inc +++ b/src/gui/colordialog.inc @@ -55,8 +55,6 @@ type end; -function fpgSelectColorDialog(APresetColor: TfpgColor = clBlack): TfpgColor; - {$ENDIF read_interface} diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas index 69f45b7e..66a4e89c 100644 --- a/src/gui/fpg_dialogs.pas +++ b/src/gui/fpg_dialogs.pas @@ -218,6 +218,8 @@ procedure ShowMessage(AMessage: string; ACentreText: Boolean = False); overload; function SelectFontDialog(var FontDesc: string): boolean; function SelectFileDialog(const ADialogType: boolean = sfdOpen; const AFilter: TfpgString = ''): TfpgString; function SelectDirDialog(const AStartDir: TfpgString = ''): TfpgString; +function fpgShowCharMap: TfpgString; +function fpgSelectColorDialog(APresetColor: TfpgColor = clBlack): TfpgColor; implementation -- cgit v1.2.3-70-g09d2