mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 17:58:18 +02:00
IDE: ask new componentname dialog: fixed uninitialized result
git-svn-id: trunk@59581 -
This commit is contained in:
parent
2ff6995d1d
commit
a5170a4055
@ -118,6 +118,7 @@ begin
|
|||||||
|
|
||||||
ATextPropertyName := '';
|
ATextPropertyName := '';
|
||||||
AText := '';
|
AText := '';
|
||||||
|
Result:=false;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure SetComponentText(AComponent: TComponent; AText, ATextPropertyName: string);
|
procedure SetComponentText(AComponent: TComponent; AText, ATextPropertyName: string);
|
||||||
|
Loading…
Reference in New Issue
Block a user