TNA - nur Icons?

[Kernel32.DLL]

Tachen alle zusammen!

Ich wollte mal wissen, ob man in die TNA nur Icons setzen kann und wenn ja, wie man dann eine ständig wechselnde Anzeige von Zahlen realisieren könnte(=> z.B. die Temperaturanzeige bei Motherboard Monitor).

Wenn in die TNA auch was anderes als Icons können (z.B. Text), würde ich gerne wissen, wie das geht.

Auf's PSDK kann ich leider nicht zurückgreifen. 350MB mit Modem sind mir zuviel.

BTW: ich progge non-vcl

mfg
Daniel

[sakura]

Zitat von Kernel32.DLL:

Auf's PSDK kann ich leider nicht zurückgreifen. 350MB mit Modem sind mir zuviel.

Einfach mit http://msdn.microsoft.com online durchstöbern.

Und nein, es gehen nur Icons, aber die kann man austauschen und damit die Texte simulieren.

......

[Kernel32.DLL]

Zitat:

Einfach mit http://msdn.microsoft.com online durchstöbern.

Jepp, kommt sofort in mein Firefox-Favoriten Ordner.

[Neuni]

Ich glaube mit CoolTrayIcon kann man die auch während das Programm läuft austauschen!

[sakura]

@Neuni: Wer lesen kann ist klar im Vorteil

Zitat von Kernel32.DLL:

BTW: ich progge non-vcl

......

[Neuni]

Ups
Bin son typischer Oberflächenleser

[Alexander]

Aber auch per Non-VCL ist das nicht so das Problem, zumindest das austauschen nicht.
Du musst im Prinip dir die Texte nur selber malen und dann das Icon erstellen.

[Kernel32.DLL]

Ja schon, aber bei einer dreistelligen Zahl kann ich ja nicht für alle 1000 zustände (000-999) ein eigenes Icon basteln.

Am besten wäre es, wenn ich für die Ziffern 0 bis 9 jeweils ein Icon mit der entsprechenden Ziffer basteln würde und das dann zu einem großen Icon zusammensetzen würde, wenn das Programm läuft und die jeweilige Zahl benötigt wird (z.B. "123" aus den (Teil)Icons "1","2","3").

Aber genau da (beim zusammensetzen) liegt das Problem: Ich habe (noch) nicht die leiseste Ahnung, wie ich das machen soll.

[Alexander]

Du könntest die auch alle dynamisch erstellen lassen
Du hast ja mit dem Canvas die Möglichkeit auch etwas auf Bildern zu malen/schreiben, nur weiß ich nicht, in wie fern das auch Non-VCL zu trifft, aber da wird es sicherlich auch etwas in der Art geben ...

[Luckie]

So geht es dynamisch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
  Icon: TIcon;
  IconInfo: TIconInfo;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Width := 16;
    Bmp.Height := 16;
    Bmp.Canvas.TextOut(4, 1, '1');
    Icon := TIcon.Create;
    try
      IconInfo.fIcon := True;
      IconInfo.hbmMask := Bmp.Handle;
      IconInfo.hbmColor := Bmp.Handle;
      Icon.Handle := CreateIconIndirect(IconInfo);
      Form1.Icon := Icon;
    finally
      FreeAndNil(Icon);
    end;
  finally
    FreeAndNil(Bmp);
  end;
end;

Nur an den Farben muss man etwas arbeiten.