نمايش ظاهر فرمها به صورت يكسان درهمه كامپيوترها

[prog_2005]

چه کار کنم که برنامه ای که نوشته ام روی هر کامپیوتری که نصب شد همان طوری که فرمها را طراحی کرده ام با همان اندازه نمایش داده شود و تنظمات آن به نریزد

[دنیای دلفی]

باید کاری کنی که رزولوشن کامپیوتر مقصد در هنگام اجرای برنامه به رزولوشن طراحی برنامه تغییر پیدا بکند .

البته کدی هم وجود دارد که این که باعث می شود فرم با اندازه های مختلف نمایش داده شود :flower:

[hr110]

سلام
دوست عزیز فرمهای شما نباید از یک ویندوز به ویندوز دیگر تغییر نماید مگر :
1- بروی ویندوز XPایی که مشکل دارد. برای حل مشکل باید اخرین SP2 را نصب نمایید.
2- Display Font Size ویندوز مقصد با انچه بروی ویندوز شما است تفاوت میکند.

[Delphi Skyline]

البته اگر مشکل رنگ دارید می تونید از Skin استفاده کنید .

[hr110]

البته اگر مشکل رنگ دارید می تونید از Skin استفاده کنید .
::


با همان اندازه نمایش داده شود

:confy2:

[prog_2005]

ممنون از راهنمایهایتان خودم راحل آن را پیدا کردم کد زیرا را باید به برنامه اضافه کرد محض اطلاع دوستان گرامی


const
sw:Longint=800;
sh:Longint=600;


procedure TForm1.FormCreate(Sender: TObject);
begin
Scaled:=True;
if (Screen.Width<>sw) then
begin
Height:=longint(Height)*longint(Screen.height) div sh;
Width:=longint(width)*longint(Screen.width) div sw;
ScaleBy(Screen.Width,sw);
end;

[محمد میرمصطفی]

[code]ScaleBy(100, Scree->Width / 6 )