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

MG: fixed persistent caret and implemented Form.BorderStyle=bsNone

Browse Source 
git-svn-id: trunk@784 -
This commit is contained in:
lazarus 2002-02-09 01:46:35 +00:00
parent aacb5b985f
commit e1f0a43403
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/gtkproc.inc
View File

@ -659,7 +659,8 @@ begin
end;
end;
function GetWidgetInfo(const Widget: Pointer; const Create: Boolean): PWinWidgetInfo;
function GetWidgetInfo(const Widget: Pointer;
const Create: Boolean): PWinWidgetInfo;
begin
if Widget = nil
then begin
@ -667,8 +668,8 @@ begin
end
else begin
Result := gtk_object_get_data(Widget, 'widgetinfo');
if (Result = nil) and Create
then Result := CreateWidgetInfo(Widget);
if (Result = nil) and Create then
Result := CreateWidgetInfo(Widget);
end;
end;
@ -1331,6 +1332,9 @@ end;
{ =============================================================================
$Log$
Revision 1.44 2002/06/09 14:00:42 lazarus
MG: fixed persistent caret and implemented Form.BorderStyle=bsNone
Revision 1.43 2002/06/04 15:17:23 lazarus
MG: improved TFont for XLFD font names