Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi 'Visualissation' (https://www.delphipraxis.net/47947-visualissation.html)

Nils_13 18. Jun 2005 11:21


'Visualissation'
 
Hi,

wie ist es möglich eine 'Visualissation' zu programmieren. Ich weiß nur, dass man die Farbe bei einer entsprechenden 'Weite' abgeändert wird (Paintbox). Nur wie mach ich das ? Komponenten gibt es anscheinend nicht.

Luckie 18. Jun 2005 11:28

Re: 'Visualissation'
 
Was ist eine Visualissation? :gruebel:

Nils_13 18. Jun 2005 11:29

Re: 'Visualissation'
 
Liste der Anhänge anzeigen (Anzahl: 1)
Sorry, hab den Screenshot vergessen :oops:

Aenogym 18. Jun 2005 12:44

Re: 'Visualissation'
 
hi nils,

du zeichest einfach mehrere farbeverläufe in die paintbox und darüber dnan die skala. sollte nicht allzu schwer sein. die gesamtbriete der zu zeichnenden gradients nimmst du halt aus deinem eingabewert.

aenogym

Nils_13 18. Jun 2005 16:23

Re: 'Visualissation'
 
warum kommt hier eine ungültige Gleitkommaoperation ?
Delphi-Quellcode:
{ ... }
  if Data[1] > max then
    begin
      Max := Data[1];
      p.Width := Round(max);
    end;
  end;
  p.Width := Round(Data[1]);
{ ... }

Daniel G 18. Jun 2005 16:24

Re: 'Visualissation'
 
Zitat:

Zitat von Nils_13
warum kommt hier eine ungültige Gleitkommaoperation ?
Delphi-Quellcode:
{ ... }
  if Data[1] > max then
    begin
      Max := Data[1];
      p.Width := Round(max);
    end;
  end;
  p.Width := Round(Data[1]);
{ ... }

Ehrliche Antwort?
Keine Ahnung!

Von welchem Typ sind denn die Variablen? Das müsstest du schon dazu sagen. Durch 0 zu teilen scheinst du ja nicht zu tun...

Nils_13 18. Jun 2005 16:28

Re: 'Visualissation'
 
Delphi-Quellcode:
  private
    { Private-Deklarationen }
    Max: Single;

{...}

var
  data: TFFTData;
begin
    data := BassdllPlayer1.GetFFTData;
  if Data[1] > max then
    begin
      Max := Data[1];
      p.Width := Round(max);
    end;
  end;
  p.Width := Round(Data[1]);

Daniel G 18. Jun 2005 16:41

Re: 'Visualissation'
 
Hm...keine Ahnung... an welcher Stelle tritt das denn genau auf?


Da fällt mir grad was auf:

Warum kommt denn

Delphi-Quellcode:
p.Width := Round(Data[1]);
nach dem abschließenden
Delphi-Quellcode:
end;
?

Und selbst wenns andersherum sein soll:

DAnn macht die Zeile keinen Sinn mehr:

Delphi-Quellcode:
p.Width := Round(max);
weil er so oder so

Delphi-Quellcode:
 p.Width := Round(Data[1]);
zugewiesen bekommt.

Nils_13 18. Jun 2005 16:43

Re: 'Visualissation'
 
Wenn ich ein Lied öffnen will tritt der Fehler auf.

dizzy 18. Jun 2005 22:22

Re: 'Visualissation'
 
Zitat:

Wenn ich ein Lied öffnen will tritt der Fehler auf.
Mir platzt echt der Kragen. Du erwartest doch nicht allen Ernstes dass man dir auf Grund deiner Infos helfen wird, bzw. es überhaupt kann oder?
Wie könntest du mir Hilfe leisten, wenn ich dir sage: "Mein linker Hutzen tropft, das kadüngelt wenn ich pangelich sehe."? ... Richtig - garnicht. Ohne Definitionen und Kontext kann das einfach nichts werden. Lies dir deine Beiträge bitte mal durch, und zwar stelle dir dabei vor dass du kein Stück des Zusammenhangs wüsstest, wie jeder andere hier auch. Was fällt dir auf?

Entschuldigt dieses OT bitte, aber das war mir jetzt ein großes Anliegen...


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

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