Kylix
Tips

NEW TIPS
Database (98)
Files (1187)
Forms (125)
Graphic (126)
IDE (30)
Indy (13)
Internet / LAN (146)
IntraWeb (12)
Math (84)
Misc (137)
Multimedia (56)
Objects/
ActiveX (64)

OpenTools API (14)
Printing (47)
Strings (94)
System (275)
VCL (246)

Search Tip
Top15
Add new Tip

Forum

...change the font color of the focussed cell in a Grid?
Author: P. Below
Homepage: http://www.teamb.com
[ Print tip ]    

Tip Rating (5):  
     





{
  Question:
  How do I change the cell font color in a TDBgrid
  I only want to change the individual cell that is clicked on!
  (while in the edit mode)

  Answer:
  Since it is the InplaceEditor control that is displayed when the cell
  is in edit mode you have to change this controls Color. Getting at it
  is a bit ugly since the InplaceEditor property of TCustomGrid
  (which TDBGrid inherits) is protected and the Color property of
  TCustomMaskedit (from which TInplaceEditor inherits) is also protected.
  The following works for a TStrinGrid. I used the grids OnGetEditMask event here
  to have a place where the inplace editor is guaranteed to exist.
  For a TDBGrid you could probably use OnColEnter.
  
  
  Frage:
  Wie ändere ich die Farbe der aktuellen Zelle eines Stringgrids oder TDBGrids ?
  
  Antwort:
  Der InplaceEditor wird angezeit, wenn eine Zelle im Editiermodus ist.
  Es muss also dessen Farbe geändert werden. Dies kann über eine "Cracker"-Klasse
  erreicht werden.
}

type
  
TForm1 = class(TForm)
    {...}
    
procedure StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
    procedure DBGrid1ColEnter(Sender: TObject);
  end;

{...}

uses
  
Mask;

type
  
TGridCracker = class(TCustomGrid);
  TEditorCracker = class(TCustomMaskEdit);

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
var
  
editor: TEditorCracker;
begin
  
editor := TEditorCracker(TGridCracker(Sender).InplaceEditor);
  if Assigned(editor) then
    
editor.Color := clYellow;
end;

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
var
  
editor: TEditorCracker;
begin
  
editor := TGridCracker(TGridCracker(Sender).InplaceEditor);
  if Assigned(editor) then
    
editor.Color := clGreen;
end;

Rate this tip:

poor
very good


Copyright  Torry's Delphi Pages Torry's Delphi Pages Maintained by Simon Grossenbacher Notes? Comments? Feel free to send... Copyright 1996-2001