Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Switch to GitLab Next
Sign in / Register
Toggle navigation
Menu
Open sidebar
FPC
Lazarus
Lazarus
Commits
7efeb2a3
Commit
7efeb2a3
authored
Mar 04, 2015
by
Željan Rikalo
🏊🏼
Browse files
gtk2: fixed av with modal forms. issues
#26752
,
#27577
git-svn-id: trunk@48136 -
parent
002d3acb
Changes
1
Hide whitespace changes
Inline
Side-by-side
lcl/interfaces/gtk2/gtk2callback.inc
View file @
7efeb2a3
...
...
@@ -1103,6 +1103,7 @@ var
Mess
:
TLMessage
;
Info
:
PWidgetInfo
;
AStart
,
AEnd
:
gint
;
AForm
:
TCustomForm
;
{
$IFDEF
VerboseFocus
}
LCLObject
:
TObject
;
CurFocusWidget
:
PGtkWidget
;
...
...
@@ -1138,8 +1139,23 @@ begin
// do not show selection when widget is unfocused
// issues #18164,#21897,#23182
if
GtkWidgetIsA
(
Widget
,
gtk_type_entry
)
then
if
GtkWidgetIsA
(
Widget
,
gtk_type_entry
)
and
Assigned
(
Data
)
then
begin
if
(
csDestroying
in
TComponent
(
Data
)
.
ComponentState
)
or
(
csDestroyingHandle
in
TControl
(
Data
)
.
ControlState
)
then
begin
// DebugLn('NOTICE: Control is destroying itself, do not add new idle timer for ',dbgsName(TControl(Data)));
exit
;
end
;
AForm
:=
GetParentForm
(
TControl
(
Data
));
if
Assigned
(
AForm
)
and
((
csDestroying
in
AForm
.
ComponentState
)
or
(
csDestroyingHandle
in
AForm
.
ControlState
)
or
((
fsModal
in
AForm
.
FormState
)
and
(
AForm
.
ModalResult
<>
mrNone
))
)
then
begin
// DebugLn('NOTICE: Parent form is destroying, do not add new idle timer for ',dbgsName(TControl(Data)));
exit
;
end
;
g_idle_add
(
@
GtkEntryDelayClearCursorPos
,
Widget
);
//save now CursorPos and SelStart in WidgetInfo
if
(
Widget
<>
nil
)
then
...
...
FPC Admin account
@fpc_admin
mentioned in issue
#26752 (closed)
·
Jul 28, 2021
mentioned in issue
#26752 (closed)
mentioned in issue #26752
Toggle commit list
FPC Admin account
@fpc_admin
mentioned in issue
#27577 (closed)
·
Jul 28, 2021
mentioned in issue
#27577 (closed)
mentioned in issue #27577
Toggle commit list
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment