Boyutlandırma Sorunu

[Coban]

Merhaba, 


Rectangle otomatik olarak nasıl boyutlandırırım?

Samsung A52 Test için Rectangle Height ve Width 50x50 yapınca göze normal geliyor. Fakat Samsung A05s test Rectangle Height ve Width 50x50 yapınca çok büyük görünüyor.
A05s gibi çözünürlüğü düşük telefonlarda yanyana birden fazla Rectangle kullanınca ekranda kötü görünecek.



Bu sorunu nasıl çözerim ustalarımın yardımını rica ederim.

procedure TFormMain.ResolutionSetting;
var
  ScreenService: IFMXScreenService;
  DPI: Single;
begin
  try
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
    begin
      DPI := ScreenService.GetScreenScale;
      case Round(DPI) of
        420 .. 479:
          begin
            RectangleSettings.Height := 50;
            RectangleSettings.Width := 50;
          end;
        480 .. 500:
          begin
            RectangleSettings.Height := 40;
            RectangleSettings.Width := 40;
          end;
        501 .. 600:
          begin
            RectangleSettings.Height := 30;
            RectangleSettings.Width := 30;
          end;
      end;
    end;
  except
    on E: Exception do
      LogError('Hata: ' + E.ClassName + ' - ' + E.Message);
  end;
end;

[enigma]

(27-03-2025, Saat: 11:47)Coban Adlı Kullanıcıdan Alıntı: Merhaba, 


Rectangle otomatik olarak nasıl boyutlandırırım?

Samsung A52 Test için Rectangle Height ve Width 50x50 yapınca göze normal geliyor. Fakat Samsung A05s test Rectangle Height ve Width 50x50 yapınca çok büyük görünüyor.
A05s gibi çözünürlüğü düşük telefonlarda yanyana birden fazla Rectangle kullanınca ekranda kötü görünecek.



Bu sorunu nasıl çözerim ustalarımın yardımını rica ederim.

procedure TFormMain.ResolutionSetting;
var
  ScreenService: IFMXScreenService;
  DPI: Single;
begin
  try
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
    begin
      DPI := ScreenService.GetScreenScale;
      case Round(DPI) of
        420 .. 479:
          begin
            RectangleSettings.Height := 50;
            RectangleSettings.Width := 50;
          end;
        480 .. 500:
          begin
            RectangleSettings.Height := 40;
            RectangleSettings.Width := 40;
          end;
        501 .. 600:
          begin
            RectangleSettings.Height := 30;
            RectangleSettings.Width := 30;
          end;
      end;
    end;
  except
    on E: Exception do
      LogError('Hata: ' + E.ClassName + ' - ' + E.Message);
  end;
end;

Nesnelerin Properties lerinde en üstte yer alan "Align" seçeneğini "Client" yapmayı deneyin.

[Coban]

(27-03-2025, Saat: 12:36)enigma Adlı Kullanıcıdan Alıntı:

(27-03-2025, Saat: 11:47)Coban Adlı Kullanıcıdan Alıntı: Merhaba, 


Rectangle otomatik olarak nasıl boyutlandırırım?

Samsung A52 Test için Rectangle Height ve Width 50x50 yapınca göze normal geliyor. Fakat Samsung A05s test Rectangle Height ve Width 50x50 yapınca çok büyük görünüyor.
A05s gibi çözünürlüğü düşük telefonlarda yanyana birden fazla Rectangle kullanınca ekranda kötü görünecek.



Bu sorunu nasıl çözerim ustalarımın yardımını rica ederim.

procedure TFormMain.ResolutionSetting;
var
  ScreenService: IFMXScreenService;
  DPI: Single;
begin
  try
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
    begin
      DPI := ScreenService.GetScreenScale;
      case Round(DPI) of
        420 .. 479:
          begin
            RectangleSettings.Height := 50;
            RectangleSettings.Width := 50;
          end;
        480 .. 500:
          begin
            RectangleSettings.Height := 40;
            RectangleSettings.Width := 40;
          end;
        501 .. 600:
          begin
            RectangleSettings.Height := 30;
            RectangleSettings.Width := 30;
          end;
      end;
    end;
  except
    on E: Exception do
      LogError('Hata: ' + E.ClassName + ' - ' + E.Message);
  end;
