Results 1 to 2 of 2

Thread: Marker toevoegen aan een geselecteerde Cell van StringGrid

  1. #1

    Marker toevoegen aan een geselecteerde Cell van StringGrid

    Hallo allemaal,

    Ik wil een marker in een StringGrid toevoegen per geselecteerde Cell. De marker wordt alleen maar weergegeven in Cell = 0. Andere cellen worden weergegeven in de kleur geel.

    Code:
    PROCEDURE TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: INTEGER;
      aRect: TRect; aState: TGridDrawState);
    BEGIN
      StringGrid1.DefaultDrawing := False;
      IF (gdSelected IN aState) THEN
      BEGIN
        StringGrid1.Canvas.Brush.Color := clYellow;
        StringGrid1.Canvas.FillRect(ARect);
        StringGrid1.Canvas.TextRect(ARect, ARect.Left + 2, ARect.Top + 2, StringGrid1.Cells[aCol, aRow]);
    
        StringGrid1.Canvas.Brush.Style := bsSolid;
        StringGrid1.Canvas.Brush.Color := clRed;
        StringGrid1.Canvas.Rectangle(ARect.Left, ARect.Bottom - 5, ARect.Width, ARect.Bottom);
      END;
    END;
    Doe ik wat fout of kan het niet?

    Met een groet, Frans

  2. #2
    Opgelost

    Code:
    PROCEDURE TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: INTEGER;
      aRect: TRect; aState: TGridDrawState);
    BEGIN
      StringGrid1.DefaultDrawing := False;
      IF (gdSelected IN aState) THEN
      BEGIN
        StringGrid1.Canvas.Brush.Color := clYellow;
        StringGrid1.Canvas.FillRect(ARect);
        StringGrid1.Canvas.TextRect(ARect, ARect.Left + 2, ARect.Top + 2, StringGrid1.Cells[aCol, aRow]);
    
        StringGrid1.Canvas.Brush.Style := bsSolid;
        StringGrid1.Canvas.Brush.Color := clRed;
        StringGrid1.Canvas.Rectangle(ARect.Left, ARect.Bottom - 5, ARect.Left+StringGrid1.DefaultColWidth, ARect.Bottom);
      END;
    END;

Thread Information

Users Browsing this Thread

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

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
  •