Merhaba;
YAptığım program hangi bilgisayara yüklenirse yüklensin o sistemin ekran çözünürlüğüne göre kendini ayarlamasını istiyorum
Yani 800*600 de de 1024*768 de de güzel ce görünümünde bir sorun olmada çalışsın
İyi çalışmalar
Ekran çözünürlüğü ile alakalı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Selam,
Aslında sen tasarımını 800*600 yapsan ve form create de screen propertysinden bu çözünürlükten aşağı ise kapatsan ve de üstü çözünürlükler içinde scaleby kullanan bir fonksiyon yazsan herşey tertemiz olur
ScaleBy nasıl mı olacak? Örnek bir fonksiyon mu? İşte....
Bu bilgiler Borland teknik Dökümanından alınmıştır. Detay için # TI2861 sayılı dökümanı inceleyebilirsiniz
Aslında sen tasarımını 800*600 yapsan ve form create de screen propertysinden bu çözünürlükten aşağı ise kapatsan ve de üstü çözünürlükler içinde scaleby kullanan bir fonksiyon yazsan herşey tertemiz olur
ScaleBy nasıl mı olacak? Örnek bir fonksiyon mu? İşte....
Kod: Tümünü seç
implementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) div ScreenHeight;
width := longint(width) * longint(screen.width) div ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;
Re: Ekran çözünürlüğü ile alakalı
Merhaba aynı konuda benimde çözüme ihtiyacım var şuan, konuyla ilgili çözüme ulaşabildiniz mi ?