unit kayitgrid;
 
interface
 
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls,ramazan,DB, DBTables,bde, ExtCtrls, Buttons, ComCtrls, StrUtils, DBGrids, menus;
 
type
 Tkayitgrid = class(TComponent)
 private
  FDRbGrid:TDBGrid;
  Fregkey:String;
  fg:TForm;
  Panel1: TPanel;
  Panel2: TPanel;
  GR: TLabel;
  FR: TLabel;
  Panel3: TPanel;
  SY: TComboBox;
  SUTUN: TLabel;
  SR: TLabel;
  SF: TLabel;
  PCL: TMemo;
  Panel4: TPanel;
  BASLIK: TLabel;
  BR: TLabel;
  BF: TLabel;
  BY: TComboBox;
  CP: TEdit;
  Panel5: TPanel;
  Button1: TButton;
  fayarlakapali,fexceleaktarkapali:Boolean;
 procedure Sayarlakapali(Value:Boolean);
 procedure ***celeaktarkapali(Value:Boolean);
 procedure sDRbGrid(Value:TDBGrid);
 procedure Sregkey(Value:String);
 procedure GRClick(Sender: TObject);
 procedure FRClick(Sender: TObject);
 procedure SRClick(Sender: TObject);
 procedure SFClick(Sender: TObject);
 procedure BRClick(Sender: TObject);
 procedure BFClick(Sender: TObject);
  { Private declarations }
 protected
  procedure kaydetClick(Sender: TObject);
  procedure AyarlaClick(Sender: TObject);
  procedure AyarlasilClick(Sender: TObject);
  procedure exceleaktarClick(Sender:TObject);
  procedure regarastir;
  { Protected declarations }
 public
  constructor Create(aOwner: TComponent); override;
  destructor Destroy; override;
  procedure menuolustur;
 
  { Public declarations }
 published
 property DRbGrid:TDBGrid read FDRbGrid write sDRbGrid;
 property Regkey:String read Fregkey write Sregkey;
 property AYARLARKAPALI:Boolean READ fayarlakapali WRITE Sayarlakapali;
 property EXCELLEAKTARKAPALI:Boolean READ fexceleaktarkapali WRITE ***celeaktarkapali;
 
  { Published declarations }
 end;
 
procedure Register;
 
implementation
 
 
uses
 Registry, ComObj;
 
 
procedure Register;
begin
 RegisterComponents('Ramazan', [Tkayitgrid]);
end;
 
 
{ Tkayitgrid }
 
constructor Tkayitgrid.Create(aOwner: TComponent);
begin
 inherited Create(aOwner);
 Regkey:='SoftwareRamazan\'+TForm(aOwner).Name;
end;
 
destructor Tkayitgrid.Destroy;
begin
 inherited Destroy;
end;
 
 
 
procedure Tkayitgrid.menuolustur;
var
  XMenuItem : TMenuItem;
  popup:TPopupMenu;
begin
if DRbGrid.PopupMenu<>nil then
begin
xMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := '-';                              DRbGrid.PopupMenu.Items.Add(XMenuItem);
if not AYARLARKAPALI then
begin
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Kaydet';    XMenuItem.OnClick :=kaydetClick ;       DRbGrid.PopupMenu.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Ayarla';    XMenuItem.OnClick :=AyarlaClick ;       DRbGrid.PopupMenu.Items.Add(XMenuItem);
xMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := '-';                              DRbGrid.PopupMenu.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Ayarları Sil'; XMenuItem.OnClick :=AyarlasilClick ;     DRbGrid.PopupMenu.Items.Add(XMenuItem);
end;
if not EXCELLEAKTARKAPALI then
begin
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Excele Aktar'; XMenuItem.OnClick :=exceleaktarClick ;    DRbGrid.PopupMenu.Items.Add(XMenuItem);
end;
end
else
begin
popup:= TPopUpMenu.Create(Self);
if not AYARLARKAPALI then
begin
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Kaydet';     XMenuItem.OnClick :=kaydetClick ;          Popup.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Ayarla';     XMenuItem.OnClick :=AyarlaClick ;          Popup.Items.Add(XMenuItem);
xMenuItem := TMenuItem.Create(Popup.Items); XMenuItem.Caption := '-';                                  Popup.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Ayarları Sil';  XMenuItem.OnClick :=AyarlasilClick ;         Popup.Items.Add(XMenuItem);
end;
if not EXCELLEAKTARKAPALI then
begin
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Excele Aktar';  XMenuItem.OnClick :=exceleaktarClick ;         Popup.Items.Add(XMenuItem);
end;
DRbGrid.PopupMenu:=popup;
end;
regarastir;
end;
 
 
 
