Change the Delphi Object Inspector font size #224

unit AdjustOIFont;
 
interface
 
procedure Register;
 
implementation
 
uses
  Windows, Classes, Graphics, Controls, Forms;
 
procedure Register;
var
  I: Integer;
begin
  for I := 0 to Screen.CustomFormCount - 1 do
    if Screen.CustomForms[I].Name = 'PropertyInspector' then
    begin
      Screen.CustomForms[I].Font.Size := 14; // or whatever you prefer
      // Remove MessageBox once this works OK.
      MessageBox(0, 'Adjusted Object Inspector font', 'Debug', MB_OK);
      Exit;
    end;
end;
 
end.