/////////////////////{ samutpra@hotmail.com }/////////////////////
procedure AdjustResolution(oForm:TForm);
var
iPercentage : integer;
const
DefaultRes = 1024; //ค่าหน้าจอตอน Design
begin
if Screen.Width > DefaultRes then begin
iPercentage:=Round(((Screen.Width - DefaultRes ) / DefaultRes )*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
/////////////////////{ samutpra@hotmail.com }/////////////////////
ไม่มีความคิดเห็น:
แสดงความคิดเห็น