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

MG: broke buttons.pp <-> forms.pp circle

Browse Source 
git-svn-id: trunk@3550 -
This commit is contained in:
lazarus 2002-10-24 10:15:24 +00:00
parent d8abfdaf6a
commit 27ddcbc159
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/forms.pp
View File

@ -436,9 +436,6 @@ type
// MWE:Do we need this ?? // MWE:Do we need this ??
// function ProcessMessage(Var Msg : TMsg) : Boolean; // function ProcessMessage(Var Msg : TMsg) : Boolean;
procedure wndproc(var Message : TLMessage); procedure wndproc(var Message : TLMessage);
// Shane: the following is used for Messagebox button clicks. Temporary until I figure out a better way.
procedure DefaultOnClick(Sender : TObject);
//----
function GetExename: String; function GetExename: String;
function GetIconHandle: HICON; function GetIconHandle: HICON;
function GetTitle: string; function GetTitle: string;
@ -517,7 +514,7 @@ implementation
uses uses
Buttons, StdCtrls, Interfaces, LResources, dialogs,ExtCtrls {,designer}, Math; StdCtrls, Interfaces, LResources, Dialogs, ExtCtrls, Math;
const const
FocusMessages : Boolean = true; FocusMessages : Boolean = true;