Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
CxGrid Kolon Birleştirme
#11
hücre üzerinde yazıları canvas operasyonları ile kendiniz yazmalısınız. Böylece her karakteri dahi başka renge dönüştürebilirsiniz. 

Şu an Antalya'dan Ankara'ya dönüyorum. Akşam vakit bulursam örnek hazırlarım ama daha önce paylaştığım bir örnek var onu incelerseniz demek istediğimi anlayacaksınız. 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

l7d7Eb.jpg
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#12
(08-03-2018, Saat: 10:17)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olhücre üzerinde yazıları canvas operasyonları ile kendiniz yazmalısınız. Böylece her karakteri dahi başka renge dönüştürebilirsiniz. 

Şu an Antalya'dan Ankara'ya dönüyorum. Akşam vakit bulursam örnek hazırlarım ama daha önce paylaştığım bir örnek var onu incelerseniz demek istediğimi anlayacaksınız. 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

l7d7Eb.jpg

istediğim tam olarak bu
HaUOExX.png
Cevapla
#13
(08-03-2018, Saat: 10:17)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olhücre üzerinde yazıları canvas operasyonları ile kendiniz yazmalısınız. Böylece her karakteri dahi başka renge dönüştürebilirsiniz. 

Şu an Antalya'dan Ankara'ya dönüyorum. Akşam vakit bulursam örnek hazırlarım ama daha önce paylaştığım bir örnek var onu incelerseniz demek istediğimi anlayacaksınız. 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

l7d7Eb.jpg

DelphiCan kahramanı, havada, karada, denizde her zaman her yerde; yoğun iş temposuna rağmen tüm sorunlara çözüm odaklı yaklaşan veya çözen! Smile
Daha önce dile getirilen ve fikir aşamasında kalan bir DelphiCan kahramanını hatırlattınız bana: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

jWqODn.png

Destek ve katkılarınızdan dolayı teşekkür ederim. Hayırlı yolculuklar (umarım araç kullanırken yazmıyorsunuzdur.  Huh ) Muharrem Bey.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#14
OffTopic:
Üstadım mahçup ediyorsun.
Çekimler dün akşam bitti.
Golfçü bir engelli sporcu ile çalıştık. Rahat ve keyifli  bir işti. 
Kurum aracıyla dönüyorum. Dolayısıyla kültürel aktiviteler yanında vaktim de olunca foruma bakıyorum. 
Uzun bir ara verdim telafi gibi değerlendirelim. Smile
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#15
(08-03-2018, Saat: 10:58)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlOffTopic:
Üstadım mahçup ediyorsun.
Çekimler dün akşam bitti.
Golfçü bir engelli sporcu ile çalıştık. Rahat ve keyifli  bir işti. 
Kurum aracıyla dönüyorum. Dolayısıyla kültürel aktiviteler yanında vaktim de olunca foruma bakıyorum. 
Uzun bir ara verdim telafi gibi değerlendirelim. Smile
Sorun çözüldü Smile Bir örnek yapar konu altında paylaşırım
Cevapla
#16
Örnek Proje Source Code
jyp48n.png
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#17
Wink 
Merhaba.

Sözümde ben de durayım, standart delphi bileşeni kullanılmış ( TDBGrid ) bir örnek de ben vereyim. Canvas olan her şeyde kullanabilirsiniz. TCxGrid'de de...

procedure HucreBicimlendir( aGridHucreCanvas : TCanvas; aGridHucreRect:TRect; aGridHucreIcerik:String; cAyracBas, cAyracSon:String; clRenk:TColor; boolAyracSilinsin:Boolean );
Var
  idxBas, idxSon,
  iBasGenislik, iBoldGenislik : Integer;
  strIcerik,
  strBas, strBold, strKalan : string;
  clCanvasRenk : TColor;
