Yorumları: 22
Konuları: 7
Kayıt Tarihi: 16-11-2016
Rep Puanı: 49 Başlangıç
Merhabalar,
ExportGridToExcel ile excel dökümanı aktarımı yaptıgım bir cxgrid compenentim var. cxGrid1DBTableView1CustomDrawCell eventında bazı kosullara göre renklendirdigim satırlar var.Bunlar export edilince renkler excele yansımıyor.araştırdım cxGrid1DBTableView1CustomDrawCell olayında sadece desıng tıme da gosterım yapılıyor cxgrid bunu hafızada tutmuyor bunun icin cxGrid1DBTableView1StylesGetContentStyle ile satırları renklendirmek gerekiyormus. Ben çok farklı örnekler denedim yapamadım örnek payalaşabilecek var mıdır?Yada net bir şekilde anlatacabielcek ? Ek olarak sadece renkler değil format ile yuvarlama yaptıgım Float alanlarda yuvarlanmamıs sekılde excele gidiyor .
şimdiden teşekkür ederim .
Yorumları: 754
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.708 Uzman
(06-04-2020, Saat: 20:47)HuseyinF Adlı Kullanıcıdan Alıntı: Merhabalar,
ExportGridToExcel ile excel dökümanı aktarımı yaptıgım bir cxgrid compenentim var. cxGrid1DBTableView1CustomDrawCell eventında bazı kosullara göre renklendirdigim satırlar var.Bunlar export edilince renkler excele yansımıyor.araştırdım cxGrid1DBTableView1CustomDrawCell olayında sadece desıng tıme da gosterım yapılıyor cxgrid bunu hafızada tutmuyor bunun icin cxGrid1DBTableView1StylesGetContentStyle ile satırları renklendirmek gerekiyormus. Ben çok farklı örnekler denedim yapamadım örnek payalaşabilecek var mıdır?Yada net bir şekilde anlatacabielcek ? Ek olarak sadece renkler değil format ile yuvarlama yaptıgım Float alanlarda yuvarlanmamıs sekılde excele gidiyor .
şimdiden teşekkür ederim .
Merhabalar,
Hangi kod ile export ettiğinizi paylaşırmısınız lütfen.
ExportGridToExcel(SaveDialog1.FileName,cxGrids,True,True,True,'xls',export_form);
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 16-11-2016
Rep Puanı: 49 Başlangıç
06-04-2020, Saat: 21:00
(Son Düzenleme: 06-04-2020, Saat: 21:21, Düzenleyen: HuseyinF.)
(06-04-2020, Saat: 20:55)hi_selamlar Adlı Kullanıcıdan Alıntı: (06-04-2020, Saat: 20:47)HuseyinF Adlı Kullanıcıdan Alıntı: Merhabalar,
ExportGridToExcel ile excel dökümanı aktarımı yaptıgım bir cxgrid compenentim var. cxGrid1DBTableView1CustomDrawCell eventında bazı kosullara göre renklendirdigim satırlar var.Bunlar export edilince renkler excele yansımıyor.araştırdım cxGrid1DBTableView1CustomDrawCell olayında sadece desıng tıme da gosterım yapılıyor cxgrid bunu hafızada tutmuyor bunun icin cxGrid1DBTableView1StylesGetContentStyle ile satırları renklendirmek gerekiyormus. Ben çok farklı örnekler denedim yapamadım örnek payalaşabilecek var mıdır?Yada net bir şekilde anlatacabielcek ? Ek olarak sadece renkler değil format ile yuvarlama yaptıgım Float alanlarda yuvarlanmamıs sekılde excele gidiyor .
şimdiden teşekkür ederim .
Merhabalar,
Hangi kod ile export ettiğinizi paylaşırmısınız lütfen.
ExportGridToExcel(SaveDialog1.FileName,cxGrids,True,True,True,'xls',export_form);
Kolay gelsin.
try
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.Title := Title;
SaveDialog.Filter := 'Excel Dosyasi|*.xls';
if SaveDialog.Execute then
begin
ExportGridToExcel(SaveDialog.FileName,Grid);
Result := True;
end
else
Result := False;
finally
SaveDialog.Free;
end;
merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler
Merhaba Şöyle çözdüm Sonunda.
Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .
var
AColumn,BColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
AStyle := cxStyle1;
end;
Yorumları: 754
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.708 Uzman
(06-04-2020, Saat: 21:00)HuseyinF Adlı Kullanıcıdan Alıntı: (06-04-2020, Saat: 20:55)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,
Hangi kod ile export ettiğinizi paylaşırmısınız lütfen.
ExportGridToExcel(SaveDialog1.FileName,cxGrids,True,True,True,'xls',export_form);
Kolay gelsin.
try
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.Title := Title;
SaveDialog.Filter := 'Excel Dosyasi|*.xls';
if SaveDialog.Execute then
begin
ExportGridToExcel(SaveDialog.FileName,Grid);
Result := True;
end
else
Result := False;
finally
SaveDialog.Free;
end;
merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler
Merhaba Şöyle çözdüm Sonunda.
Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .
var
AColumn,BColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
AStyle := cxStyle1;
end;
Merhabalar,
Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 653
Konuları: 68
Kayıt Tarihi: 24-01-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 885 Acemi
07-04-2020, Saat: 10:54
(Son Düzenleme: 07-04-2020, Saat: 10:57, Düzenleyen: Bay_Y.)
(06-04-2020, Saat: 22:34)hi_selamlar Adlı Kullanıcıdan Alıntı: (06-04-2020, Saat: 21:00)HuseyinF Adlı Kullanıcıdan Alıntı: try
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.Title := Title;
SaveDialog.Filter := 'Excel Dosyasi|*.xls';
if SaveDialog.Execute then
begin
ExportGridToExcel(SaveDialog.FileName,Grid);
Result := True;
end
else
Result := False;
finally
SaveDialog.Free;
end;
merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler
Merhaba Şöyle çözdüm Sonunda.
Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .
var
AColumn,BColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
AStyle := cxStyle1;
end;
Merhabalar,
Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.
Kolay gelsin.
daha önce forumda buna benzer bir şey konuşulmuş isterseniz bir inceleyin sadece stil değil formüllerde beraberinde aktarılabildiği yazılmış , işinize yarayabilir.
https://www.delphican.com/showthread.php?tid=3951
http://www.delphiturkiye.com/forum/viewt...hp?t=31449 (Hücre içinde resim de aktarmanız gerekirse )
Kolay gelsin.
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 16-11-2016
Rep Puanı: 49 Başlangıç
12-04-2020, Saat: 20:46
(Son Düzenleme: 12-04-2020, Saat: 20:48, Düzenleyen: HuseyinF.)
(06-04-2020, Saat: 22:34)hi_selamlar Adlı Kullanıcıdan Alıntı: (06-04-2020, Saat: 21:00)HuseyinF Adlı Kullanıcıdan Alıntı: try
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.Title := Title;
SaveDialog.Filter := 'Excel Dosyasi|*.xls';
if SaveDialog.Execute then
begin
ExportGridToExcel(SaveDialog.FileName,Grid);
Result := True;
end
else
Result := False;
finally
SaveDialog.Free;
end;
merhaba bu şekilde export ediyorum.Sizin parametreler ile deneyeceğim teşekkürler
Merhaba Şöyle çözdüm Sonunda.
Başta cxStyleRepository1 compenenti ekeldim forma ve sağ click edit deyip bir stil oluşturdum. daha sonra gridin
cxGrid1DBTableView1StylesGetContentStyle eventına aşağıdaki şekilde koşullarıma göre satıra ilgili stili tanımladım excele aktardıgımda renklendirme olayı çözülmüş oldu .
var
AColumn,BColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('ColumnName');
BColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Columname2');
if not (VarToStr(ARecord.Values[AColumn.Index]) = VarToStr(ARecord.Values[BColumn.Index])) then
AStyle := cxStyle1;
end;
Merhabalar,
Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.
Kolay gelsin.
Merhaba, Kusura bakmayın geç gördüm yukardaki kod bloğu uyguladıgımda sorunum çözülmüştü.
(07-04-2020, Saat: 10:54)Bay_Y Adlı Kullanıcıdan Alıntı: (06-04-2020, Saat: 22:34)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,
Yukarıda ki kod örneğini uygulayıp deneyip sonuç yazarmısınız lütfen.
Kolay gelsin.
daha önce forumda buna benzer bir şey konuşulmuş isterseniz bir inceleyin sadece stil değil formüllerde beraberinde aktarılabildiği yazılmış , işinize yarayabilir.
https://www.delphican.com/showthread.php?tid=3951
http://www.delphiturkiye.com/forum/viewt...hp?t=31449 (Hücre içinde resim de aktarmanız gerekirse )
Kolay gelsin.
Forum da arama yaptıgımı hatırlıyorum belkide dogru şekilde rama yapmamısım paylaşım için teşekkürler
Yorumları: 653
Konuları: 68
Kayıt Tarihi: 24-01-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 885 Acemi
Rica ederim kolaylıklar diliyorum. Umarım işinize yarar.
|