Bilder in Tabellen

[Kuschel1234]

Hallo ,

nochmals herzlichen Dank für die vielen hilfreichen Tipps bisher.

Zurzeit versuche ich mich gerade an verschiedenen Tabellen. Dabei ist mir der Datentyp "Bild" aufgefallen. Was kann ich mit diesem alles machen?

Ich habe schon herausgefunden das über "Bild laden" ein Bild von der Festplatte eingefügt werden kann. Ist dies auch mit den Symbolen aus EuroKass möglich? Könnte ich außerdem über eine InterRun-Funktion bei einem bestimmten Ereignis ein Bild oder Symbol in die Spalte einfügen lassen?

Zum Beispiel so: Ereignis 1 = Bild 1, Ereignis 2 = Bild 2 ...

Liebe Grüße
Kuschel1234

[Team Schauries]

Hallo Kuschel1234,

hat eine Zelle den Datentyp Bild, kann diese die Dateiformate bmp und jpg darstellen.

Automatisiert über InterRun geht das aber erst ab dem kommenden Update und zwar so:

Code: Alles auswählen

Procedure Schalter1_OnClick
  Tabelle1.Cell(0,0).FileName = "C:\Bild.Bmp"
  Tabelle1.Refresh
EndProcedure

Die Symbole von EuroKass kann man über

Code: Alles auswählen

Procedure Schalter1_OnClick
  Tabelle1.ImageList = Programmbilderliste
  Tabelle1.Cell(0,0).ImageIndex = 5
  Tabelle1.Cell(0,1).ImageIndex = 6
  Tabelle1.Refresh
EndProcedure

zuweisen.

Viele Grüße,
Dirk Schauries

[Kuschel1234]

Vielen Dank für die Antwort.

Das hat mir schon sehr geholfen.

Nur noch eine kurze Frage kann man bei "ImageList" auch eine andere Symbolliste als die Programmsymbolliste auswählen wie z.B. die Kassenbuchsymbolliste?

Liebe Grüße
Kuschel1234

[Team Schauries]

Hallo Kuschel1234,

in der kommenden Version sind die Programmbilderlisten mit

Application.ImageList16x16 (oder Application.ImageList als default)
Application.ImageList32x32
Application.ImageList48x48
Application.ImageList64x64
Application.ImageList128x128
Contacts.ImageList
Accounts.ImageList

ansprechbar.

Und hier noch mal ein Beispiel, wie man ein komplettes Bilderverzeichnis von der Festplatte in eine Tabellenspalte einlesen kann:

Code: Alles auswählen

Procedure Schalter1_OnClick

  Var A,I : Integer
  Var Files : Object

  Files.FillObject("IFile","C:\Bilder","*.Jpg")

  Tabelle1.RowCount = 0
  For I = 0 To Files.PropertyCount - 1
    Tabelle1.Rows.Add
    Tabelle1.Cell(0,I).FileName = Files.GetProperty(I)
  Next
  Tabelle1.Refresh

EndProcedure

Viele Grüße,
Dirk Schauries