paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 04:32:30 +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;
end;
procedure TCondForm.ListBoxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TCondForm.ListBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_DELETE then begin
DeleteSelected;
@ -279,8 +278,10 @@ var
p, p1: Integer;
IsElse, IsTwo, HasNewline: Boolean;
Tail, Indent: string;
function ifdef(s:string):string;
begin
Result :='';
if (s <>'') and (s[1] = '!') then begin
if IsPascal then
Result := 'N'
@ -293,6 +294,7 @@ var
else
Result := '#if' + Result + 'def ' + s;
end;
begin
Result := Text;
cond := ShowConDefDlg;