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

GTK Cleanup

Browse Source 
Shane

git-svn-id: trunk@847 -
This commit is contained in:
lazarus 2002-02-09 01:47:04 +00:00
parent acc8dee85d
commit 6682a70930
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkint.pp
View File

@ -53,7 +53,7 @@ type
FStockGrayBrush: HBRUSH;
FStockDkGrayBrush: HBRUSH;
FStockWhiteBrush: HBRUSH;
Procedure HookSignals(Sender : TObject); //hooks all signals for controls
procedure CreateComponent(Sender : TObject);
procedure AddChild(Parent,Child : Pointer; Left,Top: Integer);
procedure ResizeChild(Sender : TObject; Left,Top,Width,Height : Integer);
@ -88,6 +88,8 @@ type
function HashPaintMessage(p: pointer): integer;
function FindPaintMessage(HandleWnd: HWnd): PLazQueueItem;
procedure SetCallback(Msg : LongInt; Sender : TObject); override;
procedure RemoveCallbacks(Sender : TObject); override;
protected
Cursor_Watch : pGDKCursor;
Cursor_Arrow : pGDKCursor;
@ -108,8 +110,6 @@ type
function GetText(Sender: TControl; var Text: String): Boolean; override;
procedure SetLabel(Sender : TObject; Data : Pointer);
function IntSendMessage3(LM_Message : Integer; Sender : TObject; data : pointer) : integer; override;
procedure SetCallback(Msg : LongInt; Sender : TObject); override;
procedure RemoveCallbacks(Sender : TObject); override;
procedure DoEvents; override;
procedure HandleEvents; override;
procedure WaitMessage; override;
@ -325,6 +325,10 @@ end.
{ =============================================================================
$Log$
Revision 1.32 2002/03/25 17:59:20 lazarus
GTK Cleanup
Shane
Revision 1.31 2002/03/14 20:28:49 lazarus
Bug fix for Mattias.
Fixed spinedit so you can now get the value and set the value.