Erstellung eines Index bei Paradox / DBase III+ Dateien

[eddy]

Hallo DBman,

probier's mal damit:

Code:

procedure TForm1.sbChgTitelClick(Sender: TObject);
begin
   DBGrid1.TitleFont.Color := clYellow;
   DBGrid1.TitleFont.Style := DBGrid1.TitleFont.Style + [fsBold];
   DBGrid1.FixedColor  := clBlue;
end;

mfg
eddy

[DBman]

Ich meinte jetzt aber eigentlich für einzelen Spalten... Also : Spalte 1 z.b. weiss machen ,wenn sie aktiviert wird...

[eddy]

Hallo DBman,

Spalten oder Titel oder Spalte unter dem Titel?

Du weißt zwar, was Du wissen willst, aber Du mußt es auch formulieren!

Vielleicht hilft das weiter:

Code:

dbg.Columns.Items[j].Title.Font.Color := clBlue;

mit dbg : TDBGrid
und j = [0 .. dbg.Columns.Count - 1]

Die Anweisung bewirkt, daß in der mit j angwählten Spalte der Titel in blauer Schrift dargestellt wird.

mfg
eddy

[DBman]

Ja Eddy , auch wenn ich mich vielleicht nicht präzise ausgedrückt habe -tut mir leid - aber genau das meinte ich.
Danke

[DBman]

Hi Eddy , weisst du zufällig auch , wie man die Titelfarbe nicht nur über den Index ansprechen kann , sondern auch über den Feldnamen??

Mit Fieldbyname oder sowas kriege ich das irgendwie nicht hin und in der Hilfe find ich dazu auch nichts.
also z.b. Die 'PLZ' - Spaltenüberschrift clBlue machen....

Ich glaube ich sollte mal ein neues Thema machen...

[eddy]

Hallo DBman,

Antwort in Deinem Beitrag "Farbeinstellungen im DBGrid" http://www.delphipraxis.net/viewtopic.php?t=6098

mfg
eddy

[praktiker]

Hi

lege meine Indexe immer nach fogendem Muster an :

In der Tabelle habe ich immer ein Feld, das einen eindeutigen Index erzeugt.
(beim Erstellen der Tabelle muß das ein AutoincFeld sein ,
hier nIndex: = Autoinc)

Delphi-Quellcode:

procedure Chk4IndexAdressen;
Begin
  With TTable.Create(Nil) Do
  Begin
   try
   databasename:='';
   TableName :='C:\daten\TblName.db';
   Exclusive := True;
    Open;
   indexdefs.update;
   if IndexDefs.Count = 0 then
   begin
   IndexDefs.Clear;
   // nindex ist ein Feldtype Autoinc

   AddIndex('','NIndex', []+[ixPrimary]+[ixUnique]);
   AddIndex('Adresse','Ort;Name', []);
   AddIndex('Name','Name;Ort', []);
   end;
   Close;
   finally
   Free;
   end;
  End;
 end;

Die Sortierungen werden im gleichen Verzeichnis abgelegt, wie die eigentliche Tabelle.

Zu erkennen an gleichem Tabellennamen mit den Endungen *.px, *.y* und *.x*

[edit=MrSpock]Code Tags hinzugefügt.[/edit]