TDigits Komponente

[surfer007]

Hallo Delphi Gemeinde,

ich hatte mal eine TDigits Komponente unter D5 im Einsatz, leider nur dcu vorhanden. Die Komponente kann Zahlen grafisch mit Bitmaps darstellen. Als Resource dient ein BMP mit den Zahlen 0-9 sowie ein Leerfeld (siehe Anhang). Da der Autor auf Anfragen nicht reagiert und die Komponente nur als D5 dcu vorliegt, meine Frage: Hat jemand den Quellcode der TDigits oder kennt jemand eine vergleichbare Komponente?

Grüsse,
Surfer007

[DeddyH]

Schau doch mal bei Torry.

[Die Muhkuh]

Wobei man die auch selbst schreiben kann, wenn man nichts anderes findet. Die Bilder scheinst Du ja zu haben.

[Bummi]

Ist bei den Jedis dabei

[mz23]

Suche mal nach einer watDigit.zip Datei auf dieser Seite:

http://decoding.narod.ru/download/co...indicator.html

dann auf den Download "Скачать." klicken...
Dauert zwar alles ein bißchen, aber die Minute kann man warten

Mfg mz23


PS: Die Komponente ist mit Delphi Quelltext

[markus5766h]

. . . oder hier :
http://www.picsoft.de/compon.htm

[divBy0]

Bei den TMS Smooth Controls ist auch so eine Anzeige dabei, für D2009 und D2010 gibts die Smooth Controls ja bei Emba als Download.

[surfer007]

Danke für die vielen Antworten!

Ich benötige eine Digits Komponente die aus dem Vorgabe-Bitmap die Zahl darstellt, nicht irgend ein Digit sondern BMP Digits.

- watDigit ist ohne BMP
- Jedi JvgDigits ist ohne BMP
- Simons TLEDDisplay ist ohne BMP
- TAdvSmoothLEDLabel ist ohne BMP

> Wobei man die auch selbst schreiben kann, wenn man nichts anderes findet.
> Die Bilder scheinst Du ja zu haben.

Ja, sieht so aus als muss ich mir das Teil selber schreiben, wobei ich noch NIE eine Komponente geschrieben habe
Ich dachte ich komme einfacher zu so einer Digits Komponente die ein BMP für die Zahlen verwendet.

Ansatz:
Property DigitsImg, vorgabe wie oben, 0-9 und Leerfeld.

Dann Copy Positionen (Rect?!) für jede Zahl berechnen.
DigitsImg.Width div 11 ist die Breite jeder Zahl
Höhe ist DigitsImg.Height
Position der 0 ist 0
Position der 1 ist 0 + 1x Breite
Position der 2 ist 0 + 2x Breite
usw...

Dann die gewünschte Zahl (Property Value) Stelle für Stelle ermitteln und copy ins sichtbare Image.
Da ich ab und zu mit GR32 arbeite (Anfänger!!!) werde ich wohl das mit GR32 Bitmap versuchen.

Ok, für ein paar Anregungen um solch eine Komponente selber zu schreiben wäre ich dankbar...

Grüsse,
Surferr007

[Klaus01]

Guten Morgen,

vielleicht geht auch dieser Weg...

TimageList mit den BMPs aller Ziffern von 0 bis 9 (16 Segment)

Die BMPs kannst Du dir ja selber machen.
Einen 16 Segement TTF Font suchen und installieren.
http://web.utanet.at/ascherst/files/asegment.ttf
http://web.utanet.at/ascherst/files/fx850.ttf

Mit einem Grafikprogramm die BMPs erstellen
und dann in die ImageList laden.

Grüße
Klaus

[rollstuhlfahrer]

Oder du zerschnippelst das Bild aus #1. Dann hast du schon alle deine BMPs. Diese kannst du dann wie schon im Post drüber angegeben in eine TImageList zusammenführen.

Bernhard