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

Improvements to TPopUpMenu, and TMenuItem on qt interface

Browse Source 
git-svn-id: trunk@10530 -
This commit is contained in:
sekelsenmat 2007-01-29 17:55:51 +00:00
parent c3f3bb0aa0
commit 0cb3dd8bb1
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/qt/qtobjects.pas
View File

@ -56,6 +56,7 @@ type
procedure SlotTriggered(checked: Boolean = False); cdecl;
public
procedure setChecked(p1: Boolean);
procedure setCheckable(p1: Boolean);
procedure setEnabled(p1: Boolean);
procedure setVisible(p1: Boolean);
end;
@ -271,11 +272,32 @@ begin
if Assigned(MenuItem) and Assigned(MenuItem.OnClick) then MenuItem.OnClick(Self);
end;
{------------------------------------------------------------------------------
Method: TQtAction.setChecked
Checks or unchecks a menu entry
To mimic the behavior LCL should have we added code to handle
setCheckable automatically
------------------------------------------------------------------------------}
procedure TQtAction.setChecked(p1: Boolean);
begin
if p1 then setCheckable(True)
else setCheckable(False);
QAction_setChecked(Handle, p1);
end;
{------------------------------------------------------------------------------
Method: TQtAction.setCheckable
Set's if a menu can be checked. Is false by default
------------------------------------------------------------------------------}
procedure TQtAction.setCheckable(p1: Boolean);
begin
QAction_setCheckable(Handle, p1);
end;
procedure TQtAction.setEnabled(p1: Boolean);
begin
QAction_setEnabled(Handle, p1);

4
lcl/interfaces/qt/qtwsmenus.pp
View File

@ -194,6 +194,10 @@ begin
Action.MenuItem := AMenuItem;
Action.setEnabled(AMenuItem.Enabled);
Action.setChecked(AMenuItem.Checked);
Result := HMENU(Action);
end;
end;