摘要：
unit untFixForm;interfaceusesClasses, SysUtils, Controls, Forms;typeTFontedControl = class(TControl)public property Font;end;TFontMapping = record SWidth : Integer; SHeight: Integer; FName: string; FSize: Integer;end;procedure FixForm(AForm: TForm);procedure SetFontMapping;varFontMapping : array of 阅读全文
