paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 10:24:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): Fixed typos in qtwsmenus

Browse Source 
git-svn-id: trunk@12154 -
This commit is contained in:
zeljko 2007-09-24 06:35:43 +00:00
parent 763779959f
commit 0bc9d93106
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -222,7 +222,7 @@ begin
WriteLn('[TQtWSMenuItem.SetCaption] Caption: ' + AMenuItem.Caption + ' NewCaption: ', ACaption);
{$endif}
if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
if not WSCheckMenuItem(AMenuItem, 'SetCaption') then
Exit;
Widget := TQtWidget(AMenuItem.Handle);
@ -243,7 +243,7 @@ begin
WriteLn('[TQtWSMenuItem.SetCaption] SetShortCut: ' + AMenuItem.Caption);
{$endif}
if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then
Exit;
Widget := TQtWidget(AMenuItem.Handle);
@ -261,7 +261,7 @@ begin
{$ifdef VerboseQt}
WriteLn('[TQtWSMenuItem.SetVisible] SetShortCut: ' + AMenuItem.Caption + ' Visible: ', Visible);
{$endif}
if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
if not WSCheckMenuItem(AMenuItem, 'SetVisible') then
Exit;
TQtMenu(AMenuItem.Handle).setVisible(Visible);
@ -276,7 +276,7 @@ class function TQtWSMenuItem.SetCheck(const AMenuItem: TMenuItem; const Checked:
begin
Result := False;
if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
if not WSCheckMenuItem(AMenuItem, 'SetCheck') then
Exit;
TQtMenu(AMenuItem.Handle).setChecked(Checked);
@ -318,7 +318,7 @@ end;
------------------------------------------------------------------------------}
class function TQtWSMenuItem.SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean;
begin
if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
if not WSCheckMenuItem(AMenuItem, 'SetRightJustify') then
Exit;
Result := True;