Ekran çözünürlüğü ile alakalı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kafkasyali2002
Üye
Mesajlar: 37
Kayıt: 18 Haz 2003 11:48

Ekran çözünürlüğü ile alakalı

Mesaj gönderen kafkasyali2002 »

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
mavsar

Mesaj gönderen mavsar »

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 :lol:

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;
Bu bilgiler Borland teknik Dökümanından alınmıştır. Detay için # TI2861 sayılı dökümanı inceleyebilirsiniz
SelenK
Üye
Mesajlar: 2
Kayıt: 18 Eki 2019 02:22

Re: Ekran çözünürlüğü ile alakalı

Mesaj gönderen SelenK »

Merhaba aynı konuda benimde çözüme ihtiyacım var şuan, konuyla ilgili çözüme ulaşabildiniz mi ?
Cevapla