mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 22:19:18 +02:00
* Small formatting fixes
This commit is contained in:
parent
c897bdf3cc
commit
4efdbd6cbb
@ -24,7 +24,7 @@ type
|
|||||||
function GetAddToProject: Boolean;
|
function GetAddToProject: Boolean;
|
||||||
function GetBaseFileName: String;
|
function GetBaseFileName: String;
|
||||||
function GetOpenAPIFileName: String;
|
function GetOpenAPIFileName: String;
|
||||||
function GetOPenGeneratedFiles: Boolean;
|
function GetOpenGeneratedFiles: Boolean;
|
||||||
procedure SetBaseFileName(AValue: String);
|
procedure SetBaseFileName(AValue: String);
|
||||||
procedure SetGenerator(AValue: TOpenAPICodeGen);
|
procedure SetGenerator(AValue: TOpenAPICodeGen);
|
||||||
procedure SetOpenAPIFileName(AValue: String);
|
procedure SetOpenAPIFileName(AValue: String);
|
||||||
@ -33,7 +33,7 @@ type
|
|||||||
Property Generator : TOpenAPICodeGen read FGenerator Write SetGenerator;
|
Property Generator : TOpenAPICodeGen read FGenerator Write SetGenerator;
|
||||||
Property BaseFileName : String Read GetBaseFileName Write SetBaseFileName;
|
Property BaseFileName : String Read GetBaseFileName Write SetBaseFileName;
|
||||||
Property OpenAPIFileName : String Read GetOpenAPIFileName Write SetOpenAPIFileName;
|
Property OpenAPIFileName : String Read GetOpenAPIFileName Write SetOpenAPIFileName;
|
||||||
Property OpenGeneratedFiles : Boolean Read GetOPenGeneratedFiles;
|
Property OpenGeneratedFiles : Boolean Read GetOpenGeneratedFiles;
|
||||||
Property AddToProject : Boolean Read GetAddToProject;
|
Property AddToProject : Boolean Read GetAddToProject;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -73,7 +73,7 @@ begin
|
|||||||
Result:=fraSettings.OpenAPIFileName;
|
Result:=fraSettings.OpenAPIFileName;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TOpenapiWizardForm.GetOPenGeneratedFiles: Boolean;
|
function TOpenapiWizardForm.GetOpenGeneratedFiles: Boolean;
|
||||||
begin
|
begin
|
||||||
Result:=fraSettings.OpenGeneratedFiles;
|
Result:=fraSettings.OpenGeneratedFiles;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user