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

Fixed bug #8641 - caused an exception in the ide when setting a

Browse Source 
TTrackBar.Position

git-svn-id: trunk@10912 -
This commit is contained in:
andrew 2007-04-07 16:24:21 +00:00
parent 2f11b690b4
commit 08ed2665f1
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -200,6 +200,7 @@ type
private
protected
public
class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); override;
end;
{ TGtk2WSCustomTreeView }
@ -242,6 +243,17 @@ end;
{$I gtk2wscustomlistview.inc}
{ TGtk2WSTrackBar }
class procedure TGtk2WSTrackBar.SetPosition(const ATrackBar: TCustomTrackBar;
const NewPosition: integer);
var
Range: PGtkRange;
begin
Range := PGtkRange(ATrackBar.Handle);
gtk_range_set_value(Range, Trunc(NewPosition));
end;
initialization
////////////////////////////////////////////////////
@ -262,7 +274,7 @@ initialization
// RegisterWSComponent(TCustomToolBar, TGtk2WSToolBar);
// RegisterWSComponent(TCustomToolButton, TGtk2WSToolButton);
// RegisterWSComponent(TCustomToolBar, TGtk2WSToolBar);
// RegisterWSComponent(TCustomTrackBar, TGtk2WSTrackBar);
RegisterWSComponent(TCustomTrackBar, TGtk2WSTrackBar);
// RegisterWSComponent(TCustomTreeView, TGtk2WSCustomTreeView);
// RegisterWSComponent(TCustomTreeView, TGtk2WSTreeView);
////////////////////////////////////////////////////