paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 07:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't highlight toolbar when modal form is active (partly fixes bug #0017993)

Browse Source 
git-svn-id: trunk@28398 -
This commit is contained in:
paul 2010-11-22 08:02:10 +00:00
parent 81ca694b8c
commit 6c01fc2949
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/buttons.inc
View File

@ -28,7 +28,7 @@ begin
Inherited Create(TheOwner);
// set the component style to csButton
fCompStyle := csButton;
ControlStyle := ControlStyle-[csClickEvents]+[csHasDefaultAction,csHasCancelAction];
ControlStyle := ControlStyle - [csClickEvents] + [csHasDefaultAction, csHasCancelAction];
Color := {$ifdef UseCLDefault}clDefault{$else}clBtnFace{$endif};
ParentColor := False;
TabStop := True;

2
lcl/include/control.inc
View File

@ -917,7 +917,7 @@ var
begin
if Assigned(Application) then
begin
NewMouseControl := CaptureControl;
NewMouseControl := GetCaptureControl;
if NewMouseControl = nil then
NewMouseControl := Application.GetControlAtMouse;
Application.DoBeforeMouseMessage(NewMouseControl);