procedure Tkayitgrid.sDRbGrid(Value: TDBGrid);
begin
FDRbGrid:=value;
end;
 
 
 
 
procedure Tkayitgrid.Sregkey(Value: String);
begin
Fregkey:=Value;
end;
 
 
function aligmenttostr(alig:TAlignment):string;
begin
if alig=taLeftJustify then Result:='Solda';
if alig=taRightJustify then Result:='Sagda';
if alig=taCenter then Result:='Ortada';
end;
 
function strtoaligment(yon:string):TAlignment;
begin
if yon='Solda' then Result:=taLeftJustify
else
if yon='Sagda'then Result:=taRightJustify
else
if yon='Ortada'then Result:=taCenter
else
Result:=taLeftJustify;
end;
 
function tml(x:integer):string;
begin
if Length(inttostr(x))=1 then
Result:='0'+inttostr(x)
else
Result:=inttostr(x)
end;
 
procedure Tkayitgrid.kaydetClick(Sender: TObject);
var r:TRegistry;
sd:string;
x:integer;
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
sd:=Regkey+''+DRbGrid.Name;
r.DeleteKey(sd);
r.OpenKey(sd,True);
r.WriteString('Color',ColorToString(DRbGrid.Color));
r.WriteString('FixedColor',ColorToString(DRbGrid.FixedColor));
r.WriteInteger('AlanSayısı',DRbGrid.Columns.Count-1);
for x:=0 to DRbGrid.Columns.Count-1 do
begin
r.OpenKey(sd+''+tml(x),True);
r.WriteString('Aligment',aligmenttostr(DRbGrid.Columns[x].Alignment));
r.WriteString('Color',ColorToString(DRbGrid.Columns[x].Color));
r.WriteString('Fieldname',DRbGrid.Columns[x].FieldName);
r.WriteString('FontName',DRbGrid.Columns[x].Font.Name);
r.WriteString('FontColor',ColorToString(DRbGrid.Columns[x].Font.Color));
r.WriteInteger('Fontsize',DRbGrid.Columns[x].Font.Size);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsBold] then   r.WriteBool('FontStylefsBold',True)   else r.WriteBool('FontStylefsBold',False);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsItalic] then  r.WriteBool('FontStylefsItalic',True)  else r.WriteBool('FontStylefsItalic',False);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsUnderline] then r.WriteBool('FontStylefsUnderline',True)else r.WriteBool('FontStylefsUnderline',False);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsStrikeOut] then r.WriteBool('FontStylefsStrikeOut',True)else r.WriteBool('FontStylefsStrikeOut',False);
r.WriteString('Picklist',DRbGrid.Columns[x].PickList.Text);
r.WriteBool('ReadOnly',DRbGrid.Columns[x].ReadOnly);
r.WriteString('TitleAligment',aligmenttostr(DRbGrid.Columns[x].Title.Alignment));
r.WriteString('TitleCaption',DRbGrid.Columns[x].Title.Caption);
r.WriteString('TitleColor',ColorToString(DRbGrid.Columns[x].Title.Color));
r.WriteString('TitleFontName',DRbGrid.Columns[x].Title.Font.Name);
r.WriteString('TitleFontColor',ColorToString(DRbGrid.Columns[x].Title.Font.Color));
r.WriteInteger('TitleFontsize',DRbGrid.Columns[x].Title.Font.Size);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsBold] then   r.WriteBool('TitleFontStylefsBold',True)   else r.WriteBool('TitleFontStylefsBold',False);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsItalic] then  r.WriteBool('TitleFontStylefsItalic',True)  else r.WriteBool('TitleFontStylefsItalic',False);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsUnderline] then r.WriteBool('TitleFontStylefsUnderline',True)else r.WriteBool('TitleFontStylefsUnderline',False);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsStrikeOut] then r.WriteBool('TitleFontStylefsStrikeOut',True)else r.WriteBool('TitleFontStylefsStrikeOut',False);
r.WriteBool('Visible',DRbGrid.Columns[x].Visible);
r.WriteInteger('Width',DRbGrid.Columns[x].Width);
end;
R.CloseKey;
R.Free;
end;
 
 
procedure Tkayitgrid.regarastir;
var
r:TRegistry;
sd:string;
x:integer;
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
sd:=Regkey+''+DRbGrid.Name;
if r.OpenKey(sd,False) then
begin
if r.ValueExists('AlanSayısı') then
begin
for x:=0 to r.ReadInteger('AlanSayısı') do
DRbGrid.Columns.Delete(0);
DRbGrid.Color:=StringToColor(r.ReadString('Color'));
DRbGrid.FixedColor:=StringToColor(r.ReadString('FixedColor'));
 for x:=0 to r.ReadInteger('AlanSayısı') do
 begin
  if r.OpenKey(sd+''+tml(x),False)then
  begin
  DRbGrid.Columns.Add;
  DRbGrid.Columns[x].Alignment:=strtoaligment(r.readString('Aligment'));
  DRbGrid.Columns[x].Color:=StringToColor(r.readString('Color'));
  DRbGrid.Columns[x].FieldName:=r.readString('Fieldname');
  DRbGrid.Columns[x].Font.Name:=r.readString('FontName');
  DRbGrid.Columns[x].Font.Color:=StringToColor(r.readString('FontColor'));
  DRbGrid.Columns[x].Font.Size:=r.readInteger('Fontsize');
  if r.readBool('FontStylefsBold') then  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsBold]  else  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsBold];
  if r.readBool('FontStylefsItalic') then  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsItalic]  else  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsItalic];
  if r.readBool('FontStylefsUnderline') then  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsUnderline]  else  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsUnderline];
  if r.readBool('FontStylefsStrikeOut') then  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsStrikeOut]  else  DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsStrikeOut];
  DRbGrid.Columns[x].PickList.Text:=r.readString('Picklist');
  DRbGrid.Columns[x].ReadOnly:=r.readBool('ReadOnly');
  DRbGrid.Columns[x].Title.Alignment:=strtoaligment(r.readString('TitleAligment'));
  DRbGrid.Columns[x].Title.Caption:=r.readString('TitleCaption');
  DRbGrid.Columns[x].Title.Color:=StringToColor(r.readString('TitleColor'));
  DRbGrid.Columns[x].Title.Font.Name:=r.readString('TitleFontName');
  DRbGrid.Columns[x].Title.Font.Color:=StringToColor(r.readString('TitleFontColor'));
  DRbGrid.Columns[x].Title.Font.Size:=r.readInteger('TitleFontsize');
  if r.readBool('TitleFontStylefsBold') then  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsBold]  else  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsBold];
  if r.readBool('TitleFontStylefsItalic') then  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsItalic]  else  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsItalic];
  if r.readBool('TitleFontStylefsUnderline') then  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsUnderline]  else  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsUnderline];
  if r.readBool('TitleFontStylefsStrikeOut') then  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsStrikeOut]  else  DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsStrikeOut];
  DRbGrid.Columns[x].Visible:=r.readBool('Visible');
  DRbGrid.Columns[x].Width:=r.readInteger('Width');
  end;
 end;
 end;
