Farve på række i et HyperGrid

Er HyberGrid en component ?

Stoney

Ja

som man finder hvor ?

Jens B

http://www.marleyware.com/marley/documents/index.htm

Overstående URL viser en beskrivelse af komponenten :))

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if aRow <> 2 then
    exit;
  StringGrid1.Canvas.brush.Color := clred;
  StringGrid1.Canvas.FillRect(Rect);
end;

Jens B

THyperGrid is an enhanced grid component. It descends from TStringGrid and, therefore, supports all of its standard methods and properties.

Hvis ovenstående passer så prøv at kigge på OnDrawCell

Stoney

Arrh Jens,
Du er sgu for hurtig :-)

Stoney

Jeg må hellere uddybe problemstillingen:

Når der indtastes en værdi i en celle for en given række i HyperGrid'et bliver der udregnet en Brutto Avance Procent, og er denne negativ skal alle rækkens celler have en rød baggrundsfarve men man skal stadig kunne se dataene i cellen. Efterfølgende skal de oprindelige farver i cellerne genoprettes når input dataene giver en positiv brutto avance :))

Det må meget gerne virke fra en OnClick event på en knap...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    aRowToColor : Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if aRow <> aRowToColor then
    exit;
  StringGrid1.Canvas.brush.Color := clred;
  StringGrid1.Canvas.FillRect(Rect);
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s : String;
begin
  s := IntToStr(aRowToColor);
  if InputQuery('I der, Hest og Hund', 'Hvilken række skal farves rød ?', s) then
    aRowToColor := StrToIntDef(s, 2);
  StringGrid1.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  aRowToColor := -1;
end;

end.


Jens B

så er du sq nok nød til at stave det for mig !

Indholdet i cellen overskrives når denne farves med FillRect...

/Thomas

Så prøv den her :
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if aRow <> aRowToColor then
    exit;
  if aRowToColor < 0 then
    exit;
  with StringGrid1 do
  begin
    Canvas.brush.Color := clred;
    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
  end;
end;

Okay, det er nok til at få det til at virke - dog en fusket måde :)

Jeg ville give dit svar 100 ud af de 200 hvis jeg kunne...

/Thomas

fusket måde ?

Det er da den måde som komponenten SELV tegner teksten på !

Jens B

Det er ikke måden komponenten tegner cellen der er fusket - det er den omstændige måde man sætter en anden baggrundsfarve i en celle.

Det havde været nemmere med en property ala StringGrid1.Cells[1,1].Color:=clRed

:))