paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: new project dialog: store project desc in listbox

Browse Source 
git-svn-id: trunk@31739 -
This commit is contained in:
mattias 2011-07-18 20:12:13 +00:00
parent 495de54e69
commit 1a5ecc177b
3 changed files with 20 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/codetoolsstructs.pas
View File

@ -759,8 +759,11 @@ begin
h:=s;
Tree.Add(Pointer(h));
Pointer(h):=nil; // keep refcount
end else
//debugln(['TStringTree.ReplaceString NewString="',dbgstr(s),'"']);
end else begin
s:=AnsiString(Node.Data);
//debugln(['TStringTree.ReplaceString OldString="',dbgstr(s),'"']);
end;
end;
function TStringTree.CalcMemSize: PtrUInt;

26
components/codetools/laz2_xmlread.pas
View File

@ -166,7 +166,7 @@ const
'-', '''', '(', ')', '+', ',', '.', '/', ':', '=', '?', ';', '!', '*',
'#', '@', '$', '_', '%'];
var
{$IF SizeOf(DOMChar)<2}
{$IFDEF UseUTF8}
IsNameStartChar, IsNameChar: array[char] of boolean;
{$ENDIF}
@ -527,6 +527,7 @@ begin
end;
end;
{$IFDEF UseUTF8}
function WriteUTF8(u: cardinal; var OutBuf: DOMPChar; var OutCnt: Cardinal): boolean; inline;
begin
case u of
@ -569,6 +570,7 @@ begin
end;
Result:=true;
end;
{$ENDIF}
function Decode_UCS2(Context: Pointer; InBuf: PChar; var InCnt: Cardinal; OutBuf: DOMPChar; var OutCnt: Cardinal): Integer; stdcall;
{$IFDEF UseUTF8}
@ -1684,7 +1686,7 @@ begin
repeat
if NameStartFlag then
begin
if {$IF SizeOf(DOMChar)=2}
if {$IFDEF UseWideString}
(Byte(p^) in NamingBitmap[FNamePages^[hi(Word(p^))]])
{$ELSE}
IsNameStartChar[p^]
@ -1693,7 +1695,7 @@ begin
begin
Inc(p);
end
{$IF SizeOf(DOMChar)=2}
{$IFDEF UseWideString}
else if FXML11 and ((p^ >= #$D800) and (p^ <= #$DB7F) and
(p[1] >= #$DC00) and (p[1] <= #$DFFF)) then
begin
@ -1711,7 +1713,7 @@ begin
NameStartFlag := False;
end;
{$IF SizeOf(DOMChar)=2}
{$IFDEF UseWideString}
if FXML11 then begin
repeat
if Byte(p^) in NamingBitmap[FNamePages^[$100+hi(Word(p^))]] then
@ -3062,15 +3064,12 @@ begin
repeat
old := FBuf;
repeat
{$IF SizeOf(DOMChar)=2}
{$IFDEF UseWideString}
// skip common white spaces
while FBuf^ in [' ',#9] do inc(FBuf);
wc := FBuf^;
//writeln('TXMLDecodingSource.SkipUntil ',ord(wc));
if ((wc = #10) or (wc = #13)
{$IF SizeOf(DOMChar)=2}
or (FXML11Rules and ((wc = #$85) or (wc = #$2028)))
{$ENDIF}
) and (not AllowSpecialChars)
then begin
BufAppendChunk(ToFill, old, FBuf);
@ -3083,17 +3082,12 @@ begin
end
else if (not AllowSpecialChars)
and ( ((wc < #32) and (not ((wc = #0) and (FBuf >= FBufEnd))) and (wc <> #9))
{$IF SizeOf(DOMChar)=2}
or (wc > #$FFFD)
{$ENDIF}
or (FXML11Rules and (wc >= #$7F) and (wc <= #$9F)) )
then
FReader.FatalError('Invalid character')
else if (wc=#0) and (FBuf < FBufEnd) then
FReader.FatalError('Invalid #0 character');
if {$IF SizeOf(DOMChar)=2}(wc < #255) and{$ENDIF}
(Char(ord(wc)) in Delim)
then
if (Char(ord(wc)) in Delim) then
Break;
// the checks above filter away everything below #32 that isn't a whitespace
if wc > #32 then
@ -4219,12 +4213,12 @@ begin
end;
procedure InitXMLRead;
{$IF SizeOf(DOMChar)<2}
{$IFDEF UseUTF8}
var
c: Char;
{$ENDIF}
begin
{$IF SizeOf(DOMChar)<2}
{$IFDEF UseUTF8}
for c:=low(char) to high(char) do begin
IsNameStartChar[c]:=c in ['A'..'Z','a'..'z','_',#128..#255];
IsNameChar[c]:=c in ['A'..'Z','a'..'z','_','0'..'9','-','.',#128..#255];

24
ide/newprojectdlg.pp
View File

@ -50,11 +50,12 @@ type
procedure ListBoxDblClick(Sender: TObject);
procedure ListBoxSelectionChange(Sender: TObject; User: boolean);
private
FProjectDescriptor: TProjectDescriptor;
procedure FillHelpLabel;
procedure SetupComponents;
public
constructor Create(AOwner: TComponent); override;
function GetProjectDescriptor: TProjectDescriptor;
property ProjectDescriptor: TProjectDescriptor read FProjectDescriptor;
end;
function ChooseNewProject(var ProjectDesc: TProjectDescriptor): TModalResult;
@ -72,7 +73,7 @@ begin
try
Result:=NewProjectDialog.ShowModal;
if Result=mrOk then
ProjectDesc:=NewProjectDialog.GetProjectDescriptor;
ProjectDesc:=NewProjectDialog.ProjectDescriptor;
finally
NewProjectDialog.Free;
end;
@ -88,23 +89,10 @@ begin
FillHelpLabel;
end;
function TNewProjectDialog.GetProjectDescriptor: TProjectDescriptor;
var
i: LongInt;
s: string;
begin
Result:=ProjectDescriptorApplication;
i:=ListBox.ItemIndex;
if (i<0) then exit;
s:=ListBox.Items[i];
for i:=0 to ProjectDescriptors.Count-1 do
if ProjectDescriptors[i].GetLocalizedName=s then
exit(ProjectDescriptors[i]);
end;
procedure TNewProjectDialog.FillHelpLabel;
begin
HelpLabel.Caption:=GetProjectDescriptor.GetLocalizedDescription;
FProjectDescriptor := TProjectDescriptor(ListBox.Items.Objects[ListBox.ItemIndex]);
HelpLabel.Caption:=FProjectDescriptor.GetLocalizedDescription;
HelpLabel.Width:=Self.ClientWidth-HelpLabel.Left-10;
end;
@ -117,7 +105,7 @@ begin
BeginUpdate;
for i:=0 to ProjectDescriptors.Count-1 do begin
if ProjectDescriptors[i].VisibleInNewDialog then
Add(ProjectDescriptors[i].GetLocalizedName);
AddObject(ProjectDescriptors[i].GetLocalizedName, ProjectDescriptors[i]);
end;
EndUpdate;
end;