registry => OracleSQLEdit.pas => Splitter


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);
If in registry

Code:
dword:"Splitter" > dword:"Height"
ListView is invisible
 
Back
Top