Andrey Maximenko. Ukraine
Member²
Code:
// Read settings from HKEY_CURRENT_USER/Software/DOA/SQL Editor
procedure TSQLEditForm.FormCreate(Sender: TObject);
begin
if OpenRegistry('SQL Editor') then
begin
Height := ReadInteger('Height', Height);
SQLEdit.Height := ReadInteger('Splitter', SQLEdit.Height);
Code:
dword:"Splitter" > dword:"Height"