窗体自适应分辨率
2013-01-30 15:03
274 查看
窗口、控件以及字体大小均随分辨率而变化,让界面适应各种不同的分辨率。
var
FWidth: Integer;
begin
inherited;
if (Screen.width <> 1024) then
begin
FWidth := Self.width;
Scaled := True;
Font.Size := (Self.width DIV FWidth) * Font.Size; // 字体大小调整
ScaleBy(Screen.width, 1024); // 控件大小调整
Self.Height := longint(Height) * longint(Screen.Height) DIV 768;
Self.width := longint(width) * longint(Screen.width) DIV 1024; // 窗口大小调整
end;
FScale := Screen.width / 1024;
if FScale <> 1 then
begin
for i := 0 to DBGrid1.Columns.Count - 1 do
begin
if DBGrid1.Columns[i].Visible then
begin
DBGrid1.Columns[i].width := Trunc(DBGrid1.Columns
[i].width * FScale);
end;
end;
end;
var
FWidth: Integer;
begin
inherited;
if (Screen.width <> 1024) then
begin
FWidth := Self.width;
Scaled := True;
Font.Size := (Self.width DIV FWidth) * Font.Size; // 字体大小调整
ScaleBy(Screen.width, 1024); // 控件大小调整
Self.Height := longint(Height) * longint(Screen.Height) DIV 768;
Self.width := longint(width) * longint(Screen.width) DIV 1024; // 窗口大小调整
end;
FScale := Screen.width / 1024;
if FScale <> 1 then
begin
for i := 0 to DBGrid1.Columns.Count - 1 do
begin
if DBGrid1.Columns[i].Visible then
begin
DBGrid1.Columns[i].width := Trunc(DBGrid1.Columns
[i].width * FScale);
end;
end;
end;
相关文章推荐
- 如何使窗体自适应分辨率java swing
- 窗体大小自适应分辨率的实现方法
- 窗体自适应屏幕分辨率
- 程序窗体及控件自适应分辨率
- C# ——窗体和控件随着分辨率的变化自适应大小
- C# WinForm窗体及其控件的分辨率自适应
- 窗体自适应分辨率
- Winform 窗体自适应分辨率
- WinForm窗体自适应分辨率
- 程序窗体及控件自适应分辨率
- delphi 程序窗体及控件自适应分辨率
- delphi 程序窗体及控件自适应分辨率(通过ComponentCount遍历改变字体大小以及上下左右)
- 关于“C# 窗体程序自适应分辨率” 的一些探索
- WPF 中 窗体自适应分辨率
- WinForm窗体自适应分辨率
- qt android开发篇之如何实现在不同分辨率手机中自适应字体大小,或者像素什么的
- 自适应浏览器分辨率的javascript函数[转]
- 游戏的自适应分辨率
- Qt Creator 窗体控件自适应窗口大小布局
- Android不同分辨率屏幕下自适应资源文件 .