2009年3月10日
程序窗体及控件自适应分辨率
摘要： 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 阅读全文
posted @ 2009-03-10 10:19 delphi中间件 阅读(359) 评论(0) 推荐(0)