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

further cleanup

Browse Source 
git-svn-id: trunk@1982 -
This commit is contained in:
mattias 2002-08-17 23:40:30 +00:00
parent 7f7fb2cb15
commit e5a72b3c89
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkobject.inc
View File

@ -2259,7 +2259,7 @@ begin
end
else if TControl(Sender).fCompStyle = csCListBox then
begin
if TListBox(Sender).BorderStyle = TBorderStyle(bsSingle)
if TCListBox(Sender).BorderStyle = TBorderStyle(bsSingle)
then
gtk_viewport_set_shadow_type(
PGtkViewPort(PGtkBin(Handle)^.Child), GTK_SHADOW_NONE)
@ -6824,6 +6824,9 @@ end;
{ =============================================================================
$Log$
Revision 1.314 2002/12/28 21:44:51 mattias
further cleanup
Revision 1.313 2002/12/28 12:42:38 mattias
focus fixes, reduced lpi size