Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Entlich die Testversion: MediaCenterXXL (https://www.delphipraxis.net/13801-entlich-die-testversion-mediacenterxxl.html)

moritz 29. Dez 2003 12:56

Re: Entlich die Testversion: MediaCenterXXL
 
Wird sie heute noch erscheinen? Wahrscheinlich nein, Schade, denn die ganze Welt wartet aufgeregt auf Version 1.1, nun aucgh mit Stop, Pause und Play-Taste!

MrKnogge 29. Dez 2003 13:11

Re: Entlich die Testversion: MediaCenterXXL
 
die hat er gestern schon On gestellt, hat dazu aber n neuen Thread eröffnet. "MEdiaCenterXXL Version 1.1" oder so ähnlich.

Mirilin 29. Dez 2003 13:14

Re: Entlich die Testversion: MediaCenterXXL
 
:hi:

*verlink* Klick

mfg Tobias

MrKnogge 29. Dez 2003 13:26

Re: Danke@ MrKnogge
 
@Mirilin
Verdammt, grad wollt ich den neuen link posten :evil:

Zu Posts zu Version 1.1 (siehe link von Mirilin)

Zitat:

Zitat von mercanery
die Zeit würd ich auch in hh:mm:ss anzeigen lassen...sollte net soo das ding sein, oder?

Wäre ich auch stark dafür, überleg mal ich bin in der mitte von nem Film und muss umrechnen :freak:

Zitat:

Zitat von -homer-
Was ist denn ein Slider???

Dein Spulknopf

Zitat:

Zitat von -homer-
Was soll ich denn ansonsten schreiben (Hilfe ein/aus)???

Nö, machein Item "Hint" wenn der Hint aktiviert ist, is das item checked=true ansonsten false. (iseinfach übersichtlicher)

Zitat:

Zitat von -homer-
Kannst du mir da vielleicht eine Beschreibung geben...

Jo, mach ich (muss aber erst suchen :oops: )

MrKnogge 29. Dez 2003 15:01

Re: Entlich die Testversion: MediaCenterXXL
 
So, hier wie versprochen, n Beispiel für Drop&Drag (aber ungetestet !)

Delphi-Quellcode:
...

private
  { Private declarations }
  procedure GetDroppedFileNames(var msg : TWMDropFiles); message WM_DROPFILES;

...

procedure TForm1.GetDroppedFileNames(var msg : TWMDropFiles);
var    sFileName   : string;
        dwFileCount : cardinal;
        i           : cardinal;
        dwReqdLength : cardinal;
begin
  dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0);
  for i := 0 to dwFileCount - 1 do
  begin
    dwReqdLength := DragQueryFile(msg.Drop,i,nil,1);
    sFileName   := StringOfChar(#00,dwReqdLength+1);
    DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1);

    ListBox1.Add(filename);
  end;
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
 ...
 DragAcceptFiles(self.Handle,true);
 ...
end;

...
Sollte so funktionieren, wenn nicht, einfach noch mal melden.
Achso die Punkte bitte nicht reinschreiben, sind lücken :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:17 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz