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

IDE: formatting

Browse Source 
git-svn-id: trunk@35780 -
This commit is contained in:
juha 2012-03-07 00:04:14 +00:00
parent 93a48ce393
commit ccb05d6f2d
2 changed files with 14 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/projectdefs.pas
View File

@ -1078,16 +1078,14 @@ begin
dec(Result);
end;
function TLazProjectFileDescriptors.IndexOf(
FileDescriptor: TProjectFileDescriptor): integer;
function TLazProjectFileDescriptors.IndexOf(FileDescriptor: TProjectFileDescriptor): integer;
begin
Result:=Count-1;
while (Result>=0) and (Items[Result]<>FileDescriptor) do
dec(Result);
end;
function TLazProjectFileDescriptors.FindByName(const Name: string
): TProjectFileDescriptor;
function TLazProjectFileDescriptors.FindByName(const Name: string): TProjectFileDescriptor;
var
i: LongInt;
begin
@ -1143,7 +1141,8 @@ var
begin
DefPasExt:=DefaultPascalFileExt;
if DefPasExt='' then exit;
for i:=0 to Count-1 do Items[i].UpdateDefaultPascalFileExtension(DefPasExt);
for i:=0 to Count-1 do
Items[i].UpdateDefaultPascalFileExtension(DefPasExt);
end;
{ TLazProjectDescriptors }
@ -1203,8 +1202,7 @@ begin
dec(Result);
end;
function TLazProjectDescriptors.IndexOf(Descriptor: TProjectDescriptor
): integer;
function TLazProjectDescriptors.IndexOf(Descriptor: TProjectDescriptor): integer;
begin
Result:=Count-1;
while (Result>=0) and (Items[Result]<>Descriptor) do
@ -1222,8 +1220,7 @@ begin
Result:=nil;
end;
procedure TLazProjectDescriptors.RegisterDescriptor(
Descriptor: TProjectDescriptor);
procedure TLazProjectDescriptors.RegisterDescriptor(Descriptor: TProjectDescriptor);
begin
if Descriptor.Name='' then
raise Exception.Create('TLazProjectDescriptors.RegisterDescriptor Descriptor.Name empty');
@ -1235,8 +1232,7 @@ begin
;
end;
procedure TLazProjectDescriptors.UnregisterDescriptor(
Descriptor: TProjectDescriptor);
procedure TLazProjectDescriptors.UnregisterDescriptor(Descriptor: TProjectDescriptor);
var
i: LongInt;
begin
@ -1536,8 +1532,7 @@ end;
function TProjectConsoleApplicationDescriptor.GetLocalizedDescription: string;
begin
Result:=GetLocalizedName+#13
+lisFreepascalProgramUsingTCustomApplicationToEasilyCh;
Result:=GetLocalizedName+#13+lisFreepascalProgramUsingTCustomApplicationToEasilyCh;
end;
function TProjectConsoleApplicationDescriptor.InitProject(AProject: TLazProject

18
ideintf/newitemintf.pas
View File

@ -133,8 +133,7 @@ begin
NewIdeItems.Add(ACategory);
end;
procedure RegisterNewDialogItem(const Paths: string;
NewItem: TNewIDEItemTemplate);
procedure RegisterNewDialogItem(const Paths: string; NewItem: TNewIDEItemTemplate);
begin
if NewIDEItems=nil then
raise Exception.Create('RegisterNewDialogItem NewIDEItems=nil');
@ -199,16 +198,14 @@ begin
Result:='';
end;
function TNewIDEItemCategory.IndexOfTemplate(const TemplateName: string
): integer;
function TNewIDEItemCategory.IndexOfTemplate(const TemplateName: string): integer;
begin
Result:=FItems.Count-1;
while (Result>=0) and (SysUtils.CompareText(Items[Result].Name,TemplateName)<>0) do
dec(Result);
end;
function TNewIDEItemCategory.FindTemplateByName(const TemplateName: string
): TNewIDEItemTemplate;
function TNewIDEItemCategory.FindTemplateByName(const TemplateName: string): TNewIDEItemTemplate;
var
i: LongInt;
begin
@ -219,14 +216,12 @@ begin
Result := nil;
end;
function TNewIDEItemCategory.IndexOfCategory(const CategoryName: string
): integer;
function TNewIDEItemCategory.IndexOfCategory(const CategoryName: string): integer;
begin
Result:=-1; // ToDo
end;
function TNewIDEItemCategory.FindCategoryByName(const CategoryName: string
): TNewIDEItemCategory;
function TNewIDEItemCategory.FindCategoryByName(const CategoryName: string): TNewIDEItemCategory;
var
i: LongInt;
begin
@ -262,8 +257,7 @@ end;
function TNewIDEItemTemplate.CreateCopy: TNewIDEItemTemplate;
begin
Result:=TNewIDEItemTemplateClass(ClassType).Create(
Name,DefaultFlag,AllowedFlags);
Result:=TNewIDEItemTemplateClass(ClassType).Create(Name,DefaultFlag,AllowedFlags);
Result.Assign(Self);
end;