Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: API ler (Ekran çözünürlüğünü kod ile değiştirme)  (Okunma sayısı 3466 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
API ler (Ekran çözünürlüğünü kod ile değiştirme)
« : 02 Aralık 2006 05:14:59 »
Bu saatte bazı sorulara cevap vermeye çalıştıktan sonra bir de ipucu vereyim dedim
programınızda ekran çözünürlüğünü delphi aracığı ile kod yazarak değiştirmek isterseniz aşağıdaki kodları kullanabilirsiniz

önce çözünürlüğü değiştiren bir procedure yazalım;
Kod:  (Unknown Language)
  1. procedure ChangeScreenRes(XRes, YRes: DWord); // örn 640X480
  2. var
  3.  myDevMode: TDeviceMode;
  4. begin
  5.  EnumDisplaySettings(nil, 0, myDevMode);
  6.  myDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
  7.  myDevMode.dmPelsWidth:=XRes;
  8.  myDevMode.dmPelsHeight:=YRes;
  9.  ChangeDisplaySettings(myDevMode, 0);
  10. end;
  11.  

sonra şu şekillerde kullanabiliriz

Kod:  (Unknown Language)
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.  ChangeScreenRes(800, 600); /veya
  4.  ChangeScreenRes(640, 480); //veya
  5.  ChangeScreenRes(1024,768); //gibi
  6.  end;
  7.  
  8.  
« Son Düzenleme: 11 Ocak 2009 23:44:04 by Kocaturk »
Kayıtlı

Çevrimdışı akfbircan

  • Delphi 2 Level 2
  • **
  • İleti: 65
  • Rep: +0/-0
Ynt: API ler (Ekran çözünürlüğünü kod ile değiştirme)
« Yanıtla #1 : 03 Aralık 2008 21:11:52 »
hocam kodunuzu denedim ama bana asıl lazım olan NESNELERİN BOYUTLARININ DEĞİŞMESİ... Bu konuda yardımcı olursanız sevinirim... Teşekkürler
Kayıtlı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: API ler (Ekran çözünürlüğünü kod ile değiştirme)
« Yanıtla #2 : 07 Aralık 2008 01:18:20 »
Kullandığın ekran çözünürlüğüne göre ScaleBy function ı ile tüm form ve bileşenleri bir kerede resize edebilirsin.

örneğin

Kod:  (Unknown Language)
  1. Application.MainForm.ScaleBy(x, y);

şeklinde.
Kayıtlı

Çevrimdışı akfbircan

  • Delphi 2 Level 2
  • **
  • İleti: 65
  • Rep: +0/-0
Ynt: API ler (Ekran çözünürlüğünü kod ile değiştirme)
« Yanıtla #3 : 11 Ocak 2009 14:30:42 »
hocam tşkler
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »