Jump to content

uyumam

Üye
  • Posts

    14
  • Joined

  • Last visited

Posts posted by uyumam

  1. DJ_Rush, 21.05.2019 - 21:20 yazdı:

    bunu temiz kurulum yaptık elimizde education lisansı vardı girdik sorun yok şimdilik iyi ama sandbox aktif olmuyor education da yok mu education yoksa başka bir ayarı mı var 

     

  2. 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 

  3. 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 ?

  4. 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 ..
  5. 1- Öncelikle Komut istemini yönetici olarak çalıştır ( Ekranın sol altındaki windows simğesine sağ tık komut istemi (Yönetici) olana basacaksın ..

    2- Görev yöneticisinden ayrıntılardan explorer.exe yi sonlandırmalısın.

    3-   CD /d %userprofile%\AppData\Local

          DEL IconCache.db /a

         Exit.

    bu komutları komut satırına sırasıyla yaz kopyalayıp yapıştıra bilirsin.

    4-Son olarak görev yöneticisinden yeni şlem deyip explorer.exe yazıp dener misin 

  6. işlemcin o sıcaklığa belli bir zaman sonra dayanamaz yakarsın. Kardeşim silah yağı kullanmanı tavsiye ederim olumlu sonuç alacaksın fanın ilk günki gibi sessiz çalışacaktır fanın deliğindeki çembere püskürtmeli silah yağını sık uygulaması bu şekilde yararını görürsün iyi günler

×
×
  • Create New...