Announcement

Collapse
No announcement yet.

Markierung im Grid verhindern/ausschalten

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Markierung im Grid verhindern/ausschalten

    Hallo Spezialisten!<BR>
    Wie kann man verhindern, das z.B. in einem StringGrid eine Zelle 'markiert' (in einer anderen Farbe hervorgehoben) wird?
    <BR>
    Danke für Hilfe.<BR>
    Gunnar

  • #2
    Zur allgemeinen Info:<BR>
    So funktionierts:<BR>

    <PRE>
    procedure TFrmXXX.GrdDrawDeSelect(Sender: TObject; ACol,
    ARow: Integer; Rect: TRect; State: TGridDrawState);
    var
    _grid: TStringGrid;
    begin
    if not (gdSelected in State) then Exit;
    _grid := Sender as TStringGrid;
    with _grid.Canvas do
    begin
    Brush.Style:=bsSolid;
    Font.Color := clWindowText;
    Brush.Color:= clWindow;
    FillRect(Rect);
    Brush.Style:=bsClear;
    Font.Color := clWindowText;
    InflateRect(Rect,-2,-2);
    DrawText(Handle,PChar(_grid.Cells[ACol,ARow]),-1,Rect,dt_singleline+dt_left+dt_vcenter);
    end;
    end;
    </PRE&gt

    Comment

    Working...
    X