begin
  idxBas        := 0;
  idxSon        := 0;
  iBasGenislik  := 0;
  iBoldGenislik := 0;
  strBas        := '';
  strBold       := '';
  strKalan      := '';

  strIcerik     := aGridHucreIcerik;
  if ( cAyracBas <> '' ) AND ( Pos( cAyracBas, strIcerik ) > 0 )
    then begin
      idxBas := Pos( cAyracBas, strIcerik ) + Length(cAyracBas);
      System.Delete( strIcerik, 1, idxBas );
    end
    else if (cAyracBas = '')
         then idxBas := 1;

  if (cAyracSon <> '') and (idxBas > 0)
    then begin
        idxSon := idxBas + Pos( cAyracSon, strIcerik ) -1;
     end
     else idxSon := Length(aGridHucreIcerik);

  if (idxBas >= idxSon) or (idxBas = 0) then Exit;

  // Önce Hücre Boşaltılır.
    aGridHucreCanvas.FillRect( aGridHucreRect );

  // BAŞ BOLD ve KALAN String ifade ayrıştırılır.
    strIcerik := aGridHucreIcerik;
      strBas         := Copy(strIcerik,      1  , idxBas-1    );
        if boolAyracSilinsin
          then System.Delete( strBas, idxBas - Length(cAyracBas), Length(cAyracBas) );
      System.Delete( strIcerik, 1, idxBas-1 );
      strBold        := Copy(strIcerik, 1  , idxSon-idxBas+1  );
      System.Delete( strIcerik, 1, idxSon-idxBas+1 );
      strKalan       := Copy(strIcerik, 1, 99999              );
        if boolAyracSilinsin
          then System.Delete( strKalan, 1, Length(cAyracSon) );

  // BAŞ BOLD ve KALAN String ifadeler kapladığı CANVAS genişlik hesaplanır.
    iBasGenislik   := aGridHucreCanvas.TextWidth( strBas );
      aGridHucreCanvas.Font.Style := [fsBold]; // Ölçümü BOLD olarak almak için geçici.
    iBoldGenislik  := aGridHucreCanvas.TextWidth( strBold );

  // Hücre Eldeki Bilgi ile yeni baştan düzenlenir.
      clCanvasRenk := aGridHucreCanvas.Font.Color;
      aGridHucreCanvas.Font.Style := [];
      aGridHucreCanvas.TextOut( aGridHucreRect.Left+2 , aGridHucreRect.Top + 2, strBas );

      aGridHucreCanvas.Font.Style := [fsBold];
      aGridHucreCanvas.Font.Color := clRenk;
      aGridHucreCanvas.TextOut( aGridHucreRect.Left+2+iBasGenislik , aGridHucreRect.Top + 2, strBold );

      aGridHucreCanvas.Font.Style := [];
      aGridHucreCanvas.Font.Color := clCanvasRenk;
      aGridHucreCanvas.TextOut( aGridHucreRect.Left+2+iBasGenislik+2+iBoldGenislik , aGridHucreRect.Top + 2, strKalan );
end;


Kullanımı :
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if Column.Index in [ 1, 3 ] then
 begin
   HucreBicimlendir( TDBGrid(Sender).Canvas, Rect, Column.Field.AsString, '', ' ', clRed, False );
 end;
end;

Ürün Tablosu :
hg1w16hybtcz2kxsnwmx.png
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Index in [ 1, 3 ] then
  begin
    HucreBicimlendir( TDBGrid(Sender).Canvas, Rect, Column.Field.AsString, 'Sınıfı', 'or', clRed, False );
  end;
end;


Ürün Tablosu :
lijxuljqysefmm3wjwih.png
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#18
+2 tesekkurler
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Shocked İki farklı projeyi tek projede birleştirme? Matesh 4 269 08-03-2018, Saat: 17:03
Son Yorum: ismailkocacan
  stringlist kolon serhat 11 419 01-03-2018, Saat: 23:23
Son Yorum: ismailkocacan
  Kolon rengi serhat 3 235 16-01-2018, Saat: 13:41
Son Yorum: Abdullah ILGAZ
  Kolon başlığını kaldırma Dostk 4 306 13-11-2017, Saat: 15:12
Son Yorum: Dostk
  Cxgrid Resim esrehmaan 4 458 28-10-2017, Saat: 22:57
Son Yorum: esrehmaan



Konuyu Okuyanlar: 1 Ziyaretçi