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

* Forgot to add units

Browse Source 
git-svn-id: trunk@59148 -
This commit is contained in:
michael 2018-09-23 13:31:09 +00:00
parent 04c36eeea0
commit fc89b79dc9
3 changed files with 225 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -2098,6 +2098,8 @@ components/idespotter/frmspotter.lfm svneol=native#text/plain
components/idespotter/frmspotter.pas svneol=native#text/plain components/idespotter/frmspotter.pas svneol=native#text/plain
components/idespotter/idespotter.lpk svneol=native#text/plain components/idespotter/idespotter.lpk svneol=native#text/plain
components/idespotter/idespotter.pas svneol=native#text/plain components/idespotter/idespotter.pas svneol=native#text/plain
components/idespotter/idespotteroptions.lfm svneol=native#text/plain
components/idespotter/idespotteroptions.pas svneol=native#text/plain
components/idespotter/regidespotter.pas svneol=native#text/plain components/idespotter/regidespotter.pas svneol=native#text/plain
components/images/examples/README.txt svneol=native#text/plain components/images/examples/README.txt svneol=native#text/plain
components/images/examples/imagesexample.lpi svneol=native#text/plain components/images/examples/imagesexample.lpi svneol=native#text/plain

112
components/idespotter/idespotteroptions.lfm Normal file
View File

@ -0,0 +1,112 @@
object IDESpotterOptionsFrame: TIDESpotterOptionsFrame
Left = 0
Height = 504
Top = 0
Width = 427
BorderSpacing.Left = 6
ClientHeight = 504
ClientWidth = 427
TabOrder = 0
DesignLeft = 580
DesignTop = 164
object CGSearch: TCheckGroup
Left = 0
Height = 56
Top = 0
Width = 427
Align = alTop
AutoFill = True
Caption = 'Search in'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 38
ClientWidth = 425
Items.Strings = (
'Commands'
)
TabOrder = 0
Data = {
0100000002
}
end
object Options: TGroupBox
Left = 0
Height = 105
Top = 56
Width = 427
Align = alTop
Caption = 'Options'
ClientHeight = 87
ClientWidth = 425
TabOrder = 1
object CBShowShortCut: TCheckBox
Left = 8
Height = 22
Top = 39
Width = 190
Caption = 'Show Sh&ortcut when available'
TabOrder = 0
end
object CBShowCategory: TCheckBox
Left = 8
Height = 22
Top = 8
Width = 194
Caption = 'Show &Category when available'
TabOrder = 1
end
end
object Colors: TGroupBox
Left = 0
Height = 271
Top = 161
Width = 427
Align = alTop
Caption = 'Colors'
ClientHeight = 253
ClientWidth = 425
TabOrder = 2
object CBMatchColor: TColorBox
Left = 96
Height = 31
Top = 16
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbCustomColors]
ItemHeight = 0
TabOrder = 0
end
object CBShortCutColor: TColorBox
Left = 96
Height = 31
Top = 48
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbCustomColors]
ItemHeight = 0
TabOrder = 1
end
object LCBMatchColor: TLabel
Left = 8
Height = 17
Top = 16
Width = 48
Caption = '&Matches'
FocusControl = CBMatchColor
ParentColor = False
end
object LCBShortCut: TLabel
Left = 8
Height = 17
Top = 48
Width = 69
Caption = '&Shortcut key'
FocusControl = CBShortCutColor
ParentColor = False
end
end
end

111
components/idespotter/idespotteroptions.pas Normal file
View File

@ -0,0 +1,111 @@
{ IDE options frame for IDE Spotter options
Copyright (C) 2018 Michael van Canneyt michael@freepascal.org
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
This program 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 Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.
}
unit IDESPotterOptions;
{$mode objfpc}{$H+}
{$Inline on}
interface
uses
Classes, SysUtils,
// LCL
Forms, StdCtrls, Dialogs, Spin, ExtCtrls, ColorBox,
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEUtils, frmSpotter;
Type
{ TIDESpotterOptionsFrame }
TIDESpotterOptionsFrame = class(TAbstractIDEOptionsEditor)
CGSearch: TCheckGroup;
CBShowShortCut: TCheckBox;
CBMatchColor: TColorBox;
CBShortCutColor: TColorBox;
CBShowCategory: TCheckBox;
Colors: TGroupBox;
LCBShortCut: TLabel;
LCBMatchColor: TLabel;
Options: TGroupBox;
private
public
function GetTitle: String; override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
procedure WriteSettings({%H-}AOptions: TAbstractIDEOptions); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
end;
implementation
{$R *.lfm}
{ TIDESpotterOptionsFrame }
function TIDESpotterOptionsFrame.GetTitle: String;
begin
Result:='IDE Spotter';
end;
procedure TIDESpotterOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
// Do nothing, maybe localize ?
end;
procedure TIDESpotterOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
CGSearch.Checked[0]:=true;
CBShowCategory.Checked := ShowCmdCategory;
CBShowShortCut.Checked := ShowShortCutKey;
CBMatchColor.Selected := MatchColor;
CBShortCutColor.Selected := KeyStrokeColor;
end;
procedure TIDESpotterOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
ShowCmdCategory:=CBShowCategory.Checked;
ShowShortCutKey:=CBShowShortCut.Checked;
MatchColor:=CBMatchColor.Selected;
KeyStrokeColor:=CBShortCutColor.Selected;
SaveSpotterOptions;
ApplySpotterOptions;
end;
class function TIDESpotterOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result:=IDEEditorGroups.GetByIndex(GroupEnvironment)^.GroupClass;
end;
end.