|
delphi窗體自適應(yīng)分辨率 窗口、控件以及字體大小均隨分辨率而變化，讓界面適應(yīng)各種不同的分辨率。 var FWidth: Integer; begin inherited; if (Screen.width <> 1024) then begin FWidth := Self.width; Scaled := True; Font.Size := (Self.width DIV FWidth) * Font.Size; // 字體大小調(diào)整 ScaleBy(Screen.width, 1024); // 控件大小調(diào)整 Self.Height := longint(Height) * longint(Screen.Height) DIV 768; Self.width := longint(width) * longint(Screen.width) DIV 1024; // 窗口大小調(diào)整 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; |
|
|
