Problem in dealing with the Registry in lazarus 7.2.4
Original Reporter info from Mantis: abdenasseroul
-
Reporter name: abdenasseroul
Original Reporter info from Mantis: abdenasseroul
- Reporter name: abdenasseroul
Description:
Hello, this procedure not work with version 1.2.4 of a Lazarus and Registry does not record the control location
procedure FormDestroy;
var
iTemp: Integer;
r : TRegIniFile;
begin
(* As in the form create loop through all the
components But this time write the left and
top properties to the registry *)
r := TRegIniFile.Create('Resize Test');
for iTemp := 0 to form1.ComponentCount -1 do
if form1.Components[iTemp] is Tcontrol then
with form1.Components[iTemp] as Tcontrol Do
begin
r.writeinteger(Name,'Left',left);
r.writeinteger(Name,'Top',Top);
end;
r.free;
end;
Additional information:
It works with Lazarus 1.2.2
Mantis conversion info:
- Mantis ID: 26408
- OS: windows7
- OS Build: windows7
- Build: lazarus 1.2.4
- Platform: x86_64
- Version: 2.6.4