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

MG: impoved focussing, unfocussing on destroy and fixed unit search

Browse Source 
git-svn-id: trunk@1310 -
This commit is contained in:
lazarus 2002-02-09 01:48:15 +00:00
parent e06bf6ecb6
commit d29e780698
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1086,7 +1086,7 @@ end;
Returns the GTKObject of the given object, nil if no object available Returns the GTKObject of the given object, nil if no object available
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function ObjectToGTKObject(const AObject: TObject): gtk_object; function ObjectToGTKObject(const AObject: TObject): PGtkObject;
var var
handle : HWND; handle : HWND;
begin begin
@ -1275,11 +1275,11 @@ begin
end; end;
end; end;
function GetWidgetInfo(const Widget: Pointer; const Create: Boolean): PWinWidgetInfo; function GetWidgetInfo(const Widget: Pointer;
const Create: Boolean): PWinWidgetInfo;
var MainWidget: PGtkObject; var MainWidget: PGtkObject;
begin begin
if Widget = nil then Result:= nil if Widget <> nil then begin
else begin
MainWidget:= GetMainWidget(Widget); MainWidget:= GetMainWidget(Widget);
if MainWidget = nil then MainWidget:= Widget; if MainWidget = nil then MainWidget:= Widget;
Result:= gtk_object_get_data(MainWidget, 'widgetinfo'); Result:= gtk_object_get_data(MainWidget, 'widgetinfo');
@ -1287,7 +1287,8 @@ begin
Result := CreateWidgetInfo(MainWidget); Result := CreateWidgetInfo(MainWidget);
Result^.ImplementationWidget:= PGtkWidget(MainWidget); Result^.ImplementationWidget:= PGtkWidget(MainWidget);
end; end;
end; end else
Result:=nil;
end; end;
procedure FreeWinWidgetInfo(Widget: Pointer); procedure FreeWinWidgetInfo(Widget: Pointer);
@ -3803,9 +3804,10 @@ begin
while (not (Str[i] in [#0,'&'])) do inc(i); while (not (Str[i] in [#0,'&'])) do inc(i);
if Str[i]='&' then begin if Str[i]='&' then begin
NewStr := RemoveAmpersands(Str, LineLength); NewStr := RemoveAmpersands(Str, LineLength);
LineLength:=StrLen(NewStr);
end; end;
end; end;
gdk_text_extents(Font, NewStr, StrLen(NewStr), gdk_text_extents(Font, NewStr, LineLength,
lbearing, rBearing, width, ascent, descent); lbearing, rBearing, width, ascent, descent);
if NewStr<>Str then if NewStr<>Str then
StrDispose(NewStr); StrDispose(NewStr);
@ -3990,6 +3992,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.144 2002/10/28 18:17:04 lazarus
MG: impoved focussing, unfocussing on destroy and fixed unit search
Revision 1.143 2002/10/27 22:37:12 lazarus Revision 1.143 2002/10/27 22:37:12 lazarus
MG: added verbosity to delivermessage MG: added verbosity to delivermessage