Editing ray

Title / Description

Code
unit NoInspectorDescriptionPane; interface procedure Register; implementation uses Forms, Classes, Controls, Dialogs; function FindObjectInspector: TComponent; var I: Integer; begin Result := nil; for I := 0 to Screen.FormCount - 1 do if Screen.Forms [I].ClassName = 'TPropertyInspector' then Exit (Screen.Forms [I]); end; procedure Register; var aComp: TComponent; begin aComp := FindObjectInspector; if Assigned (aComp) then begin aComp := aComp.FindComponent('DescriptionPane'); if Assigned (aComp) then begin (aComp as TControl).Height := 0; end; end; end; end.

Author

Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code