06-02-2019, Saat: 23:22
Merhaba,
Projelerimi laptopda yapıyorum; Daha sonra farklı bilgisayarlarda ekran testi için deneme yanılma ile çıkan sorunları biraz uğraşarak çözmeye çalışıyorum.
1. Listviewdeki son kolon genişiliği ekranın en sonuna dayanacak şekilde genişliğini nasıl ayarlayabilirim?
2. Listviewdeki satır adeti en alta geldiğine scrollbars çıkmaması için son satır genişliğini nasıl daraltırım?
Bu çözümü buldum fakat farklı ekranlarda ayrı bir sıkıntı çıkartıyor.
Projelerimi laptopda yapıyorum; Daha sonra farklı bilgisayarlarda ekran testi için deneme yanılma ile çıkan sorunları biraz uğraşarak çözmeye çalışıyorum.
1. Listviewdeki son kolon genişiliği ekranın en sonuna dayanacak şekilde genişliğini nasıl ayarlayabilirim?
2. Listviewdeki satır adeti en alta geldiğine scrollbars çıkmaması için son satır genişliğini nasıl daraltırım?
Bu çözümü buldum fakat farklı ekranlarda ayrı bir sıkıntı çıkartıyor.
procedure TForm7.ListView1AdvancedCustomDraw(Sender: TCustomListView; const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin if ListView1.Items.Count > 3 then begin ListView1.Columns[10].Width := 224; end else begin ListView1.Columns[10].Width := 240; end; end;