s_mokhtari
یک شنبه 30 خرداد 1389, 19:08 عصر
با سلام
دوستان من ميخوام برنامه رو روي هر سيستمي با هر ريزوليشني كار بده بايد چيكار كنم چون وقتي 600*800 گذاشتم نصف فرم نشون نميده لطفاً راهنماييم كنيد
خيلي عجله دارم
با تشكر
فراموش كردم اينم كدش چطور استفاده كنم
procedure ResizeControl(Control: TWinControl; DefaultRes: TPoint);
var
Ratio: integer;
begin
Ratio := Trunc((Screen.Width * Screen.Height) / (DefaultRes.X * DefaultRes.Y) * 100);
Control.ScaleBy(Ratio,100);
end;
ResizeControl(Form1, Point(1024,768));
حالا تو چه رويدادي اينو بنويسم
در ضمن برنامه با محيط سيشارپ
دوستان من ميخوام برنامه رو روي هر سيستمي با هر ريزوليشني كار بده بايد چيكار كنم چون وقتي 600*800 گذاشتم نصف فرم نشون نميده لطفاً راهنماييم كنيد
خيلي عجله دارم
با تشكر
فراموش كردم اينم كدش چطور استفاده كنم
procedure ResizeControl(Control: TWinControl; DefaultRes: TPoint);
var
Ratio: integer;
begin
Ratio := Trunc((Screen.Width * Screen.Height) / (DefaultRes.X * DefaultRes.Y) * 100);
Control.ScaleBy(Ratio,100);
end;
ResizeControl(Form1, Point(1024,768));
حالا تو چه رويدادي اينو بنويسم
در ضمن برنامه با محيط سيشارپ