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

fixed warnings

Browse Source 
git-svn-id: trunk@5686 -
This commit is contained in:
mattias 2004-07-16 10:20:17 +00:00
parent b73d8747d1
commit f63c43a12e
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/gtk/gtkwscomctrls.pp
View File

@ -355,6 +355,7 @@ begin
CListWidget := PGtkCList(WidgetInfo^.CoreWidget);
//TODO
if CListWidget=nil then exit;
end;
procedure TGtkWSCustomListView.ColumnSetMaxWidth(const ALV: TCustomListView; const AIndex: Integer; const AColumn: TListColumn; const AMaxWidth: Integer);

2
lcl/pairsplitter.pas
View File

@ -239,7 +239,7 @@ procedure TCustomPairSplitter.SetSplitterType(const AValue: TPairSplitterType);
begin
if FSplitterType=AValue then exit;
FSplitterType:=AValue;
RecreateWnd;
if HandleAllocated then RecreateWnd;
end;
procedure TCustomPairSplitter.AddSide(ASide: TPairSplitterSide);