end;
R.CloseKey;
R.Free;
end;
 
 
procedure Tkayitgrid.AyarlaClick(Sender: TObject);
var
sa,xp:integer;
begin
sa:=Screen.Width;
xp:=DRbGrid.SelectedIndex;
if (DRbGrid.Columns[xp].Width*2)<(sa-30) then sa:=DRbGrid.Columns[xp].Width*2 else sa:=sa-30;
fg:=TForm.Create(Application);
with fg do
begin
BorderIcons:=[];
BorderStyle:=bsDialog;
Position:=poScreenCenter;
AutoSize:=True;
Width:=200;
ShowHint:=True;
 
Panel1:=TPanel.Create(fg);
with Panel1 do
begin
 Parent:=fg;
 Left := 408;
 Top := 0;
 Width := sa;
 Height := 273;
 TabOrder := 1 ;
end;
Panel2:=TPanel.Create(fg);
with Panel2 do
begin
  Parent:=Panel1;
  Left := 1;
  Top := 1;
  Width := sa-2;
  Height := 28;
  TabOrder := 0;
end;
 
gr:=TLabel.Create(fg);
with gr do
begin
   Parent:=Panel2;
   AutoSize:=False;
   Left := 1;
   Top := 1;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'GRID RENGI';
   OnClick := GRClick;
   Color:=DRbGrid.Color;
