AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Komponente umstellen

Ein Thema von EWeiss · begonnen am 22. Jan 2016 · letzter Beitrag vom 27. Jan 2016
Antwort Antwort
Seite 2 von 5     12 34     Letzte » 
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: Komponente umstellen

  Alt 23. Jan 2016, 17:45
Delphi-Quellcode:
procedure TAudioVolume.SetAppVolume(Value: boolean);
begin
  if Value = FAppVolume then
    exit;

  FAppVolume := Value;
  if not FAppVolume then
     SetComponents;
end;
oder so ähnlich. AfterConstruction wäre auch noch eine Möglichkeit, aber das wird IIRC nicht immer ausgeführt (es sei denn, ich werfe da gerade etwas durcheinander).
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#12

AW: Komponente umstellen

  Alt 23. Jan 2016, 17:50
Delphi-Quellcode:
procedure TAudioVolume.SetAppVolume(Value: boolean);
begin
  if Value = FAppVolume then
    exit;

  FAppVolume := Value;
  if not FAppVolume then
     SetComponents;
end;
oder so ähnlich. AfterConstruction wäre auch noch eine Möglichkeit, aber das wird IIRC nicht immer ausgeführt (es sei denn, ich werfe da gerade etwas durcheinander).
Das Problem ist nicht das erstellen der Components sondern das auswerten des Flag FAppVolume.
Ich komme zu spät in den Setter das ist ja mein Problem.

Delphi-Quellcode:
procedure TAudioVolume.SetAppVolume(Value: boolean);
begin

  if Value = FAppVolume then
    exit;

  FAppVolume := Value;

  if FAppVolume then
  begin
    FGroupBox.Caption := 'Application';
    pbAppMeter := TProgressBar.Create(self);
    pbAppMeter.Parent := FGroupBox.Parent;
    pbAppMeter.Orientation := pbVertical;
    pbAppMeter.Max := 100;
    pbAppMeter.Min := 0;
    pbAppMeter.Smooth := true;

    lblAppPeak := TLabel.Create(self);
    lblAppPeak.Parent := FGroupBox.Parent;
    lblAppPeak.Caption := 'M';

    pbAppMeterL := TProgressBar.Create(self);
    pbAppMeterL.Parent := FGroupBox.Parent;
    pbAppMeterL.Orientation := pbVertical;
    pbAppMeterL.Max := 100;
    pbAppMeterL.Min := 0;
    pbAppMeterL.Smooth := true;

    lblAppPeakL := TLabel.Create(self);
    lblAppPeakL.Parent := FGroupBox.Parent;
    lblAppPeakL.Caption := 'L';

    tbAppVolume := TTrackBar.Create(self);
    tbAppVolume.Parent := FGroupBox.Parent;
    tbAppVolume.Orientation := trVertical;
    tbAppVolume.Max := 32;
    tbAppVolume.Min := 0;
    tbAppVolume.TickStyle := tsAuto;
    tbAppVolume.Frequency := 3;
    tbAppVolume.Position := 0;

    cbAppMute := TCheckbox.Create(self);
    cbAppMute.Parent := FGroupBox.Parent;
    cbAppMute.Caption := 'Mute';

    pbAppMeterR := TProgressBar.Create(self);
    pbAppMeterR.Parent := FGroupBox.Parent;
    pbAppMeterR.Orientation := pbVertical;
    pbAppMeterR.Max := 100;
    pbAppMeterR.Min := 0;
    pbAppMeterR.Smooth := true;

    lblAppPeakR := TLabel.Create(self);
    lblAppPeakR.Parent := FGroupBox.Parent;
    lblAppPeakR.Caption := 'R';

    tbAppVolume.Position := round((1.0 - GetVolume) * tbAppVolume.Max);
    tbAppVolume.OnChange := tbAppVolumeChange;
    cbAppMute.Checked := IsMuted;
    cbAppMute.OnClick := cbAppMuteClick;
    PostMessage(Handle, WM_SIZE, 0, 0);
  end;

end;
Ich bekomme erst ein True nachdem ich Create hinter mir gelassen habe.
Das ist aber zu spät.

Angenommen das Teil liegt schon auf der Form und ich ändere dann den Status über die Property AppVolume
dann müsste sich die Componente anhand der im Setter eingestellten werte ändern.
Tut es aber nicht so wie es soll.


gruss

Geändert von EWeiss (23. Jan 2016 um 17:55 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Komponente umstellen

  Alt 23. Jan 2016, 18:01
In den Setter kommst Du, sobald der Wert der Property gesetzt wird. Ob aus dem Objektinspektor heraus oder per Code ist dabei egal, außer dass beim Objektinspektor der ComponentState auch csDesigning enthält, falls Dir das etwas nützt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#14

AW: Komponente umstellen

  Alt 23. Jan 2016, 19:00
Er springt nicht in den Setter im Design mode so das ich testen kann woran das liegt.
Also wenn ich die property im Objektinspektor ändere.

gruss
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Komponente umstellen

  Alt 23. Jan 2016, 19:17
Hast Du das Package auch neu installiert?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#16

AW: Komponente umstellen

  Alt 23. Jan 2016, 19:36
Hast Du das Package auch neu installiert?
JO
Der Vorgang ist wie folgt.

Addiere ich die Komponente dann ist alles in Ordnung.
Schalte ich jetzt um also auf AppVolume dann ändert sich das Aussehen entsprechend und ist auch in Ordnung
Das selbe spiel zurück das ist auch in Ordnung.

Schließe ich die Form und öffne diese anschließend wieder dann ist alles Durcheinander.
So als wenn die Property nicht gespeichert würde.

Es geht um die Ansicht im Designer

gruss
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#17

AW: Komponente umstellen

  Alt 23. Jan 2016, 19:41
Dafür ist soweit ich weiß Delphi-Referenz durchsuchenSetSubComponent zuständig.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#18

AW: Komponente umstellen

  Alt 23. Jan 2016, 20:11
Dafür ist soweit ich weiß Delphi-Referenz durchsuchenSetSubComponent zuständig.
Danke dir leider bringt mir das auch nichts.
Wenn du mal reinschauen willst kann ich es hochladen.

gruss
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#19

AW: Komponente umstellen

  Alt 24. Jan 2016, 11:15
Leider funktioniert das mit den property im Designer nicht.
Habe es deshalb so geändert dass das Anwendungs Volumen (Ansicht) erst zur Laufzeit geändert wird.
Dafür weise ich der AudioVolume5 einfach AppVolume zu.

AudioVolume5.AppVolume := True
Volumen 1 -> 4 werden dann für die Geräte verwendet wie auch immer.

Delphi-Quellcode:
AudioVolume1.SelectAudioDevice(I);
AudioVolume2.SelectAudioDevice(1);
AudioVolume3.SelectAudioDevice(2);
AudioVolume4.SelectAudioDevice(3);
Auch diese werden dann erst zur Laufzeit (Ansicht) geändert.

gruss
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.286 Beiträge
 
Delphi 11 Alexandria
 
#20

AW: Komponente umstellen

  Alt 24. Jan 2016, 12:30
Es gibt noch die Methode Loaded, die nach dem Laden der Eigenschaften ausgeführt wird. Wenn man im Objektinspektor eingestellte Eigenschaften verwenden will ohne im Setter jedesmal etwas zu aktualisieren, kann man diese überschreiben. Dann sind alle Eigenschaften bereits gesetzt.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:45 Uhr.
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