paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 13:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Initialize return value for "Enclose in $IFDEF". Issue #24713, patch from Joachim Förster.

Browse Source 
git-svn-id: trunk@42130 -
This commit is contained in:
juha 2013-07-18 10:10:13 +00:00
parent 82cc90a009
commit 4aecd50e0f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/condef.pas
View File

@ -208,8 +208,7 @@ begin
DeleteSelected; DeleteSelected;
end; end;
procedure TCondForm.ListBoxKeyDown(Sender: TObject; var Key: Word; procedure TCondForm.ListBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Shift: TShiftState);
begin begin
if Key = VK_DELETE then begin if Key = VK_DELETE then begin
DeleteSelected; DeleteSelected;
@ -279,8 +278,10 @@ var
p, p1: Integer; p, p1: Integer;
IsElse, IsTwo, HasNewline: Boolean; IsElse, IsTwo, HasNewline: Boolean;
Tail, Indent: string; Tail, Indent: string;
function ifdef(s:string):string; function ifdef(s:string):string;
begin begin
Result :='';
if (s <>'') and (s[1] = '!') then begin if (s <>'') and (s[1] = '!') then begin
if IsPascal then if IsPascal then
Result := 'N' Result := 'N'
@ -293,6 +294,7 @@ var
else else
Result := '#if' + Result + 'def ' + s; Result := '#if' + Result + 'def ' + s;
end; end;
begin begin
Result := Text; Result := Text;
cond := ShowConDefDlg; cond := ShowConDefDlg;