end;
 
fr:=TLabel.Create(fg);
with fr do
begin
   Parent:=Panel2;
   AutoSize:=False;
   Left := 1;
   Top := 14;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'FIXED RENGI';
   OnClick := FRClick;
   Color:=DRbGrid.FixedColor;
end;
 
Panel3:=TPanel.Create(fg);
with Panel3 do
begin
 Parent:=Panel1;
  Left := 1;
  Top := 29;
  Width := sa-2;
  Height := 132;
  TabOrder := 1;
end;
 
sutun:=TLabel.Create(fg);
with sutun do
begin
   Parent:=Panel3;
   AutoSize:=False;
   Left := 1;
   Top := 1 ;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'SUTUN';
end;
 
SR:=TLabel.Create(fg);
with SR do
begin
   Parent:=Panel3;
   AutoSize:=False;
   Left := 1;
   Top := 35;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'SUTUN RENGI';
   OnClick := SRClick;
   Color:=DRbGrid.Columns[xp].Color;
 
END;
 
SF:=TLabel.Create(fg);
with SF do
begin
   Parent:=Panel3;
   AutoSize:=False;
   Left := 1;
   Top := 48;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'SUTUN FONTU';
   OnClick := SFClick;
   Font:=DRbGrid.Columns[xp].Font;
end;
 
SY:=TComboBox.Create(fg);
with SY do
begin
   Parent:=Panel3;
   Left := 1;
   Top := 14;
   Width := sa-4;
   Height := 21;
   Style := csDropDownList;
   ItemHeight := 13;
   TabOrder := 0;
   Items.Add('Sagda');
   Items.Add('Solda');
   Items.Add('Ortada');
   ItemIndex:=Items.IndexOf(aligmenttostr(DRbGrid.Columns[xp].Alignment));
end;
PCL:=TMemo.Create(fg);
with PCL do
begin
   Parent:=Panel3;
   Left := 1;
   Top := 61;
   Width := sa-4;
   Height := 70;
   TabOrder := 1;
   Hint:='Açılır Liste İçeriği';
   Lines.Text:=DRbGrid.Columns[xp].PickList.Text;
   ReadOnly:=DRbGrid.Columns[xp].ReadOnly;
end;
 
Panel4:=TPanel.Create(fg);
with Panel4 do
begin
  Parent:=Panel1;
  Left := 1;
  Top := 161;
  Width := sa-2;
  Height := 83;
  TabOrder := 2;
end;
BASLIK:=TLabel.Create(fg);
with BASLIK do
begin
   Parent:=Panel4;
   AutoSize:=False;
   Left := 1;
   Top := 1;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'BASLIK';
end;
br:=TLabel.Create(fg);
with br do
begin
   Parent:=Panel4;
   AutoSize:=False;
   Left := 1;
   Top := 35;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'BASLIK RENGI';
   OnClick := BRClick;
   Color:=DRbGrid.Columns[xp].Title.Color;
end;
 
bF:=TLabel.Create(fg);
with bF do
begin
   Parent:=Panel4;
   AutoSize:=False;
   Left := 1;
   Top := 48;
   Width := sa-4;
   Height := 13;
   Alignment := taCenter;
   Caption := 'BASLIK FONTU';
   OnClick := BFClick;
   Font:=DRbGrid.Columns[xp].Title.Font;
end;
 
bY:=TComboBox.Create(fg);
with bY do
begin
   Parent:=Panel4;
   Left := 1;
   Top := 61;
   Width := sa-4;
   Height := 21;
   Style := csDropDownList;
   ItemHeight := 13;
   TabOrder := 0;
   Items.Add('Sagda');
   Items.Add('Solda');
   Items.Add('Ortada');
   ItemIndex:=Items.IndexOf(aligmenttostr(DRbGrid.Columns[xp].Title.Alignment));
end;
 
CP:=TEdit.Create(fg);
with CP do
begin
   Parent:=Panel4;
   Left := 1;
   Top := 14;
   Width := sa-4;
   Height := 21;
   TabOrder := 1;
   Text:=DRbGrid.Columns[xp].Title.Caption;
end;
 
 
Panel5:=TPanel.Create(fg);
with Panel5 do
begin
  Parent:=Panel1;
  Left := 1;
  Top := 244;
  Width := sa-2;
  Height := 28;
  TabOrder := 3;
