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

IDE: Prevent access violation in project resources dialog. Issue #25912, patch from Anton.

Browse Source 
git-svn-id: trunk@46327 -
This commit is contained in:
juha 2014-09-25 17:26:26 +00:00
parent 4c44bbaed5
commit b4ff26f8f4
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/project_resources_options.lfm
View File

@ -35,6 +35,7 @@ object ResourcesOptionsFrame: TResourcesOptionsFrame
Caption = 'Resource'
Width = 326
end>
HideSelection = False
RowSelect = True
TabOrder = 0
ViewStyle = vsReport

6
ide/frames/project_resources_options.pas
View File

@ -88,12 +88,14 @@ end;
procedure TResourcesOptionsFrame.cbResourceTypeChange(Sender: TObject);
begin
lbResources.Selected.SubItems[0] := ResourceTypeToStr[TUserResourceType(cbResourceType.ItemIndex)];
if Assigned(lbResources.Selected) then
lbResources.Selected.SubItems[0] := ResourceTypeToStr[TUserResourceType(cbResourceType.ItemIndex)];
end;
procedure TResourcesOptionsFrame.edResourceNameEditingDone(Sender: TObject);
begin
lbResources.Selected.SubItems[1] := edResourceName.Text;
if Assigned(lbResources.Selected) then
lbResources.Selected.SubItems[1] := edResourceName.Text;
end;
procedure TResourcesOptionsFrame.edResourceNameKeyDown(Sender: TObject;