Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TMS AdvGrid - Anleitung (https://www.delphipraxis.net/97656-tms-advgrid-anleitung.html)

guidok 14. Aug 2007 09:21


TMS AdvGrid - Anleitung
 
Hallo,

auf der Suche nach einem komfortablen Grid, habe ich mir das AdvStringGrid von TMS heruntergeladen und probiere damit jetzt ein bischen herum. Leider habe ich es bisher (unter anderem) nicht geschafft,

- Zellen ganz normal zu editieren (im normalen Grid "goEditing")
- eine eingefügte Checkbox mit der Maus zu checken zu bringen
- eine Combobox anzeigen zu lassen

Ich muss dazu sagen, dass ich die Turbo Explorer Version verwende und demgemäß die Komponente nicht in der Tool Palette installieren konnte, sondern per Code eingebunden und selbst erzeugt habe. Leider fallen dabei auch die komfortablen Einstellmöglichkeiten über den OI weg und dummerweise gibt es die PDF-Anleitung für die Komponente nur für Benutzer, die sie sich gekauft haben und zunächst möchte ich mal mit der Umsonst-Version probieren.

Kann mir da mal jemand auf die Sprünge helfen, der die Komponente kennt?

Ich poste hier auch mal meinen Quelltext:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    G: TAdvStringGrid;
    procedure GIsFixed(Sender: TObject; Arow, Acol: Integer; var isfixed: Boolean);
    procedure GGridHint(Sender: TObject; Arow, Acol: Longint; var hintstr: string);
    procedure GGetEditorType(Sender: TObject; Arow, Acol: Integer; var aEditor: TEditorType);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var c,r: Integer;
begin
  G:=TadvStringGrid.Create(self);
  G.Parent:=Form1;
  G.Align:=alClient;

  G.Navigation.AlwaysEdit:=True;

  for c := 0 to G.ColCount - 1 do
    for r := 0 to G.RowCount - 1 do
      G.Cells[c,r]:='Zelle '+IntToStr(c)+'/'+IntToStr(r);

  //Farben                                       Funktioniert!
  G.Colors[4,4]:=clYellow;

  //Sortieren
  G.SortSettings.Column:=3;

  //Checkbox
  G.AddCheckBox(2,3,false,false);
  G.Cells[2,3]:='Checkbox';

  //Combobox
  G.OnGetEditorType:=GGetEditorType;

  //Fixierte Zellen                              Funktioniert!
  G.OnIsFixedCell:=GIsFixed;

  //Hint einblenden                              Funktioniert!
  G.OnGridHint:=GGridHint;
  G.ShowHint:=True;
end;

procedure TForm1.GIsFixed(Sender: TObject; Arow: Integer; Acol: Integer; var isfixed: Boolean);
begin
  if (ACol=2) and (ARow=2) then
    isfixed:=True;
end;

procedure TForm1.GGridHint(Sender: TObject; Arow: Integer; Acol: Integer; var hintstr: string);
begin
  if ARow=3 then
    hintstr:='Jetzt wird eine Hilfe eingeblendet';
end;

procedure TForm1.GGetEditorType(Sender: TObject; Arow: Integer; Acol: Integer; var aEditor: TEditorType);
begin
  if Acol=4 then
    aEditor:=edComboList;
    G.ClearComboString;
    G.AddComboString('Erstes');
    G.AddComboString('Zweites');
end;

s-off 14. Aug 2007 09:53

Re: TMS AdvGrid - Anleitung
 
Hallo,

Delphi-Quellcode:
Procedure TForm1.FormShow(Sender: TObject);
Begin
   sg := TAdvStringGrid.Create(self);
   sg.Parent := self;
   sg.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing];
   sg.AddCheckBox(1, 1, False, False);
   sg.Cells[1, 1] := 'Checkbox';
   sg.OnGetEditorType := GetEditorType;
End;

Procedure TForm1.GetEditorType(Sender: TObject; aCol, aRow: Integer; Var aEditor: TEditorType);
Begin
   With sg Do Begin
      Case ACol Of
         2: Begin
               aEditor := edComboList;
               Combobox.Items.Add('eins');
               Combobox.Items.Add('zwei');
               Combobox.Items.Add('drei');
            End;
      End;
   End;
End;

guidok 14. Aug 2007 10:14

Re: TMS AdvGrid - Anleitung
 
Ah, danke. Die Options hatte ich gefunden, aber ich habe nicht bedacht, dass die Werte dafür in der Unit "Grids" definiert sind. Darum waren die bei mir immer unterkringelt. Damit hat sich das Problem mit der Combobox und der Checkbox schon mal ergeben. Jetzt werde ich mal mit dem Rest weiterexperimentieren.

Kann mir vielleicht jemand das PDF Handbuch zur Komponente zur Verfügung stellen?

ibp 14. Aug 2007 10:22

Re: TMS AdvGrid - Anleitung
 
auf der tms-seite gibt es ein wunderbaren developer guide zum runterladen, damit erschlagen sich die meisten fragen ;-)

guidok 14. Aug 2007 10:25

Re: TMS AdvGrid - Anleitung
 
Der Developer Guide ist aber nur für registrierte Benutzer und dazu müsste ich erst die Kompo kaufen, zumindest habe ich nichts gefunden, wo ich mich anmelden könnte.

Ganz abgesehen davon :wall: Ich habe grade die mitgelieferten Helpfiles gefunden. Ich schätze die werden auch irgendwie weiterhelfen...

ibp 14. Aug 2007 10:30

Re: TMS AdvGrid - Anleitung
 
du kannst dir aber die examples runterladen ;-)

guidok 14. Aug 2007 10:47

Re: TMS AdvGrid - Anleitung
 
Stimmt, die examples kann ich mir runterladen, aber da habe ich das Problem, dass die verwendeten Komponenten nicht gefunden werden, da ich ja Turbo Explorer verwende und die Komponenten darum nicht installieren kann. Dummerweise gehen mir dadurch alle Einstellungen, die zur Entwurfzzeit im OI gemacht wurde verloren.

cugar 29. Mai 2009 13:50

Re: TMS AdvGrid - Anleitung
 
Hallo Leute,
hab gerade gelesen auf der TMS Seite gibt es eine Developer Guide für registrierte User.
Hab mir ein Componenten Set 2007 gekauft und immer geflucht das so eine Hilfe-Datei nicht dabei ist.
Jetzt wollte ich mir die Guide runterladen, nun leider beim Login bekomme ich mitgeteilt ich hätte keine Software registriert...
Haben die mich aus dem Bestand nach 2 Jahren rausgeworfen?? Krieg doch regelmäßig e-mails von denen... Keine Ahnung.
Hat jemand die Giude event. noch da und könnte sie mir mailen? Wäre echt dankbar!

Viele Grüsse
Andreas Bremer

ibp 29. Mai 2009 14:12

Re: TMS AdvGrid - Anleitung
 
schreib doch mal an help ( bei ) tmssoftware ( punkt ) com

cugar 29. Mai 2009 14:16

Re: TMS AdvGrid - Anleitung
 
Schon gemacht, nur wenn die sich so viel Zeit lassen wie vor einem Jahr^^


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr.
Seite 1 von 2  1 2      

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