paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:22:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fix setvisible/getvisible for menu items

Browse Source 
git-svn-id: trunk@11923 -
This commit is contained in:
paul 2007-09-03 03:05:35 +00:00
parent de35bfb0d6
commit ed062327ae
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/qt/qtwidgets.pas
View File

@ -114,7 +114,7 @@ type
function getEnabled: Boolean;
function getFrameGeometry: TRect;
function getGeometry: TRect; virtual;
function getVisible: Boolean;
function getVisible: Boolean; virtual;
function getClientBounds: TRect; virtual;
procedure grabMouse;
function hasFocus: Boolean;
@ -694,6 +694,7 @@ type
function actionHandle: QActionH;
function addMenu(title: PWideString): TQtMenu;
function addSeparator: TQtMenu;
function getVisible: Boolean; override;
procedure setChecked(p1: Boolean);
procedure setCheckable(p1: Boolean);
procedure setHasSubmenu(AValue: Boolean);
@ -702,6 +703,7 @@ type
procedure setSeparator(AValue: Boolean);
procedure setShortcut(AShortcut: TShortcut);
procedure setText(AText: PWideString);
procedure setVisible(visible: Boolean); override;
end;
{ TQtMenuBar }
@ -5399,11 +5401,21 @@ begin
Result.setSeparator(True);
end;
function TQtMenu.getVisible: Boolean;
begin
Result := QAction_isVisible(ActionHandle);
end;
procedure TQtMenu.setText(AText: PWideString);
begin
QAction_setText(ActionHandle, AText);
end;
procedure TQtMenu.setVisible(visible: Boolean);
begin
QAction_setVisible(ActionHandle, visible);
end;
procedure TQtMenu.setChecked(p1: Boolean);
begin
if p1 then setCheckable(True)