Radio Player

[Peter.K]

Also leude ich stelle euch hier meinen Radio Player vor den ich für einen Freund Programmiert habe.
Mit diesem Radio kann man nur 3 Sender Empfangen, das war beabsichtigt also nich meckern...^^
Schreibt mir einfach wie ihr ihn findet.

Edit: Es fehlt noch der Lautstärkeregler ^^ den hab ich vergessen aber der kommt noch....

[pacman1986]

... Fortsetzung folgt im nächsten Kapitel ^^

[Tumm]

wo is er denn?

[Peter.K]

sorry!!!!!!

mein PC ist abgeschmiert als ich den Beitrag gemacht habe

[Tumm]

Vom Style her find ich das Programm gut. Meine Verbesserungsvorschläge:

- Wenn die Transparnez nicht funzt wird ich die Komponente ausblenden und nich disablen, muss man erst mal drau kommen dass man damit nichts machen kann
- Das Prog sollte sich vielleicht in die Tray-Bar stopfen anstatt in die Task-Bar

Für faule ist es sicherlich gut, dass es drei Vorgabe-Sender gibt. Kann man die UKW-Frequenz auch selbst einstellen?

[Tumm]

Achso: Und das Update funzt nich

[Peter.K]

Danke für eure Vorschläge.

Das mit dem in den Tray verschieben das hab ich mir auch schon gedacht und deswegen schon eingebaut und die Updatefunktion ist inmoment auch nicht funktionfähig weil ich noch die entsprechenden Einstellungen am Server vornehmen muss bevor man Updaten kann, das ist also kein fehler vom Programm an sich.

[Hybrid666]

ikst ja krass das programm, also find ich echt stark....

sind das shoutcast streams die da laufen?

wie hast du das gemacht? (will sowas auch mal basteln xD)

[Daniel G]

Jetzt habe ich zwei Programme mit dem selben Icon in der TNA hocken.... ( => Selbes Icon )

Na ja, aber dein Player hebt sich dadurch ab, dass du den TNA - Hinweis aus dem Beispiel übernommen hast :

Zitat:

Dies ist ein TNA-Icon

Außerdem verliert das aktuelle Fenster den Fokus, wenn deine "Liedwechsel-Info" eingeblendet wird. Das ist besonders nervig, wenn man einen Text tippt...

[Nils_13]

Zitat von Daniel G:

Außerdem verliert das aktuelle Fenster den Fokus, wenn deine "Liedwechsel-Info" eingeblendet wird. Das ist besonders nervig, wenn man einen Text tippt...

Das stimmt und lässt sich hiermit lösen:
*** Edit : Fehler im Code beseitigt. ***

Delphi-Quellcode:

procedure TfrmInfo.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Assigned(frmInfo) then
  begin
    Params.WndParent := GetDesktopWindow;
    Params.Style := WS_CHILD;
  end;
end;

procedure TfrmInfo.FormShow(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE,
  GetWindowLong(Handle, GWL_EXSTYLE) or
  WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;