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

fixed gtk2 listbox setborder to TODO

Browse Source 
git-svn-id: trunk@7713 -
This commit is contained in:
mattias 2005-09-16 08:58:06 +00:00
parent ca797822c7
commit 5c8dad6974
2 changed files with 8 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/interfaces/gtk/gtkwsstdctrls.pp
View File

@ -487,26 +487,12 @@ var
Widget: PGtkWidget;// pointer to gtk-widget Widget: PGtkWidget;// pointer to gtk-widget
begin begin
Handle := ACustomListBox.Handle; Handle := ACustomListBox.Handle;
if (ACustomListBox.fCompStyle in [csListBox, csCheckListBox]) then Widget:= PGtkWidget(PGtkBin(Handle)^.child);
begin if ACustomListBox.BorderStyle = TBorderStyle(bsSingle)
{ In TempWidget, a viewport is stored } then
Widget:= PGtkWidget(PGtkBin(Handle)^.child); gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_IN)
if ACustomListBox.BorderStyle = TBorderStyle(bsSingle) else
then gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_NONE);
gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_IN)
else
gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_NONE);
end else
if ACustomListBox.fCompStyle = csCListBox then
begin
if ACustomListBox.BorderStyle = TBorderStyle(bsSingle)
then
gtk_viewport_set_shadow_type(
PGtkViewPort(PGtkBin(Handle)^.Child), GTK_SHADOW_NONE)
else
gtk_viewport_set_shadow_type(
PGtkViewPort(PGtkBin(Handle)^.Child), GTK_SHADOW_IN);
end;
end; end;
procedure TGtkWSCustomListBox.SetItemIndex(const ACustomListBox: TCustomListBox; procedure TGtkWSCustomListBox.SetItemIndex(const ACustomListBox: TCustomListBox;

3
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -319,7 +319,8 @@ end;
procedure TGtk2WSCustomListBox.SetBorder(const ACustomListBox: TCustomListBox); procedure TGtk2WSCustomListBox.SetBorder(const ACustomListBox: TCustomListBox);
begin begin
inherited SetBorder(ACustomListBox); // TODO
debugln('TGtk2WSCustomListBox.SetBorder TODO');
end; end;
procedure TGtk2WSCustomListBox.SetItemIndex( procedure TGtk2WSCustomListBox.SetItemIndex(