end;
 
Button1:=TButton.Create(fg);
with Button1 do
begin
   Parent:=Panel5;
   Left := 4;
   Top := 4;
   Width := sa-10;
   Height := 21;
   Caption := 'TAMAM';
   TabOrder := 0;
   ModalResult:=mrOk;
end;
if ShowModal=mrOk then
begin
with DRbGrid do
begin
Color:=GR.Color;
FixedColor:=FR.Color;
Columns[xp].Color:=SR.Color;
Columns[xp].Font:=SF.Font;
Columns[xp].Alignment:=strtoaligment(SY.Text);
Columns[xp].PickList.Clear;
Columns[xp].PickList:=PCL.Lines;
Columns[xp].Title.Color:=br.Color;
Columns[xp].Title.Font:=bf.Font;
Columns[xp].Title.Alignment:=strtoaligment(BY.Text);
Columns[xp].Title.Caption:=cp.Text;
end;
close;
end;
end;
fg.Free;
end;
 
 
procedure Tkayitgrid.BFClick(Sender: TObject);
var xe:TFontDialog;
begin
xe:=TFontDialog.Create(Self);
xe.Font:=DRbGrid.Columns[DRbGrid.SelectedIndex].Title.Font;
if xe.Execute then
BF.Font:=xe.Font;
xe.Free;
end;
 
procedure Tkayitgrid.SFClick(Sender: TObject);
var xe:TFontDialog;
begin
xe:=TFontDialog.Create(Self);
xe.Font:=DRbGrid.Columns[DRbGrid.SelectedIndex].Font;
if xe.Execute then
SF.Font:=xe.Font;
xe.Free;
end;
 
procedure Tkayitgrid.BRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.Columns[DRbGrid.SelectedIndex].Title.Color;
if xe.Execute then
BR.Color:=xe.Color;
xe.Free;
end;
 
procedure Tkayitgrid.SRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.Columns[DRbGrid.SelectedIndex].Color;
if xe.Execute then
SR.Color:=xe.Color;
xe.Free;
end;
 
procedure Tkayitgrid.GRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.Color;
if xe.Execute then
GR.Color:=xe.Color;
xe.Free;
end;
 
procedure Tkayitgrid.FRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.FixedColor;
if xe.Execute then
FR.Color:=xe.Color;
xe.Free;
end;
 
 
procedure Tkayitgrid.AyarlasilClick(Sender: TObject);
var r:TRegistry;
sd:string;
begin
if MessageDlg('Ayarları Silmek İstediğinize Eminmisiniz?',mtWarning,mbOKCancel,0)=1 then
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
sd:=Regkey+''+DRbGrid.Name;
r.DeleteKey(sd);
r.CloseKey;
r.Free;
end;
end;
 
 
procedure Tkayitgrid.exceleaktarClick(Sender: TObject);
var
 exl,exs:variant;
 dts:TDataSet;
 x,x1,y:integer;
 ss:boolean;
begin
if DRbGrid.DataSource.DataSet.Active then
begin
 dts:=DRbGrid.DataSource.DataSet;
 exl:=createoleobject('excel.application');
 exl.workbooks.add();
 exs:=exl.workbooks[1].worksheets[1];
 dts.First;
 y:=DRbGrid.Columns.Count-1;
 x:=1;
// if mesajsor('Sutun Başına X Konulsunmu?') then
// ss:=true
// else
 ss:=false;
 for x1:=0 to y do
 begin
 exs.cells[x,x1+1]:=DRbGrid.Columns[x1].Title.Caption;
 end;
 
 while not dts.Eof do
 begin
 x:=x+1;
 for x1:=0 to y do
 begin
 if ss then
 exs.cells[x,x1+1]:='X'+DRbGrid.Columns[x1].Field.Text
 else
 exs.cells[x,x1+1]:=DRbGrid.Columns[x1].Field.Value;
 end;
 dts.Next;
 end;
 exl.visible:=true;
end
else
ShowMessage('Aktarılacak Veri Bulunamadı.');
end;
 
procedure Tkayitgrid.Sayarlakapali(Value: Boolean);
begin
fayarlakapali:=Value;
end;
 
procedure Tkayitgrid.***celeaktarkapali(Value: Boolean);
begin
fexceleaktarkapali:=Value;
end;
 
end.