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
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.
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:Vervolgens zet je in de OnDrawCell event de volgende code: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;Hiermee heeft colom 2 altijd een rode achtergrond en rij 2 wordt altijd in blauw weergegeven.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;
Marcel
bedankt,
Ik zit voor het moment even zonder PC (ik verveel me dus dood) maar ik zal het zo vlug mogelijk uittesten !
Groeten,
Geert
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks