Results 1 to 3 of 3

Thread: TStringGrid

  1. #1

    TStringGrid

    Hallo,

    Weet er iemand hoe men in een StringGrind component een bepaald veld een bepaalde kleur kan gegeven qua achtergrond en qua font.

    Bedankt,


    Geert
    Last edited by Geert; 25-Jun-01 at 23:52.

  2. #2
    Hoi Geert,

    Dat doe je in het OnDrawCell event. Plaats een TStringGrid en zet in de create van je forumulier deze code om de grid even te vullen met data:
    Code:
    constructor TForm1.Create(AOwner: TComponent);
    var
      Row, Col: Integer;
    begin
      inherited;
    
      for Row := 0 to StringGrid.RowCount-1 do
        for Col := 0 to StringGrid.ColCount-1 do
          StringGrid.Cells[Col, Row] := IntToStr(Col) + ', ' + IntToStr(Row);
    end;
    Vervolgens zet je in de OnDrawCell event de volgende code:
    Code:
    procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    begin
    
      if (ACol = 2) and not (gdFocused in State) then
      begin
        StringGrid.Canvas.Brush.Color := clRed;
        StringGrid.Canvas.FillRect(Rect);
      end;
    
    
      if (ARow = 2) then
        StringGrid.Canvas.Font.Color := clBlue;
    
      StringGrid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StringGrid.Cells[ACol, ARow]);
      StringGrid.Canvas.Font.Color := clBlack;
    end;
    Hiermee heeft colom 2 altijd een rode achtergrond en rij 2 wordt altijd in blauw weergegeven.
    Marcel

  3. #3

    Smile

    bedankt,

    Ik zit voor het moment even zonder PC (ik verveel me dus dood) maar ik zal het zo vlug mogelijk uittesten !

    Groeten,

    Geert

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. TStringGrid update..
    By doggo18 in forum Algemeen
    Replies: 3
    Last Post: 24-Jan-09, 03:54
  2. FixedCols van TStringGrid kleuren
    By franske in forum Algemeen
    Replies: 10
    Last Post: 19-May-04, 16:51
  3. Alleen maar cijfers in kolom van TStringGrid
    By Kleine83 in forum Algemeen
    Replies: 11
    Last Post: 16-Mar-04, 20:07
  4. bestand droppen op TStringGrid
    By RobLemmens in forum Algemeen
    Replies: 3
    Last Post: 01-Aug-03, 23:18
  5. TStringgrid objects free?½n(?)
    By bava in forum Algemeen
    Replies: 13
    Last Post: 10-Mar-03, 15:01

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •