pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix duplicate resource error when editing a resource.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-09 16:32:38 +00:00
parent 897e036a0c
commit 7de37ae043
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/source/vpreseditdlg.pas
View File

@ -241,10 +241,13 @@ begin
end;
function TResEditForm.ValidData(out AControl: TWinControl; out AMsg: String): Boolean;
var
res: TVpResource;
begin
Result := false;
if FDatastore.FindResource(DescriptionEdit.Text) <> nil then
res := FDataStore.FindResource(DescriptionEdit.Text);
if (res <> nil) and (res <> Resource) then
begin
AControl := DescriptionEdit;
AMsg := RSDuplicateResource;
@ -253,7 +256,6 @@ begin
Result := true;
end;
{=====}
procedure TResEditForm.FormCreate(Sender: TObject);
begin
@ -276,8 +278,6 @@ begin
end;
{=====}
{=====}
procedure TResEditForm.FormShow(Sender: TObject);
begin
DescriptionEdit.SetFocus;