paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 21:16:05 +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;
end; end;
function GetWidgetInfo(const Widget: Pointer; const Create: Boolean): PWinWidgetInfo; function GetWidgetInfo(const Widget: Pointer;
const Create: Boolean): PWinWidgetInfo;
begin begin
if Widget = nil if Widget = nil
then begin then begin
@ -667,8 +668,8 @@ begin
end end
else begin else begin
Result := gtk_object_get_data(Widget, 'widgetinfo'); Result := gtk_object_get_data(Widget, 'widgetinfo');
if (Result = nil) and Create if (Result = nil) and Create then
then Result := CreateWidgetInfo(Widget); Result := CreateWidgetInfo(Widget);
end; end;
end; end;
@ -1331,6 +1332,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.43 2002/06/04 15:17:23 lazarus
MG: improved TFont for XLFD font names MG: improved TFont for XLFD font names