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