paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 09:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed IFDEF tool for blocks from Colin

Browse Source 
git-svn-id: trunk@5647 -
This commit is contained in:
mattias 2004-07-04 11:09:43 +00:00
parent 4e6c7af336
commit 8f27c45b9f
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jpeg/jpegforlazarus.pas
View File

@ -1,7 +1,7 @@
{ This file was automatically created by Lazarus. Do not edit!
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install
the package JPEGForLazarus 1.0.1.
}
}
unit JPEGForLazarus;

6
ide/condef.pas
View File

@ -245,6 +245,8 @@ begin
Indent := '';
end;
if IsPascal then begin
f := ifdef(f);
s := ifdef(s);
if HasNewline then begin
Result := Result + Indent + f + LineEnding + Indent + Text + LineEnding;
if IsElse then
@ -270,13 +272,13 @@ begin
Result := Result + Text + ' {$ENDIF}';
end;
end else begin
Result := Result + '#ifdef ' + f + LineEnding + indent + Text + LineEnding;
Result := Result + ifdef(f) + LineEnding + indent + Text + LineEnding;
if IsElse then
Result := Result + '#else' + LineEnding
else begin
Result := Result + '#endif /* ' + f + ' */' + LineEnding;
if IsTwo then
Result := Result + '#ifdef '+ s + LineEnding;
Result := Result + ifdef(s) + LineEnding;
end;
if IsTwo then begin
Result := Result + indent + Text + LineEnding + '#endif /* ';

5
lcl/include/wincontrol.inc
View File

@ -2095,7 +2095,7 @@ begin
case Key of
VK_RETURN:
begin
if Form.DefaultControl <> nil then
if Form.DefaultControl <> nil then
begin
Form.DefaultControl.ExecuteDefaultAction;
Key := VK_UNKNOWN;
@ -3755,6 +3755,9 @@ end;
{ =============================================================================
$Log$
Revision 1.252 2004/07/04 11:09:43 mattias
fixed IFDEF tool for blocks from Colin
Revision 1.251 2004/07/03 14:59:42 mattias
fixed keydown geting all keys