Wie Start-Icon ins Programm holen?

[Daniel B]

Hi,

wie kann man sich das Start-Icon, als Icon in die eigene Anwendung holen? Ich mein jetzt nicht den Start-Button an sich als Icon reinladen, das Problem ist das manche Themes benutzen und sich dann das grüne Icon nicht so toll machen würde.

[Go2EITS]

Ich glaube Du meinst, wenn Dein Prog aufgerufen wird und die Form erscheint,
willst Du sicherstellen, dass Dein Icon erscheint.

Füge in der Eigenschaft FormCreate folgendes ein:
z. B. Form1.icon:='C:\myIcon.ico' ein.

Dies läd Dir Dein eigenes Icon ein.

CU! Go2EITS

[Daniel B]

Nein, ich möchte den Start-Button auf meiner Form haben, da es eben themes gibt, kann ich nicht den grünen nehmen, also muss ich irgendwo im System den aktuellen auslesen und so in einem Image auf meiner Form anzeigen.

[NicoDE]

Selbst Microsoft verwendet im Eigenschaftsdialog des Startmenüs einen Screenshot (wäre wohl zuviel Arbeit gewesen)...

[Daniel B]

Ich will doch nicht mein eigenes drin haben, sondern immer das was der User hat, dem seins möchte ich doch haben, was soll ich da mit meinem Screenshot?

Das Bild soll bei Programmstart in ein Image geladen werden, und zwar das von dem System auf welchem es läuft...

[Sascha L]

Er meint damit, dass du dann beim Start ein Screenshot vom Start-Button erstellen könntest und diesen dann reinladen könntest. So hättest du immer den richtigen Start-Button, den der User hat.

[Daniel B]

Dacht ich mir schon, nur habe ich gehofft das es im System auch irgendwo hinterlegt ist, welches Icon zur Zeit benutzt ist, und das Startmenü öffnen und gleich wieder schliessen ist auch nicht gerade schön und das jedesmal wenn man das Programm startet...
Es muss doch ein Pfad geben zum Icon, auch wenn es ein fremdes ist.

[chaosben]

Warum das Startmenu öffnen?

Delphi-Quellcode:

var
  SB : HWND;
  CR : TRect;
begin
  SB:=FindWindow('Shell_TrayWnd',nil);
  SB:=FindWindowEx(sb,0,'BUTTON',nil);

  Windows.GetClientRect(SB,CR);

  BitBlt(PaintBox1.Canvas.Handle,0,0,cr.Right-cr.Left,cr.Bottom-cr.Top,GetDC(Sb),0,0,SRCCOPY);
end;

[teebee]

Es gibt ja auch Leute, die haben die Taskleite "Automatisch im Hintergrund", dann geht das so nicht...

Gruß, teebee

[Daniel B]

Ja, habe es gerade ausprobiert, die Taskleiste muss sichtbar sein, klar kann ich die auf und zu klappen, aber dann habe ich dann wieder das geflaker von der drin.

[Sidorion]

Guckst Du in die Unit Themes:
Hier siehst Du erstmal einen ganzen Sack von Enums, die die Themenelemente enthalten.
Da suchst Du Dir den richtigen enum-Member raus, z.B.: tbPushButtonNormal.
Damit rufst Du dann ThemManager.GetElemetDetails auf.
Das liefert Dir ein TThemedElementDetails. Mit diesem kannst Du dann
ThemeManager.DrawElement das entsprechende Elementteil zeichnen lassen.

Ich kann Dir jetzt aber leider nicht sagen, welcher enum-Member nun für den Startknopf steht.

[chaosben]

Zitat:

Zitat von Sidorion

Ich kann Dir jetzt aber leider nicht sagen, welcher enum-Member nun für den Startknopf steht.

:-D Genau das ist das Problem. Meinen Recherchen zufolge gibt es den Startbutton nicht als ThemedObject.

Hinzu kommt noch folgendes Problem: Dieses Vorgehen funktioniert nur, wenn man ein Theme hat. Also schlecht für User wie mich. :stupid:

[Sidorion]

Na ohne Sheme zeichnest Du das Ding einfech mir DrawEdge und TextRect.....
Und obs nicht unterstützt wird ist ne andere Frage. Nur weit Borland die Konstanten nicht rausgewühlt hat.. Im Endeffekt landet das ThemeManager.Draw.. auch nur in nem Systemruf. Musst halt mal bei Microsoft in der MSDN suchen und dann halt per Hand machen ohne den ThemeManager.

[NicoDE]

Zitat:

Zitat von Daniel B

Dacht ich mir schon, nur habe ich gehofft das es im System auch irgendwo hinterlegt ist

Das ist das, was ich damit sagen wollte. Wenn es eine einfache Möglichkeit geben würde, dann hätte Microsoft sie wahrscheinlich auch verwendet.