TclProGrid Sütun Boyut ayarlama

   clProGrid  de sütunların boyutlarının eşit olarak gelmesini istiyorum. Ama soldan başlayarak sıkıştırılmış bir şekilde geliyor. Yardımcı olabilir misiniz? 

Var   
  MyForm:TclForm;
  testListview : TClListView;
  Qry : TClSqlQuery;
   clProGrid:TCLProGrid;
   mainVertSB : TclHorzScrollBox;

void AddDataToListview
{
   try 
      Qry.SQL.Text = 'SELECT * FROM TBLGIBVERGIDAIRELIST';
      Qry.Open;
      if (Qry.Found)
      {

        clProGrid.ConnectDataSet(Qry);

      }
    except
      ShowMessage('[01] Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
}

{
  MyForm = TclForm.Create(Self);

        clProGrid = MyForm.AddNewProGrid(MyForm,'clProGrid');
        clProGrid.Align = alCenter;
        clProGrid.Width=300;
       // clProGrid.Options.Selection.Mode = smSingleCell;
        clProGrid.AutoSizeColumns(True,80);

        MyForm.AddNewEvent(clProGrid,tbeOnProGridCellClick,'');

   Qry = TClSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-OA0VJ0A', 'sa', '123', 'BITEK', 1433);
  Qry.Connection = Clomosy.DBSQLServerConnection;

 AddDataToListview;
  MyForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
yasar Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Kasım 2024 Durum: Aktif Değil Puanlar: 16	Mesaj Seçenekleri Yanıt Yaz Alıntı yasar Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: TclProGrid Sütun Boyut ayarlama Gönderim Zamanı: 9 Saat 1 Dakika Önce Saat 17:08
	clProGrid de sütunların boyutlarının eşit olarak gelmesini istiyorum. Ama soldan başlayarak sıkıştırılmış bir şekilde geliyor. Yardımcı olabilir misiniz? Var MyForm:TclForm; testListview : TClListView; Qry : TClSqlQuery; clProGrid:TCLProGrid; mainVertSB : TclHorzScrollBox; void AddDataToListview { try Qry.SQL.Text = 'SELECT * FROM TBLGIBVERGIDAIRELIST'; Qry.Open; if (Qry.Found) { clProGrid.ConnectDataSet(Qry); } except ShowMessage('[01] Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } { MyForm = TclForm.Create(Self); clProGrid = MyForm.AddNewProGrid(MyForm,'clProGrid'); clProGrid.Align = alCenter; clProGrid.Width=300; // clProGrid.Options.Selection.Mode = smSingleCell; clProGrid.AutoSizeColumns(True,80); MyForm.AddNewEvent(clProGrid,tbeOnProGridCellClick,''); Qry = TClSqlQuery.Create(nil); Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-OA0VJ0A', 'sa', '123', 'BITEK', 1433); Qry.Connection = Clomosy.DBSQLServerConnection; AddDataToListview; MyForm.Run; }