[SOLVED] How do I put text in a cbsButtonColumn

[Ever]

Greetings
I'm working with a dbgrid, and I would like to be able to add a text to the button that is drawn in each row when I configure a column in the ButtonStyle property as cbsButtonColumn. I appreciate any help you can give me since I don't know how to do it.

[jamie]

Well, I know how to do that with a regular stringgrid.

Code: Pascal  [Select][+][-]

1. procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
2.   aRect: TRect; aState: TGridDrawState);
3. var
4.   PT:TPoint;
5. begin
6.   if (aCol = 2) Then With Sender As TstringGrid Do
7.    Begin
8.       PT := arect.CenterPoint;
9.       PT.Y := ARect.Top+1;
10.       Canvas.Brush.Style:= bsClear;
11.       Canvas.TextOut(PT.X, PT.Y, ARow.Tostring);
12.    end;
13. end;                                        
14.  
15.  

Maybe the DB version has a DrawCell.

[paweld]

The simplest way is to DataSet you add a new field of type Calculated. Then in the OnCalcField event you add:

Code: Pascal  [Select][+][-]

1. procedure TForm1.SQLQuery1CalcFields(DataSet: TDataSet);
2. begin
3.   //same caption for all records  
4.   SQLQuery1BtnCaptionCalcField.Text := 'Click me';
5.   //or caption dependent on record
6.   //SQLQuery1BtnCaptionCalcField.Text := 'Click me for ID: ' + query.FieldByName('ID').AsString;
7. end;  

and then you assign this field to the FieldName property for the button column

[Ever]

Thanks to both of you, I used jamie code and it worked perfectly for me