Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi InplaceEdit im TDBGrid und Zahlen rechts ausrichten (https://www.delphipraxis.net/193183-inplaceedit-im-tdbgrid-und-zahlen-rechts-ausrichten.html)

Gremlin 30. Jun 2017 14:16

Delphi-Version: 7

InplaceEdit im TDBGrid und Zahlen rechts ausrichten
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,


ich möchte in meiner Ableitung des TDBGrids über den InplaceEditor die Zahlen rechtsbündig eingeben. Dies klappt auch ganz hervorragend, wenn nicht der Text (die Zahl) umbrechen würde, wenn die Spalte kleiner als der anzuzeigende Text ist :( Dies kann man dann erkennen, wenn man mehrere Zeilen pro Datensatz einstellt

Delphi-Quellcode:
function TMyGrid.CreateEditor: TInplaceEdit;
begin
  Result := TMyGridEditor.Create(self);
end;

procedure TMyGridEditor.CreateParams(var Params: TCreateParams);
const
  Alignments : array[TAlignment] of LongWord= (ES_Left, ES_Right, ES_Center);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or Alignments[FAlignment];
end;

procedure TMyGridEditor.SetAlignment(Value: TAlignment);
begin
  if (FAlignment <> Value) then begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;
Es hat auch nichts gebracht, über CreateParams den Style ES_MULTILINE bei Zahlen herauszunehmen, da anschließend der Editor immer oben links in der Ecke der Zelle erscheint :(


Leider weiss ich momentan nicht weiter, vielleicht hat jemand eine Idee oder schon damit mehr Erfahrungen wie ich gesammelt.
Vielen Dank

Knutifrutti 18. Okt 2017 08:51

AW: InplaceEdit im TDBGrid und Zahlen rechts ausrichten
 
Nur so eine Idee: Dezimaltrennzeichen evtl. falsch gesetzt?
Vielleicht wird ja das Komma als Text erkannt und damit die ganze Zelle als Text interpretiert und dadurch kommt es erst zum Textumbruch...???


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz