paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 03:09:39 +01: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); dec(Result);
end; end;
function TLazProjectFileDescriptors.IndexOf( function TLazProjectFileDescriptors.IndexOf(FileDescriptor: TProjectFileDescriptor): integer;
FileDescriptor: TProjectFileDescriptor): integer;
begin begin
Result:=Count-1; Result:=Count-1;
while (Result>=0) and (Items[Result]<>FileDescriptor) do while (Result>=0) and (Items[Result]<>FileDescriptor) do
dec(Result); dec(Result);
end; end;
function TLazProjectFileDescriptors.FindByName(const Name: string function TLazProjectFileDescriptors.FindByName(const Name: string): TProjectFileDescriptor;
): TProjectFileDescriptor;
var var
i: LongInt; i: LongInt;
begin begin
@ -1143,7 +1141,8 @@ var
begin begin
DefPasExt:=DefaultPascalFileExt; DefPasExt:=DefaultPascalFileExt;
if DefPasExt='' then exit; 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; end;
{ TLazProjectDescriptors } { TLazProjectDescriptors }
@ -1203,8 +1202,7 @@ begin
dec(Result); dec(Result);
end; end;
function TLazProjectDescriptors.IndexOf(Descriptor: TProjectDescriptor function TLazProjectDescriptors.IndexOf(Descriptor: TProjectDescriptor): integer;
): integer;
begin begin
Result:=Count-1; Result:=Count-1;
while (Result>=0) and (Items[Result]<>Descriptor) do while (Result>=0) and (Items[Result]<>Descriptor) do
@ -1222,8 +1220,7 @@ begin
Result:=nil; Result:=nil;
end; end;
procedure TLazProjectDescriptors.RegisterDescriptor( procedure TLazProjectDescriptors.RegisterDescriptor(Descriptor: TProjectDescriptor);
Descriptor: TProjectDescriptor);
begin begin
if Descriptor.Name='' then if Descriptor.Name='' then
raise Exception.Create('TLazProjectDescriptors.RegisterDescriptor Descriptor.Name empty'); raise Exception.Create('TLazProjectDescriptors.RegisterDescriptor Descriptor.Name empty');
@ -1235,8 +1232,7 @@ begin
; ;
end; end;
procedure TLazProjectDescriptors.UnregisterDescriptor( procedure TLazProjectDescriptors.UnregisterDescriptor(Descriptor: TProjectDescriptor);
Descriptor: TProjectDescriptor);
var var
i: LongInt; i: LongInt;
begin begin
@ -1536,8 +1532,7 @@ end;
function TProjectConsoleApplicationDescriptor.GetLocalizedDescription: string; function TProjectConsoleApplicationDescriptor.GetLocalizedDescription: string;
begin begin
Result:=GetLocalizedName+#13 Result:=GetLocalizedName+#13+lisFreepascalProgramUsingTCustomApplicationToEasilyCh;
+lisFreepascalProgramUsingTCustomApplicationToEasilyCh;
end; end;
function TProjectConsoleApplicationDescriptor.InitProject(AProject: TLazProject function TProjectConsoleApplicationDescriptor.InitProject(AProject: TLazProject

18
ideintf/newitemintf.pas
View File

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