pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

disables tab-focusability of messages window if docked

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@805 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-05-20 16:50:25 +00:00
parent be270b7ab7
commit 40dc9f3108
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/manualdock/mandocking.pas
View File

@ -83,6 +83,8 @@ begin
end; end;
procedure TManualDocker.ChangeDocking(DockingEnabled: Boolean); procedure TManualDocker.ChangeDocking(DockingEnabled: Boolean);
var
i : Integer;
begin begin
if DockingEnabled then begin if DockingEnabled then begin
if not Assigned(SourceEditorWindow) or not Assigned(IDEMessagesWindow) then Exit; if not Assigned(SourceEditorWindow) or not Assigned(IDEMessagesWindow) then Exit;
@ -98,6 +100,9 @@ begin
IDEMessagesWindow.Align := alClient; IDEMessagesWindow.Align := alClient;
IDEMessagesWindow.BorderStyle := bsNone; IDEMessagesWindow.BorderStyle := bsNone;
IDEMessagesWindow.TabStop := false; IDEMessagesWindow.TabStop := false;
for i := 0 to IDEMessagesWindow.ControlCount - 1 do
if IDEMessagesWindow.Controls[i] is TWinControl then
TWinControl(IDEMessagesWindow.Controls[i]).TabStop := false;
panel.Height := MsgWnd.DockSize.cy; panel.Height := MsgWnd.DockSize.cy;
end else begin end else begin
if Assigned(panel) then begin if Assigned(panel) then begin