paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 17:40:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: broke interfacebase uses circles

Browse Source 
git-svn-id: trunk@3558 -
This commit is contained in:
lazarus 2002-10-25 10:06:34 +00:00
parent cf9743275e
commit 37b96cb4ee
3 changed files with 34 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/dialogs.pp
View File

@ -233,6 +233,7 @@ type
function CreateMessageDialog(const aMsg: string; DlgType: TMsgDlgType; function CreateMessageDialog(const aMsg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons): TForm; Buttons: TMsgDlgButtons): TForm;
function MessageDlg(const aMsg: string; DlgType: TMsgDlgType; function MessageDlg(const aMsg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType; function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;
@ -242,6 +243,7 @@ type
function MessageDlgPosHelp(const aMsg: string; DlgType: TMsgDlgType; function MessageDlgPosHelp(const aMsg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
const HelpFileName: string): Integer; const HelpFileName: string): Integer;
procedure ShowMessage(const aMsg: string); procedure ShowMessage(const aMsg: string);
procedure ShowMessageFmt(const aMsg: string; Params: array of const); procedure ShowMessageFmt(const aMsg: string; Params: array of const);
procedure ShowMessagePos(const aMsg: string; X, Y: Integer); procedure ShowMessagePos(const aMsg: string; X, Y: Integer);
@ -277,6 +279,18 @@ const
idButtonRetry, idButtonIgnore, idButtonAll,idButtonAll, idButtonAll, idButtonRetry, idButtonIgnore, idButtonAll,idButtonAll, idButtonAll,
idButtonHelp); idButtonHelp);
const
//
//TODO: all the constants below should be replaced in the future
// their only purpose is to overcome some current design flaws &
// missing features in the GTK libraries
//
cBitmapX = 10; // x-position for bitmap in messagedialog
cBitmapY = 10; // y-position for bitmap in messagedialog
cBitmapWidth = 32; // width of the dialogs icon
cBitmapHeight= 32; // height of the dialogs icon
cLabelSpacing= 10; // distance between icon & label
function ShowMessageBox(Text, Caption : PChar; Flags : Longint) : Integer; function ShowMessageBox(Text, Caption : PChar; Flags : Longint) : Integer;
var var
@ -323,21 +337,18 @@ begin
end; end;
{$I colordialog.inc}
{$I commondialog.inc} {$I commondialog.inc}
{$I filedialog.inc} {$I filedialog.inc}
{$I colordialog.inc}
procedure TFontDialog.SetFont(const AValue: TFont);
begin
FFont.Assign(AValue);
end;
{$I fontdialog.inc} {$I fontdialog.inc}
{$I messagedialogs.inc}
{$I inputdialog.inc} {$I inputdialog.inc}
{$I messagedialogs.inc}
{$I promptdialog.inc}
initialization initialization
Forms.MessageBoxFunction:=@ShowMessageBox; Forms.MessageBoxFunction:=@ShowMessageBox;
InterfaceBase.InputDialogFunction:=@ShowInputDialog; InterfaceBase.InputDialogFunction:=@ShowInputDialog;
InterfaceBase.PromptDialogFunction:=@ShowPromptDialog;
finalization finalization
@ -346,6 +357,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.24 2002/10/25 10:06:34 lazarus
MG: broke interfacebase uses circles
Revision 1.23 2002/10/25 09:47:37 lazarus Revision 1.23 2002/10/25 09:47:37 lazarus
MG: added inputdialog.inc MG: added inputdialog.inc

10
lcl/include/fontdialog.inc
View File

@ -15,6 +15,7 @@
* * * *
***************************************************************************** *****************************************************************************
} }
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TFontDialog.Apply Method: TFontDialog.Apply
Params: Wnd: HWND Params: Wnd: HWND
@ -49,9 +50,18 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TFontDialog.SetFont(const AValue: TFont);
begin
FFont.Assign(AValue);
end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.4 2002/10/25 10:06:34 lazarus
MG: broke interfacebase uses circles
Revision 1.3 2002/06/04 15:17:22 lazarus Revision 1.3 2002/06/04 15:17:22 lazarus
MG: improved TFont for XLFD font names MG: improved TFont for XLFD font names

15
lcl/include/messagedialogs.inc
View File

@ -70,18 +70,6 @@ type
procedure EndUpdate; procedure EndUpdate;
end; end;
const
//
//TODO: all the constants below should be replaced in the future
// their only purpose is to overcome some current design flaws &
// missing features in the GTK libraries
//
cBitmapX = 10; // x-position for bitmap in messagedialog
cBitmapY = 10; // y-position for bitmap in messagedialog
cBitmapWidth = 32; // width of the dialogs icon
cBitmapHeight= 32; // height of the dialogs icon
cLabelSpacing= 10; // distance between icon & label
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TMessageBox.Create Method: TMessageBox.Create
Params: AOwner: the owner of the class Params: AOwner: the owner of the class
@ -536,6 +524,9 @@ end;
{ {
$Log$ $Log$
Revision 1.20 2002/10/25 10:06:34 lazarus
MG: broke interfacebase uses circles
Revision 1.19 2002/10/25 09:47:38 lazarus Revision 1.19 2002/10/25 09:47:38 lazarus
MG: added inputdialog.inc MG: added inputdialog.inc