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

added IsWindowVisible

Browse Source 
git-svn-id: trunk@3944 -
This commit is contained in:
mattias 2003-03-17 08:51:10 +00:00
parent 85abe9e95c
commit f9ff190130
5 changed files with 42 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -438,6 +438,8 @@ type
destructor Destroy; override;
procedure ActivateHint(ARect: TRect; const AHint: String); virtual;
function CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect; virtual;
procedure ReleaseHandle;
public
property AutoHide : Boolean read FAutoHide write SetAutoHide;
property HideInterval : Integer read FHideInterval write SetHideInterval;
end;

11
lcl/include/custommemo.inc
View File

@ -61,6 +61,14 @@ begin
Lines.Add(Value);
end;
{------------------------------------------------------------------------------
procedure TCustomMemo.Clear;
------------------------------------------------------------------------------}
procedure TCustomMemo.Clear;
begin
Lines.Clear;
end;
{------------------------------------------------------------------------------
Method: TCustomMemo.SetLines
Params:
@ -110,6 +118,9 @@ end;
{ =============================================================================
$Log$
Revision 1.10 2003/03/17 08:51:09 mattias
added IsWindowVisible
Revision 1.9 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl

5
lcl/include/hintwindow.inc
View File

@ -131,5 +131,10 @@ begin
Inc(Result.Right, 3);
end;
procedure THintWindow.ReleaseHandle;
begin
DestroyHandle;
end;
// included by forms.pp

25
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -332,9 +332,10 @@ end;
function GTKAPIWidgetClient_GetType: Guint;
const
TYPE_NAME = 'LCLWinapiClient';
TheType: Guint = 0;
Info: TGTKTypeInfo = (
type_name: 'LCLWinapiClient';
type_name: TYPE_NAME;
object_size: SizeOf(TGTKAPIWidgetClient)+100;
class_size: SizeOf(TGTKAPIWidgetClientClass)+100;
class_init_func: @GTKAPIWidgetClient_ClassInit;
@ -344,8 +345,12 @@ const
base_class_init_func: nil;
);
begin
if (TheType = 0) then
TheType := gtk_type_unique(gtk_fixed_type,@Info);
if (TheType = 0)
then begin
TheType := gtk_type_from_name(TYPE_NAME);
if TheType = 0
then TheType := gtk_type_unique(gtk_fixed_type,@Info);
end;
Result := TheType;
end;
@ -674,9 +679,10 @@ end;
function GTKAPIWidget_GetType: Guint;
const
WAW_NAME = 'LCLWinapiWidget';
wawType: Guint = 0;
wawInfo: TGTKTypeInfo = (
type_name: 'LCLWinapiWidget';
type_name: WAW_NAME;
object_size: SizeOf(TGTKAPIWidget)+100; // a TGTKScrolledWindow
class_size: SizeOf(TGTKAPIWidgetClass)+100;
class_init_func: @GTKAPIWidget_ClassInit;
@ -686,8 +692,12 @@ const
base_class_init_func: nil;
);
begin
if (wawType = 0)
then wawType := gtk_type_unique(gtk_scrolled_window_get_type, @wawInfo);
if (wawType = 0)
then begin
wawType := gtk_type_from_name(WAW_NAME);
if wawType = 0
then wawType := gtk_type_unique(gtk_scrolled_window_get_type, @wawInfo);
end;
Result := wawType;
end;
@ -826,6 +836,9 @@ end.
{ =============================================================================
$Log$
Revision 1.44 2003/03/17 08:51:10 mattias
added IsWindowVisible
Revision 1.43 2002/12/30 17:24:08 mattias
added history to identifier completion

5
lcl/stdctrls.pp
View File

@ -495,6 +495,8 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Append(const Value : String);
procedure Clear;
public
property Lines: TStrings read FLines write SetLines;
property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars;
property WordWrap: Boolean read FWordWrap write SetWordWrap;
@ -1393,6 +1395,9 @@ end.
{ =============================================================================
$Log$
Revision 1.80 2003/03/17 08:51:09 mattias
added IsWindowVisible
Revision 1.79 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl