forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

#99, rename class name + add hints

This commit is contained in:
Basile Burg 2016-11-10 20:38:43 +01:00
parent fce411e09d
commit fb56207c35
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
3 changed files with 45 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lazproj/coedit.lpi
View File

@ -525,7 +525,7 @@
<Unit54>
<Filename Value="..\src\ce_compilers.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ComponentName Value="CmopilersPathsEditor"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit54>

20
src/ce_compilers.lfm
View File

@ -1,9 +1,9 @@
object Form1: TForm1
object CompilersPathsEditor: TCompilersPathsEditor
Left = 749
Height = 869
Top = 128
Width = 460
Caption = 'Form1'
Caption = 'CompilersPathsEditor'
ClientHeight = 869
ClientWidth = 460
LCLVersion = '1.6.0.4'
@ -138,7 +138,7 @@ object Form1: TForm1
object selGDCrt: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)'
Hint = 'select the root of druntime sources'
Top = 60
Width = 448
ShowHidden = False
@ -154,7 +154,7 @@ object Form1: TForm1
object selGDCstd: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)'
Hint = 'select the root of phobos sources'
Top = 101
Width = 448
ShowHidden = False
@ -228,7 +228,7 @@ object Form1: TForm1
object selLDCrt: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of druntime sources'
Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)'
Top = 60
Width = 448
ShowHidden = False
@ -244,7 +244,7 @@ object Form1: TForm1
object selLDCstd: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of phobos sources'
Hint = 'select the root of phobos sources (can be empty)'
Top = 101
Width = 448
ShowHidden = False
@ -301,6 +301,7 @@ object Form1: TForm1
object selUSER1exe: TFileNameEdit
Left = 2
Height = 20
Hint = 'select the compiler'
Top = 19
Width = 448
FilterIndex = 0
@ -317,6 +318,7 @@ object Form1: TForm1
object selUSER1rt: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of druntime sources'
Top = 60
Width = 448
ShowHidden = False
@ -332,6 +334,7 @@ object Form1: TForm1
object selUSER1std: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of phobos sources'
Top = 101
Width = 448
ShowHidden = False
@ -388,6 +391,7 @@ object Form1: TForm1
object selUSER2exe: TFileNameEdit
Left = 2
Height = 20
Hint = 'select the compiler'
Top = 19
Width = 448
FilterIndex = 0
@ -404,6 +408,7 @@ object Form1: TForm1
object selUSER2rt: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of druntime sources'
Top = 60
Width = 448
ShowHidden = False
@ -419,6 +424,7 @@ object Form1: TForm1
object selUSER2std: TDirectoryEdit
Left = 2
Height = 20
Hint = 'select the root of phobos sources'
Top = 101
Width = 448
ShowHidden = False
@ -475,7 +481,7 @@ object Form1: TForm1
object selDefault: TComboBox
Left = 2
Height = 30
Hint = 'select which compiler paths are used by the completion daemon'
Hint = 'select which the compiler for which the library paths are used by the completion daemon'
Top = 2
Width = 448
Align = alClient

62
src/ce_compilers.pas
View File

@ -73,7 +73,7 @@ type
procedure assign(source: TPersistent); override;
end;
TForm1 = class(TForm, ICEEditableOptions, ICECompilerSelector, ICEProjectObserver)
TCompilersPathsEditor = class(TForm, ICEEditableOptions, ICECompilerSelector, ICEProjectObserver)
selDefault: TComboBox;
selDMDrt: TDirectoryEdit;
selUSER2std: TDirectoryEdit;
@ -156,13 +156,13 @@ uses
ce_libman;
var
Form1: TForm1;
CompilersPathsEditor: TCompilersPathsEditor;
const
optFname = 'compilerspaths.txt';
{$REGION Standard Object/Components things -------------------------------------}
constructor TForm1.create(aOwner: TComponent);
constructor TCompilersPathsEditor.create(aOwner: TComponent);
var
fname: string;
begin
@ -208,7 +208,7 @@ begin
EntitiesConnector.addObserver(self);
end;
destructor TForm1.destroy;
destructor TCompilersPathsEditor.destroy;
begin
fPaths.saveToFile(getCoeditDocPath + optFname);
EntitiesConnector.removeObserver(self);
@ -400,52 +400,52 @@ end;
{$ENDREGION}
{$REGION ICEProjectObserver ----------------------------------------------------}
procedure TForm1.projNew(project: ICECommonProject);
procedure TCompilersPathsEditor.projNew(project: ICECommonProject);
begin
end;
procedure TForm1.projChanged(project: ICECommonProject);
procedure TCompilersPathsEditor.projChanged(project: ICECommonProject);
begin
end;
procedure TForm1.projClosing(project: ICECommonProject);
procedure TCompilersPathsEditor.projClosing(project: ICECommonProject);
begin
if fProj = project then
fProj := nil;
end;
procedure TForm1.projFocused(project: ICECommonProject);
procedure TCompilersPathsEditor.projFocused(project: ICECommonProject);
begin
fProj := project;
end;
procedure TForm1.projCompiling(project: ICECommonProject);
procedure TCompilersPathsEditor.projCompiling(project: ICECommonProject);
begin
end;
procedure TForm1.projCompiled(project: ICECommonProject; success: boolean);
procedure TCompilersPathsEditor.projCompiled(project: ICECommonProject; success: boolean);
begin
end;
{$ENDREGION}
{$REGION ICEEditableOptions ----------------------------------------------------}
function TForm1.optionedWantCategory(): string;
function TCompilersPathsEditor.optionedWantCategory(): string;
begin
exit('Compilers paths');
end;
function TForm1.optionedWantEditorKind: TOptionEditorKind;
function TCompilersPathsEditor.optionedWantEditorKind: TOptionEditorKind;
begin
exit(oekForm);
end;
function TForm1.optionedWantContainer: TPersistent;
function TCompilersPathsEditor.optionedWantContainer: TPersistent;
begin
fPathsBackup.assign(fPaths);
exit(self);
end;
procedure TForm1.optionedEvent(event: TOptionEditorEvent);
procedure TCompilersPathsEditor.optionedEvent(event: TOptionEditorEvent);
begin
case event of
oeeAccept:
@ -477,19 +477,19 @@ begin
end;
end;
function TForm1.optionedOptionsModified: boolean;
function TCompilersPathsEditor.optionedOptionsModified: boolean;
begin
exit(fPaths.modified);
end;
{$ENDREGION}
{$REGION ICECompilerSelector ---------------------------------------------------}
function TForm1.singleServiceName: string;
function TCompilersPathsEditor.singleServiceName: string;
begin
exit('ICECompilerSelector');
end;
function TForm1.isCompilerValid(value: DCompiler): boolean;
function TCompilersPathsEditor.isCompilerValid(value: DCompiler): boolean;
begin
result := false;
with fPaths do case value of
@ -503,7 +503,7 @@ begin
end;
end;
function TForm1.getCompilerPath(value: DCompiler): string;
function TCompilersPathsEditor.getCompilerPath(value: DCompiler): string;
begin
result := '';
with fPaths do case value of
@ -517,7 +517,7 @@ begin
end;
end;
procedure TForm1.getCompilerImports(value: DCompiler; paths: TStrings);
procedure TCompilersPathsEditor.getCompilerImports(value: DCompiler; paths: TStrings);
procedure tryAdd(const pth: string);
begin
if pth.isNotEmpty then
@ -539,7 +539,7 @@ end;
{$ENDREGION}
{$REGION Compilers paths things ------------------------------------------------}
procedure TForm1.updateDCD;
procedure TCompilersPathsEditor.updateDCD;
var
imprt: TStringList;
begin
@ -552,7 +552,7 @@ begin
end;
end;
procedure TForm1.dataToGui;
procedure TCompilersPathsEditor.dataToGui;
begin
with fPaths do
begin
@ -580,7 +580,7 @@ begin
end;
end;
procedure TForm1.dialogOpen(sender: TObject);
procedure TCompilersPathsEditor.dialogOpen(sender: TObject);
var
fne: TFileNameEdit;
dre: TDirectoryEdit;
@ -600,7 +600,7 @@ begin
end;
end;
procedure TForm1.selectedExe(sender: TObject; var value: string);
procedure TCompilersPathsEditor.selectedExe(sender: TObject; var value: string);
var
ctrl: TWinControl;
begin
@ -617,7 +617,7 @@ begin
fPaths.User2ExeName:=value;
end;
procedure TForm1.selectedRt(sender: TObject; var value: string);
procedure TCompilersPathsEditor.selectedRt(sender: TObject; var value: string);
var
ctrl: TWinControl;
begin
@ -634,7 +634,7 @@ begin
fPaths.User2RuntimePath:=value;
end;
procedure TForm1.selectedStd(sender: TObject; var value: string);
procedure TCompilersPathsEditor.selectedStd(sender: TObject; var value: string);
var
ctrl: TWinControl;
begin
@ -651,12 +651,12 @@ begin
fPaths.User2PhobosPath:=value;
end;
procedure TForm1.selectedDefault(sender: TObject);
procedure TCompilersPathsEditor.selectedDefault(sender: TObject);
begin
fPaths.defaultCompiler:= DCompiler(selDefault.ItemIndex);
end;
procedure TForm1.autoDetectDMD;
procedure TCompilersPathsEditor.autoDetectDMD;
{$IFDEF WINDOWS}
var
path: string;
@ -692,20 +692,20 @@ begin
{$ENDIF}
end;
procedure TForm1.autoDetectGDC;
procedure TCompilersPathsEditor.autoDetectGDC;
begin
//TODO-cCompilerPaths: detect GDC
end;
procedure TForm1.autoDetectLDC;
procedure TCompilersPathsEditor.autoDetectLDC;
begin
//TODO-cCompilerPaths: detect LDC
end;
{$ENDREGION}
initialization
Form1 := TForm1.create(nil);
CompilersPathsEditor := TCompilersPathsEditor.create(nil);
finalization
Form1.free;
CompilersPathsEditor.free;
end.