Einzelnen Beitrag anzeigen

Stecky2000

Registriert seit: 7. Mai 2008
Ort: Trebur
66 Beiträge
 
Delphi 2010 Professional
 
#17

Re: StringGrid Zellen wie Excel Kommastellen unterdrücken

  Alt 20. Mai 2008, 19:12
So Jungs, sorry, hab ein wenig länger gebraucht um mich zu melden.

Ich hatte bereits heraus gefunden, das Ownerdraw nur der überbegriff war.
Hab das Problem damit gelöst, war gar nicht so schwer

Habs so gemacht:

Delphi-Quellcode:
procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     with (Sender as TStringGrid) do
          begin
               // Erste Reihe nicht einfärben
               if (ARow = 0) then
               Canvas.Brush.Color := clBtnFace
               else
                   begin
                        if (cells[ACol, ARow] <> '') and (cells[ACol, ARow] <> ' ') then
                            Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Format('2.2f', [StrToFloat (cells[acol, arow])]));
                   end;
          end;
end;
Danke Euch für die Hilfe. Ich werde bestimmt mit mehr Fragen kommen
  Mit Zitat antworten Zitat