paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 10:00:34 +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; FHandle := 0;
end; end;
function TCommonDialog.HandleAllocated: boolean;
begin
Result:=FHandle<>0;
end;
procedure TCommonDialog.SetHandle(const AValue: integer); procedure TCommonDialog.SetHandle(const AValue: integer);
begin begin
FHandle:=AValue; FHandle:=AValue;
@ -70,6 +75,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.6 2003/03/15 09:42:49 mattias
fixed transient windows
Revision 1.5 2002/05/29 21:44:38 lazarus Revision 1.5 2002/05/29 21:44:38 lazarus
MG: improved TCommon/File/OpenDialog, fixed TListView scrolling and broder 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 GetTopIndex(Sender: TObject): integer;
function SetTopIndex(Sender: TObject; NewTopIndex: integer): integer; function SetTopIndex(Sender: TObject; NewTopIndex: integer): integer;
// forms
procedure BringFormToFront(Sender: TObject); procedure BringFormToFront(Sender: TObject);
procedure SetWindowSizeAndPosition(Window: PGtkWindow; procedure SetWindowSizeAndPosition(Window: PGtkWindow;
AWinControl: TWinControl);virtual; AWinControl: TWinControl);virtual;
procedure ShowModal(Sender: TObject);
Function GetCaption(Sender : TObject) : String; virtual; Function GetCaption(Sender : TObject) : String; virtual;
function GetText(Sender: TComponent; var Text: String): Boolean; virtual; function GetText(Sender: TComponent; var Text: String): Boolean; virtual;
@ -188,7 +190,7 @@ type
procedure WordWrap(DC: HDC; AText: PChar; MaxWidthInPixel: integer; procedure WordWrap(DC: HDC; AText: PChar; MaxWidthInPixel: integer;
var Lines: PPChar; var LineCount: 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 ResizeChild(Sender : TObject; Left,Top,Width,Height : Integer);virtual;
procedure SetResizeRequest(Widget: PGtkWidget);virtual; procedure SetResizeRequest(Widget: PGtkWidget);virtual;
procedure UnsetResizeRequest(Widget: PGtkWidget);virtual; procedure UnsetResizeRequest(Widget: PGtkWidget);virtual;
@ -327,6 +329,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.121 2003/03/15 09:42:49 mattias
fixed transient windows
Revision 1.120 2003/03/09 21:13:32 mattias Revision 1.120 2003/03/09 21:13:32 mattias
localized gtk interface localized gtk interface