paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 04:13:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Add help to Desktop Manager. Issue #28878.

Browse Source 
git-svn-id: trunk@50117 -
This commit is contained in:
juha 2015-10-18 22:56:59 +00:00
parent 1ce63eab2e
commit cedf1cec63
2 changed files with 29 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/desktopmanager.lfm
View File

@ -2,37 +2,38 @@ object DesktopForm: TDesktopForm
Left = 334
Height = 292
Top = 319
Width = 304
Width = 377
BorderIcons = [biSystemMenu]
Caption = 'DesktopForm'
ClientHeight = 292
ClientWidth = 304
ClientWidth = 377
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.5'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 35
Top = 251
Width = 292
Height = 37
Top = 249
Width = 365
OKButton.Name = 'OKButton'
OKButton.Caption = 'OK'
OKButton.DefaultCaption = False
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Close'
CancelButton.DefaultCaption = False
TabOrder = 3
ShowButtons = [pbClose]
ShowButtons = [pbClose, pbHelp]
object ExportBitBtn: TBitBtn
Left = 28
Height = 27
Left = 99
Height = 29
Top = 8
Width = 87
Width = 88
Align = alCustom
AutoSize = True
Caption = 'ExportBitBtn'
@ -41,10 +42,10 @@ object DesktopForm: TDesktopForm
TabOrder = 4
end
object ImportBitBtn: TBitBtn
Left = 121
Height = 27
Left = 193
Height = 29
Top = 8
Width = 90
Width = 91
Align = alCustom
AutoSize = True
Caption = 'ImportBitBtn'
@ -59,9 +60,9 @@ object DesktopForm: TDesktopForm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = AutoSaveActiveDesktopCheckBox
Left = 11
Height = 169
Height = 185
Top = 8
Width = 247
Width = 320
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6
ItemHeight = 18
@ -69,19 +70,17 @@ object DesktopForm: TDesktopForm
OnDrawItem = DesktopListBoxDrawItem
OnKeyPress = DesktopListBoxKeyPress
OnSelectionChange = DesktopListBoxSelectionChange
ScrollWidth = 245
Style = lbOwnerDrawFixed
TabOrder = 0
TopIndex = -1
end
object AutoSaveActiveDesktopCheckBox: TCheckBox
AnchorSideLeft.Control = LblGrayedInfo
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = LblGrayedInfo
Left = 11
Height = 21
Top = 183
Width = 170
Height = 22
Top = 199
Width = 178
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
@ -91,7 +90,7 @@ object DesktopForm: TDesktopForm
TabOrder = 2
end
object ToolBar1: TToolBar
Left = 267
Left = 340
Height = 241
Top = 8
Width = 30
@ -187,9 +186,9 @@ object DesktopForm: TDesktopForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 11
Height = 34
Top = 210
Width = 247
Height = 17
Top = 227
Width = 320
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 3
Caption = 'Grayed desktops are for undocked environment.'

8
ide/desktopmanager.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Types,
LCLType, LCLProc, Forms, Controls, Graphics, Dialogs, StdCtrls,
LCLIntf, LCLType, LCLProc, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ButtonPanel, Menus, ComCtrls, ActnList,
// LazUtils
Laz2_XMLCfg,
@ -61,6 +61,7 @@ type
procedure ExportBitBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure ImportActionClick(Sender: TObject);
procedure MoveUpDownActionClick(Sender: TObject);
procedure RenameActionClick(Sender: TObject);
@ -366,6 +367,11 @@ begin
DesktopListBox.ItemIndex := xIndex;
end;
procedure TDesktopForm.HelpButtonClick(Sender: TObject);
begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Desktops');
end;
procedure TDesktopForm.RefreshList(SelectName: string);
var
DskTop: TDesktopOpt;