uyumam Posted March 30, 2015 Share Posted March 30, 2015 Sayın arkadaşlarım öncelikle herkese iyi çalışmalar diliyorum bir konuda çözüme ulaşamadım daha doğrusu istediğim şeyi birebir yapamadım . function SetScreenResolution(Width, Height: integer): Longint; var DeviceMode: TDeviceMode; begin with DeviceMode do begin dmSize := SizeOf(TDeviceMode); dmPelsWidth := Width; dmPelsHeight := Height; dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; end; Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY); end; procedure EkranCozunurlugunuAyarla(VAR_WIDTH, VAR_HEIGHT: integer); var VAR_OLD_WIDTH, VAR_OLD_HEIGHT: integer; begin VAR_OLD_WIDTH := GetSystemMetrics(SM_CXSCREEN); VAR_OLD_HEIGHT := GetSystemMetrics(SM_CYSCREEN); if VAR_OLD_WIDTH<VAR_WIDTH then SetScreenResolution(VAR_WIDTH, VAR_HEIGHT); end; procedure TForm1.FormShow(Sender: TObject); begin EkranCozunurlugunuAyarla(1280,720) end; bu kodlarla eğer windowsun çözünürlüğü 1280 *720 modu altında bir değer ise ekran çözünürlüğünü bu moda getirebiliyorum. -Sorum şu kullandığım notebook 18.4" Toshiba Qosmio ekran çözünürlüğüm 1680*945 program geliştirirken programı ekran boyutlarını 1280 * 720 olarak ayarlasam da bazı masaüstü pclerinde program çalışırken ekrandan taşmalar ve neslerin sığmaması gibi problemler yaşıyorum Anchor ve forumun scaled özellikleriyle denedim ama program scaled yapınca felaket derecede bir kötü kalite ortaya çıkıyor programın her çözünürlükkte çalıştırabilmem için gerekli bir örnek varsa yardımcı olursanız sevinirim iyi çalışmalar .. Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted March 30, 2015 Editor Share Posted March 30, 2015 Formun minimum weight ve height özelliklerini belirleyebilirsiniz. Onun haricinde yeni projemde kullandıgım bir yöntem ise , formdaki çıkacak olan nesneleri bir panel içerisine topladım. Ve formun on resize eventında formun bouyutuna göre paneli boyutlandırdım. pnlObjects.Left := (Self.Width - pnlObjects.Width) div 2; pnlObjects.Top := (Self.Height - pnlObjects.Height) div 2; Bunun gibi bir yöntemle 800x600 boyutlarına bile indireebiiliyorum programımın boyutunu. Quote Link to comment Share on other sites More sharing options...
uyumam Posted March 30, 2015 Author Share Posted March 30, 2015 Formun minimum weight ve height özelliklerini belirleyebilirsiniz. Onun haricinde yeni projemde kullandıgım bir yöntem ise , formdaki çıkacak olan nesneleri bir panel içerisine topladım. Ve formun on resize eventında formun bouyutuna göre paneli boyutlandırdım. pnlObjects.Left := (Self.Width - pnlObjects.Width) div 2; pnlObjects.Top := (Self.Height - pnlObjects.Height) div 2; Bunun gibi bir yöntemle 800x600 boyutlarına bile indireebiiliyorum programımın boyutunu. Sayın hocam öncelikle ilgilendiğiniz için teşekkür ederim şöyle bir durum Panel kullanmakta fayda etmiyor çünkü Anchors kullanıyorum paneldede panele göre yine de yağdım program başka bir pc ye geçtiğinde ekrana sığdırsam bile içerisindeki nesnlerde sıkıntılar oluyor hepsini sığdırmanın değişik bir yolu var mıdır acaba ? Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted March 30, 2015 Editor Share Posted March 30, 2015 isterseniz veritcal scroolbox kullanın nesneler vertical scroolbox içerisinde olsun. PC nin çözünürlüğü ne olursa olsun sığacaktır sığmayan kısımlara ulaşmak için scroolu kaydırarak erişirler. Quote Link to comment Share on other sites More sharing options...
uyumam Posted March 30, 2015 Author Share Posted March 30, 2015 Hocam biliyorum fazla muhalefet olmuş gibi oluyor ama Scrolbox kullanmak kullanıcıyı sıkan bir yol yani kendi düşüncem bir program satın alsam kaydırarak kullanmak sıkar ve yorar o yüzden ekrana sığdırmam lazım max min witdh height özelliklei ve anchor ile neslerin proragramın resize'na göre geçiçi bir çözüm buldum ama dediğim gibi bir kod olmalı her ekrana sığdıracak ilgilendiğiniz için çok teşekkür ederim Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted March 30, 2015 Editor Share Posted March 30, 2015 O zaman layout kullanacaksınız formun boyutune göre nesneler gerekli yerlerine konumlanacaklar. örnek olarak burdaki resimler işinizi görecektir umarım. http://goo.gl/qJU8Cp Quote Link to comment Share on other sites More sharing options...
uyumam Posted March 30, 2015 Author Share Posted March 30, 2015 Peki hocam hemen bir deneme yapacam geri bildirim yapacağım peki Frame ile bu işi yapma şansım ne kadar olabilir Alphaskins componenetinde frame bar var frame form oluşturup Frame create edip Boyutları ayarlayabilir miyim Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted March 30, 2015 Editor Share Posted March 30, 2015 Framebar kullanmadım ama şunuda yapabilirsiniz. Windowsun başlat menüsü gibi mouse belli bir pozisyona geldimi üst menüleri gösterip gizlettirebilirsiniz. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.