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

IDE: started options frame for messages

Browse Source 
git-svn-id: trunk@45191 -
This commit is contained in:
mattias 2014-05-26 23:36:34 +00:00
parent 73c1593c0b
commit 42af6c5f2f
6 changed files with 173 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -5349,6 +5349,8 @@ ide/frames/fpdoc_options.pas svneol=native#text/pascal
ide/frames/help_general_options.lfm svneol=native#text/plain ide/frames/help_general_options.lfm svneol=native#text/plain
ide/frames/help_general_options.pas svneol=native#text/plain ide/frames/help_general_options.pas svneol=native#text/plain
ide/frames/modematrixctrl.pas svneol=native#text/plain ide/frames/modematrixctrl.pas svneol=native#text/plain
ide/frames/msgwnd_options.lfm svneol=native#text/plain
ide/frames/msgwnd_options.pas svneol=native#text/plain
ide/frames/naming_options.lfm svneol=native#text/plain ide/frames/naming_options.lfm svneol=native#text/plain
ide/frames/naming_options.pas svneol=native#text/pascal ide/frames/naming_options.pas svneol=native#text/pascal
ide/frames/oi_options.lfm svneol=native#text/plain ide/frames/oi_options.lfm svneol=native#text/plain

2
ide/etmessageframe.pas
View File

@ -2603,6 +2603,8 @@ function TMessagesCtrl.GetHeaderText(View: TLMsgWndView): string;
begin begin
Result:=View.Caption; Result:=View.Caption;
if Result='' then
Result:='Messages';
if View.SummaryMsg<>'' then if View.SummaryMsg<>'' then
Result+=': '+View.SummaryMsg; Result+=': '+View.SummaryMsg;
if mcoShowStats in Options then begin if mcoShowStats in Options then begin

54
ide/frames/msgwnd_options.lfm Normal file
View File

@ -0,0 +1,54 @@
object MsgWndOptionsFrame: TMsgWndOptionsFrame
Left = 0
Height = 331
Top = 0
Width = 470
ClientHeight = 331
ClientWidth = 470
TabOrder = 0
DesignLeft = 386
DesignTop = 221
object MWColorsGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 152
Top = 0
Width = 225
Caption = 'MWColorsGroupBox'
ClientHeight = 130
ClientWidth = 217
TabOrder = 0
object MWColorListBox: TColorListBox
AnchorSideLeft.Control = MWColorsGroupBox
AnchorSideTop.Control = MWColorsGroupBox
AnchorSideRight.Control = MWColorsGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MWColorBox
Left = 6
Height = 92
Top = 6
Width = 205
Style = [cbCustomColors]
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 0
end
object MWColorBox: TColorBox
AnchorSideLeft.Control = MWColorsGroupBox
AnchorSideRight.Control = MWColorsGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MWColorsGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 104
Width = 205
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 1
end
end
end

51
ide/frames/msgwnd_options.pas Normal file
View File

@ -0,0 +1,51 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit MsgWnd_Options;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, IDEOptionsIntf, Forms, Controls, Graphics,
Dialogs, StdCtrls, ColorBox;
type
{ TMsgWndOptionsFrame }
TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor)
MWColorBox: TColorBox;
MWColorListBox: TColorListBox;
MWColorsGroupBox: TGroupBox;
private
public
end;
var
MsgWndOptionsFrame: TMsgWndOptionsFrame;
implementation
{$R *.lfm}
end.

110
ide/frames/oi_options.lfm
View File

