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

fixed transient windows

Browse Source 
git-svn-id: trunk@2492 -
This commit is contained in:
mattias 2002-08-17 23:41:25 +00:00
parent f2da2ebf95
commit 5094446efb
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/commondialog.inc
View File

@ -43,6 +43,11 @@ begin
FHandle := 0;
end;
function TCommonDialog.HandleAllocated: boolean;
begin
Result:=FHandle<>0;
end;
procedure TCommonDialog.SetHandle(const AValue: integer);
begin
FHandle:=AValue;
@ -70,6 +75,9 @@ end;
{ =============================================================================
$Log$
Revision 1.6 2003/03/15 09:42:49 mattias
fixed transient windows
Revision 1.5 2002/05/29 21:44:38 lazarus
MG: improved TCommon/File/OpenDialog, fixed TListView scrolling and broder

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

@ -166,9 +166,11 @@ type
function GetTopIndex(Sender: TObject): integer;
function SetTopIndex(Sender: TObject; NewTopIndex: integer): integer;
// forms
procedure BringFormToFront(Sender: TObject);
procedure SetWindowSizeAndPosition(Window: PGtkWindow;
AWinControl: TWinControl);virtual;
procedure ShowModal(Sender: TObject);
Function GetCaption(Sender : TObject) : String; virtual;
function GetText(Sender: TComponent; var Text: String): Boolean; virtual;
@ -188,7 +190,7 @@ type
procedure WordWrap(DC: HDC; AText: PChar; MaxWidthInPixel: integer;
var Lines: PPChar; var LineCount: integer);
// messages, callbacks
// control functions for messages, callbacks
procedure ResizeChild(Sender : TObject; Left,Top,Width,Height : Integer);virtual;
procedure SetResizeRequest(Widget: PGtkWidget);virtual;
procedure UnsetResizeRequest(Widget: PGtkWidget);virtual;
@ -327,6 +329,9 @@ end.
{ =============================================================================
$Log$
Revision 1.121 2003/03/15 09:42:49 mattias
fixed transient windows
Revision 1.120 2003/03/09 21:13:32 mattias
localized gtk interface