paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 11:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Designer: Prevent an illegal name for a component when "Ask name on create" is enabled. Issue #39292.

Browse Source
This commit is contained in:
Juha 2021-09-26 01:10:07 +03:00
parent 5a1abf733a
commit f6b7ba2662
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/askcompnamedlg.pas
View File

@ -28,7 +28,9 @@ interface
uses
Classes, SysUtils, TypInfo,
// LCL
LCLType, Forms, Controls, Graphics, Dialogs, StdCtrls, ButtonPanel, ExtCtrls,
LCLType, Forms, Controls, Dialogs, StdCtrls, ButtonPanel, ExtCtrls,
// LazUtils
LazStringUtils,
// IdeIntf
PropEdits,
// IDE
@ -171,6 +173,7 @@ begin
NewComponent:=ANewComponent;
OldName := NewName;
OldText := NewText;
NameEditChange(NameEdit);
if ShowModal=mrOk then
begin
if OldName<>NewName then
@ -279,7 +282,7 @@ begin
ErrorMsg:=lisEmpty;
exit;
end;
if not IsValidIdent(AName) then begin
if not LazIsValidIdent(AName) then begin
ErrorMsg:=lisNotAValidPascalIdentifier;
exit;
end;