@ -7,24 +7,24 @@ object OIOptionsFrame: TOIOptionsFrame
ClientWidth = 634 ClientWidth = 634
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 403 DesignLeft = 479
DesignTop = 218 DesignTop = 200
object ObjectInspectorColorsGroupBox: TGroupBox object ObjectInspectorColorsGroupBox: TGroupBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 228 Height = 230
Top = 0 Top = 0
Width = 226 Width = 230
AutoSize = True AutoSize = True
Caption = 'ObjectInspectorColorsGroupBox' Caption = 'ObjectInspectorColorsGroupBox'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 2 ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2 ChildSizing.VerticalSpacing = 2
ClientHeight = 210 ClientHeight = 208
ClientWidth = 222 ClientWidth = 222
TabOrder = 0 TabOrder = 0
object ColorsListBox: TColorListBox object ColorsListBox: TColorListBox
@ -48,7 +48,7 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideRight.Control = ColorsListBox AnchorSideRight.Control = ColorsListBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 20
Top = 182 Top = 182
Width = 210 Width = 210
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
@ -65,23 +65,23 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 116 Height = 124
Top = 235 Top = 237
Width = 634 Width = 634
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'OIOptionsGroupBox' Caption = 'OIOptionsGroupBox'
ClientHeight = 98 ClientHeight = 102
ClientWidth = 630 ClientWidth = 626
TabOrder = 1 TabOrder = 1
object OIShowHintCheckBox: TCheckBox object OIShowHintCheckBox: TCheckBox
AnchorSideLeft.Control = OIOptsCenterLabel AnchorSideLeft.Control = OIOptsCenterLabel
AnchorSideTop.Control = OIOptionsGroupBox AnchorSideTop.Control = OIOptionsGroupBox
Left = 315 Left = 313
Height = 17 Height = 18
Top = 6 Top = 6
Width = 122 Width = 155
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OIShowHintCheckBox' Caption = 'OIShowHintCheckBox'
TabOrder = 0 TabOrder = 0
@ -90,9 +90,9 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideLeft.Control = OIOptionsGroupBox AnchorSideLeft.Control = OIOptionsGroupBox
AnchorSideTop.Control = OIOptionsGroupBox AnchorSideTop.Control = OIOptionsGroupBox
Left = 6 Left = 6
Height = 17 Height = 18
Top = 6 Top = 6
Width = 126 Width = 159
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OIAutoShowCheckBox' Caption = 'OIAutoShowCheckBox'
@ -102,10 +102,10 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideLeft.Control = OIOptsCenterLabel AnchorSideLeft.Control = OIOptsCenterLabel
AnchorSideTop.Control = OIShowHintCheckBox AnchorSideTop.Control = OIShowHintCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 315 Left = 313
Height = 17 Height = 18
Top = 29 Top = 30
Width = 151 Width = 194
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OIBoldNonDefaultCheckBox' Caption = 'OIBoldNonDefaultCheckBox'
TabOrder = 2 TabOrder = 2
@ -114,10 +114,10 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideLeft.Control = OIOptsCenterLabel AnchorSideLeft.Control = OIOptsCenterLabel
AnchorSideTop.Control = OIShowGutterCheckBox AnchorSideTop.Control = OIShowGutterCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 315 Left = 313
Height = 17 Height = 18
Top = 75 Top = 78
Width = 145 Width = 187
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'OIDrawGridLinesCheckBox' Caption = 'OIDrawGridLinesCheckBox'
@ -127,10 +127,10 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideLeft.Control = OIOptsCenterLabel AnchorSideLeft.Control = OIOptsCenterLabel
AnchorSideTop.Control = OIBoldNonDefaultCheckBox AnchorSideTop.Control = OIBoldNonDefaultCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 315 Left = 313
Height = 17 Height = 18
Top = 52 Top = 54
Width = 134 Width = 169
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OIShowGutterCheckBox' Caption = 'OIShowGutterCheckBox'
TabOrder = 4 TabOrder = 4
@ -140,9 +140,9 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideTop.Control = OIShowInfoBoxCheckBox AnchorSideTop.Control = OIShowInfoBoxCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 17 Height = 18
Top = 75 Top = 78
Width = 150 Width = 187
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
@ -154,9 +154,9 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideTop.Control = OIShowComponentTreeCheckBox AnchorSideTop.Control = OIShowComponentTreeCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 17 Height = 18
Top = 52 Top = 54
Width = 141 Width = 176
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OIShowInfoBoxCheckBox' Caption = 'OIShowInfoBoxCheckBox'
@ -167,9 +167,9 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideTop.Control = OIAutoShowCheckBox AnchorSideTop.Control = OIAutoShowCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 17 Height = 18
Top = 29 Top = 30
Width = 180 Width = 230
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OIShowComponentTreeCheckBox' Caption = 'OIShowComponentTreeCheckBox'
@ -179,7 +179,7 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideLeft.Control = OIOptionsGroupBox AnchorSideLeft.Control = OIOptionsGroupBox
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = OIOptionsGroupBox AnchorSideTop.Control = OIOptionsGroupBox
Left = 315 Left = 313
Height = 1 Height = 1
Top = 0 Top = 0
Width = 1 Width = 1
@ -193,16 +193,16 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = OIMiscGroupBox AnchorSideBottom.Control = OIMiscGroupBox
Left = 233 Left = 237
Height = 170 Height = 173
Top = 0 Top = 0
Width = 401 Width = 397
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 7 BorderSpacing.Left = 7
BorderSpacing.Bottom = 7 BorderSpacing.Bottom = 7
Caption = 'ObjectInspectorSpeedSettingsGroupBox' Caption = 'ObjectInspectorSpeedSettingsGroupBox'
ClientHeight = 152 ClientHeight = 151
ClientWidth = 397 ClientWidth = 389
TabOrder = 2 TabOrder = 2
object BtnUseDefaultLazarusSettings: TButton object BtnUseDefaultLazarusSettings: TButton
AnchorSideLeft.Control = ObjectInspectorSpeedSettingsGroupBox AnchorSideLeft.Control = ObjectInspectorSpeedSettingsGroupBox
@ -210,7 +210,7 @@ object OIOptionsFrame: TOIOptionsFrame
Left = 6 Left = 6
Height = 25 Height = 25
Top = 6 Top = 6
Width = 171 Width = 215
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'BtnUseDefaultLazarusSettings' Caption = 'BtnUseDefaultLazarusSettings'
@ -228,7 +228,7 @@ object OIOptionsFrame: TOIOptionsFrame
Left = 6 Left = 6
Height = 25 Height = 25
Top = 37 Top = 37
Width = 171 Width = 215
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -247,25 +247,25 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ObjectInspectorColorsGroupBox AnchorSideBottom.Control = ObjectInspectorColorsGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 233 Left = 237
Height = 51 Height = 50
Top = 177 Top = 180
Width = 401 Width = 397
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'OIMiscGroupBox' Caption = 'OIMiscGroupBox'
ClientHeight = 33 ClientHeight = 28
ClientWidth = 397 ClientWidth = 389
TabOrder = 3 TabOrder = 3
object OIDefaultItemHeightLabel: TLabel object OIDefaultItemHeightLabel: TLabel
AnchorSideLeft.Control = OIMiscGroupBox AnchorSideLeft.Control = OIMiscGroupBox
AnchorSideTop.Control = OIDefaultItemHeightSpinEdit AnchorSideTop.Control = OIDefaultItemHeightSpinEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 13 Height = 16
Top = 10 Top = 6
Width = 125 Width = 162
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'OIDefaultItemHeightLabel' Caption = 'OIDefaultItemHeightLabel'
ParentColor = False ParentColor = False
@ -274,8 +274,8 @@ object OIOptionsFrame: TOIOptionsFrame
AnchorSideLeft.Control = OIDefaultItemHeightLabel AnchorSideLeft.Control = OIDefaultItemHeightLabel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OIMiscGroupBox AnchorSideTop.Control = OIMiscGroupBox
Left = 137 Left = 174
Height = 21 Height = 16
Top = 6 Top = 6
Width = 53 Width = 53
BorderSpacing.Around = 6 BorderSpacing.Around = 6

10
ide/lazarus.lpi
View File

@ -63,7 +63,7 @@
<PackageName Value="SynEdit"/> <PackageName Value="SynEdit"/>
</Item6> </Item6>
</RequiredPackages> </RequiredPackages>
<Units Count="110"> <Units Count="111">
<Unit0> <Unit0>
<Filename Value="lazarus.pp"/> <Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -830,6 +830,14 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="DebugAttachDialog"/> <UnitName Value="DebugAttachDialog"/>
</Unit109> </Unit109>
<Unit110>
<Filename Value="frames/msgwnd_options.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MsgWndOptionsFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="MsgWnd_Options"/>
</Unit110>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>