paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 14:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: creation of QMainWindow class could fail in case when splash screen is shown before Application.MainForm is created, so we never have MainForm=True (eg. lazarus on win32 - triggers sometimes).Returned checking of QKeySequence_isEmpty() for global actions.

Browse Source 
git-svn-id: trunk@29545 -
This commit is contained in:
zeljko 2011-02-14 13:23:54 +00:00
parent 0080ce812a
commit 8308cf24d5
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/interfaces/qt/qtwidgets.pas
View File

@ -4698,7 +4698,6 @@ end;
function TQtMainWindow.CreateWidget(const AParams: TCreateParams): QWidgetH;
var
w: QWidgetH;
p: QPaletteH;
begin
// Creates the widget
@ -4713,14 +4712,11 @@ begin
FPopupMode := pmNone;
FPopupParent := nil;
IsMainForm := False;
IsMainForm := (LCLObject <> nil) and (LCLObject = Application.MainForm);
w := QApplication_activeWindow;
if not Assigned(w) and not ((Application.MainForm <> nil) and (Application.MainForm.Visible))
and (TCustomForm(LCLObject).FormStyle <> fsSplash) then
if IsMainForm then
begin
IsMainForm := True;
Result := QMainWindow_create(nil, QtWindow);
{$ifdef darwin}
@ -11163,17 +11159,20 @@ begin
Action := QActionH(Actions[i]);
seq := QKeySequence_create();
try
QAction_shortcut(Action, seq);
WStr := '';
QAction_text(Action, @WStr);
QKeySequence_destroy(seq);
seq := nil;
seq := QKeySequence_create();
QKeySequence_mnemonic(seq, @WStr);
if not QKeySequence_isEmpty(seq) then
if QKeySequence_isEmpty(seq) then
begin
QAction_setShortcutContext(Action, QtApplicationShortcut);
QtWidgetSet.AddGlobalAction(Action);
QAction_shortcut(Action, seq);
WStr := '';
QAction_text(Action, @WStr);
QKeySequence_destroy(seq);
seq := nil;
seq := QKeySequence_create();
QKeySequence_mnemonic(seq, @WStr);
if not QKeySequence_isEmpty(seq) then
begin
QAction_setShortcutContext(Action, QtApplicationShortcut);
QtWidgetSet.AddGlobalAction(Action);
end;
end;
finally
QKeySequence_destroy(seq);