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

GTK Cleanup

Browse Source 
Shane

git-svn-id: trunk@1169 -
This commit is contained in:
lazarus 2002-02-09 01:48:01 +00:00
parent 8deadbc690
commit c6b14d20e0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfacebase.pp
View File

@ -48,6 +48,8 @@ type
}
TInterfaceBase = Class(TObject)
private
procedure SetCallback(Msg : LongInt; Sender : TObject); virtual; abstract;
procedure RemoveCallbacks(Sender : TObject); virtual; abstract;
protected
public
procedure AppTerminate; virtual; abstract;
@ -57,8 +59,6 @@ type
procedure Init; virtual; abstract;
function GetText(Sender: TControl; var Text: String): Boolean; virtual; abstract;
function IntSendMessage3(LM_Message : Integer; Sender : TObject; data : pointer) : integer; virtual; abstract;
procedure SetCallback(Msg : LongInt; Sender : TObject); virtual; abstract;
procedure RemoveCallbacks(Sender : TObject); virtual; abstract;
function UpdateHint(Sender: TObject): Integer; virtual; abstract;
function RecreateWnd(Sender: TObject): Integer; virtual; abstract;
@ -82,6 +82,10 @@ end.
{
$Log$
Revision 1.6 2002/03/25 17:59:19 lazarus
GTK Cleanup
Shane
Revision 1.5 2002/02/03 00:24:00 lazarus
TPanel implemented.
Basic graphic primitives split into GraphType package, so that we can