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

ide: use one formatting style for dci file

Browse Source 
git-svn-id: trunk@20804 -
This commit is contained in:
paul 2009-07-07 05:07:18 +00:00
parent 62e267abb6
commit c3e4eb2a74
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/lazarus_dci_file.dci
View File

@ -88,7 +88,8 @@ if $param(Condition) then |
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
if $param(Condition) then begin
if $param(Condition) then
begin
|
end;
[ife | if then (no begin/end) else (no begin/end)]
@ -102,10 +103,11 @@ else
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
if $param(Condition) then begin
if $param(Condition) then
begin
|
end
else begin
end else
begin
end;
[procedure | procedure declaration]
@ -148,7 +150,8 @@ end;
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
while $param(Condition) do begin
while $param(Condition) do
begin
|
end;
[whiles | while (no begin)]
@ -160,7 +163,8 @@ while $param(Condition) do |
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
with $param(Condition) do begin
with $param(Condition) do
begin
|
end;
[b | begin end]
@ -174,14 +178,16 @@ HexStr(Cardinal(|),8)
[be | begin end else begin end]
begin
|
end else begin
end else
begin
end;
[withc | with for components]
$(AttributesStart)
EnableMakros=true
$(AttributesEnd)
with $param(Component) do begin
with $param(Component) do
begin
Name:='$param(Name)';
Parent:=$param(Parent);
Left:=$param(0);