end;

Nesnelerin Properties lerinde en üstte yer alan "Align" seçeneğini "Client" yapmayı deneyin.

@enigma Öneri için teşekkür ederim.
Olmayacağını bilmeme rağmen denedim ve olmadı. Telefonun çözünürlüğüne göre TRectangle Width ve Height otomatik olarak ayarlanmasını istiyorum.




var
SizeWiHi: Integer;// Global

procedure TFormMain.ResolutionSetting;
var
  DPI: Single;
  ScreenService: IFMXScreenService;
begin
  try
    SizeWiHi := 50;  // Starndart
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
    begin
      DPI := ScreenService.GetScreenScale;
      case Round(DPI) of
        420 .. 479:
          begin
            SizeWiHi := 50;
          end;
        480 .. 500:
          begin
            SizeWiHi := 45;
          end;
        501 .. 600:
          begin
            SizeWiHi := 40;
          end;
      end;
    end;
  except
    on E: Exception do
      LogError('Hata: ' + E.ClassName + ' - ' + E.Message);
  end;
end;

for var IText := 1 to Length(Titles) do
        begin
          ExtRectangle := TRectangle.Create(NewLayout);
          ExtRectangle.Width := SizeWiHi;
          ExtRectangle.Height := SizeWiHi;

[RAD Coder]

procedure TForm1.Button1Click(Sender: TObject);
begin
 With TRectangle.Create(Layout1) do
 begin
   Align := TAlignLayout.Top;
   Fill.Color := $FF78B6D6;
   Margins.Left := 10;
   Margins.Top := 4;
   Margins.Right := 10;
   Margins.Bottom := 4;
   Parent := Layout1;
 end;

end;

   

[mrmarman]

Eskiden benzer bir konuya yazdığım ScaledLayout ilgili cevabı bu linkten incelemek isteyebilirsiniz.

[Mr.X]

Merhaba,

Bu konuda çok çeşitli yollar mevcut. Bunlardan bir tanesi ScaledLayout kullanmak ve her bileşeni ScaledLayout içerisinde hizalamak. Gerisini bileşen halledecektir. Fakat alternatiflerden bir tanesi ise Layout bileşeninin scale özelliğinden faydalanmak ;

- Ekrana bir adet TLayout bileşeni ekleyin.
- Align özelliğini Client yapın.
- Tüm tasarımlarınızı TLayout bileşeni içerisinde gerçekleştirin.
- FormResize kısmına aşağıdaki kodları ekleyin ve kendi istediğiniz boyutta şekillendirin.

   

procedure TForm1.FormResize(Sender: TObject);
var
 wd: integer;
begin
 wd := Self.Width;
 case wd of
   0 .. 700:
     begin
       Layout1.Scale.X := 1;
       Layout1.Scale.Y := 1;
     end;
   701 .. 1200:
     begin
       Layout1.Scale.X := 1.4;
       Layout1.Scale.Y := 1.4;
     end;
   1201 .. 1920:
     begin
       Layout1.Scale.X := 1.8;
       Layout1.Scale.Y := 1.8;
     end;
 else
   begin
     Layout1.Scale.X := 1;
     Layout1.Scale.Y := 1;
   end;
 end;
end;

Alternatif :
- Ekrana TScaledLayout ekleyin.
- Align özelliğini önce Client sonra Fit yapın.
- İçerisinde istediğiniz arayüz tasarımını gerçekleştirin.
- Test edin.

[Coban]

Emeği gecen herkese teşekkür ederim. Sorunu sanırım bu şeilde çödüm.

function TFormMain.CalculateBoxSize: Integer;
begin
  if LayoutUser.Width < 3000 then
    Result := 40
  else if LayoutUser.Width < 325 then
    Result := 45
  else
    Result := 50;

  // Minimum boyut sınırı
  Result := Max(Result, 35);
end;


 SizeWiHi := CalculateBoxSize;