Mudar fonte de uma palavra no dbgrid

Question

Ol� pessoal.Eu tenho um form de busca de clientes em meu sistema que � composto por um edit, um bot�o e um dbgrid. Eu queria que quando eu digitasse algo no edit e clicasse no bot�o, se fosse encontra...

Marco Salles · Answer

[quote:496a34e3fc] Mudar a fonte de uma linha a celula inteira � facil, mas de uma palavra somente eu n�o sei como. Agrade�o antecipadamente.[/quote:496a34e3fc]tb n�o � dificil... Veja vou te dar um exemplo que deve ser adaptado para o seu caso... Tamb�m existem outras maneiras.. [quote:496a34e3fc]Como exemplo usei o [b:496a34e3fc]Aliase DBDEMOS [/b:496a34e3fc]e a tabela [b:496a34e3fc]country.db [/b:496a34e3fc]do Delphi 5.0 e tamb�m usei um [b:496a34e3fc]table[/b:496a34e3fc] e a function [b:496a34e3fc]FindKey [/b:496a34e3fc]para Localizar o Registro. O Campo a ser pesquisado � o [b:496a34e3fc]campo Name[/b:496a34e3fc] que por defini��o � chave [b:496a34e3fc]prim�ria[/b:496a34e3fc] nesta tabela[/quote:496a34e3fc]Apos localizado o Registro que contem o Campo  a ser pesquisado , ai sim eu desenho na grade... [code:1:496a34e3fc]varAchou:Boolean=False;[/code:1:496a34e3fc]{$R *.DFM}[code:1:496a34e3fc]procedure TForm1.Button1Click(Sender: TObject);begin  if table1.FindKey(&#91;edit1.text&93;) then    achou:=True  else    achou:=False;end;[/code:1:496a34e3fc][code:1:496a34e3fc]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);beginif achou Then  if (Column.Field = table1.FieldByName(�name�))and(table1.FieldByName(�name�).Value=Edit1.Text) then    DBGrid1.Canvas.Font.Color := clRed;  // default drawing  DBGrid1.DefaultDrawDataCell (Rect, Column.Field, State);end;[/code:1:496a34e3fc]...

Lel� · Answer

N�o sei se funciona porque n�o tive oportunidade de testar, a fonte era pra ser confi�vel...Acho que vale a pena arriscar

O exemplo abaixo mostra como deixar cada linha do componente DBGrid de uma cor diferente, dando assim um efeito zebrado. O controle � feito no evento OnDrawColumnCell.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, Grids, DBGrids, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If odd(Table1.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clGreen;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;

T+

L�

Marco Salles · Answer

cita��o de Lel�[quote:58e59693f9]O exemplo abaixo mostra como deixar cada linha do componente DBGrid de uma cor diferente, dando assim um efeito zebrado. [/quote:58e59693f9]Lele Acho que isso ele sabe [quote:58e59693f9]Mudar a fonte de uma linha a celula inteira � facil[/quote:58e59693f9]Porque , mudar a fonte ou a dar o efeito de zebrado o raciocineo � o mesmo......

Flaviosan · Answer

Valew gente pela for�a, mas acho que vcs nao entenderam direito o que eu quero.
Eu quero destacar no dbgrid a palavra digitada no edit, e nao o a celula.
Ex.: Digitei �Santos� no edit e se for encontrado algum registro somente a palavra �Santos� aparece destacada: Flavio Oliveira e [b:8ad0f6d1d2]Santos[/b:8ad0f6d1d2], Carlos [b:8ad0f6d1d2]Santos[/b:8ad0f6d1d2] Silva, etc.
Espero ter explicado melhor a situa�ao.
Agrade�o antecipadamente

Flaviosan · Answer

eae gente, alguem pode me ajudarT+...

F�rum Mudar fonte de uma palavra no dbgrid #298639