Komponente: noch grün hinter den Ohren

[DeddyH]

Schau Dir einmal SHIFT-CTRL-C an (allerdings abhängig von Deiner Delphi-Edition/Version).

[SvenLittkowski]

Vielen Dank für alle bisherigen Antworten, Ihr alle habt mir wesentlich weitergeholfen. Hier der Code, wie er jetzt ist:

unit ColorMixer;

Code:

interface

  uses
    SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

  type
    TColorMixer=class(TComponent)
    private
      FColor1_Original:          TColor;
      FColor2_Added:             TColor;
      FMixStrengthPercentage:    Byte;
      FColor3_Result:            TColor;
      SetColor1_Original:        TColor;
      SetColor2_Added:           TColor;
      SetFMixStrengthPercentage: Byte;
    protected
      function Colorize(Sender: TObject; ColorOriginal, ColorAdded: TColor; PercentageStrength: Byte): TColor;
    public
      constructor Create( AOwner: TComponent); override;
    published
      property Color1_Original:       TColor read    FColor1_Original       write  SetColor1_Original        default clBlack;
      property Color2_Added:          TColor read    FColor2_Added          write  SetColor2_Added           default clWhite;
      property MixStrengthPercentage: Byte   read    FMixStrengthPercentage write  SetFMixStrengthPercentage default 50;
      property Color3_Result:         TColor read    FColor3_Result         default clGray ;
    end;

  procedure Register;

implementation

  constructor TColorMixer.Create(AOwner: TComponent);
  begin
   inherited Create(AOwner);      
  end;

  function TColorMixer.Colorize(Sender: TObject; ColorOriginal, ColorAdded: TColor; PercentageStrength: Byte): TColor;
  var
   Color1, Color2:                         LongInt;
   ValueR, ValueG, ValueB, Value1, Value2: Byte;
  begin
   PercentageStrength:=Round(2.55*PercentageStrength);
   Color1:=ColorToRGB(ColorOriginal);
   Color2:=ColorToRGB(ColorAdded);
   Value1:=Byte(Color1);
   Value2:=Byte(Color2);
   ValueR:=PercentageStrength*(Value1-Value2) shr 8+Value2;
   Value1:=Byte(Color1 shr 8);
   Value2:=Byte(Color2 shr 8);
   ValueG:=PercentageStrength*(Value1-Value2) shr 8+Value2;
   Value1:=Byte(Color1 shr 16);
   Value2:=Byte(Color2 shr 16);
   ValueB:=PercentageStrength*(Value1-Value2) shr 8+Value2;
   Result:=(ValueB shl 16)+(ValueG shl 8)+ValueR;
  end;

  procedure Register;
  begin
   RegisterComponents('Sven Littkowski`s Best',[TColorMixer]);
  end;

end.

Die Komponente läßt sich jetzt zwar kompilieren, aber es sind nach Einfügen auf einem Formular nur die zwei zu mischenden Farbfelder sichtbar sowie das Mischungsverhältnis, und auch bei versuchtem Ändern in andere Farben bleiben sie schwarz.

Was ich aber will, ist zu ereichen, daß die Farben geändert werden können, und das auch die resultierende Farbe sofort nach Setzen der zu mischenden Farben und des Farbverhältnisses im Objektinspektor angezeigt wird.

[himitsu]

FColor1_Original und SetColor1_Original sind zwei unterschiedliche Felder.

Wenn du auf ein Blatt was draufschreibst, dann steht das doch auch nicht automatisch auf einem anderem Blatt mit drauf, so daß man dort das Geschriebene wieder ablesen könnte.


Ich empfehle einfach mal irgendein Tutorial zum Aufbau von Klassen oder gar eines für die Komponentenentwicklung zu lesen und abzuarbeiten.


PS:
Getter = eine Funktion, welche einen Wert an ein Property weitergibt
Setter = eine Prozedur, welche den Wert von einem Property speicher
Felder = eine Variable in einer Klasse
Property = eine öffentliche Schnittstelle (virtuelles Feld), welche man auf Felder, Getter oder Setter umleitet.

PSS: wir haben auch eine [DELPHI]-Code-Tag (der Button mit dem Delphi-Helm)

[SvenLittkowski]

Ja, Kritik angenommen. Du hast sehr Recht, im Grudne genommen sollte ich erst mal etwas darüber lesen. Werde dies auch nachholen, da ich dies auch so sehe.

Danke für die Auflistung der Prozedur- oder Funktionsnamen. Ich werde sie gleich mal ausprobieren. Will die Komponente noch heute fertigstellen. Ich bin eher der Mensch, der Anhand praktischer Übungen lernt. Lesen tue ich auch gerne, aber das Verständnis kommt eher beim praktischen Experimentieren, auch das Interesse übrigens.

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1080882)

wir haben auch eine [DELPHI]-Code-Tag (der Button mit dem Delphi-Helm)

Kennen wird er die, hat er auch schon einmal benutzt (sogar ganz bewusst, weil nachträglich editiert)
http://www.delphipraxis.net/1079734-post23.html
War aber wohl mehr ein Erlkönig :mrgreen:

[SvenLittkowski]

Hier ist wieder einmal ein Update meines gegenwärtigen (widerwärtigen?) Codes:

Delphi-Quellcode:

unit ColorMixer;

interface

  uses
    SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

  type
    TColorMixer=class(TComponent)
    private
      FColor1_Original:         TColor;
      FColor2_Added:            TColor;
      FMixStrengthPercentage:   Byte;
      FColor3_Result:           TColor;
    protected
      procedure SetColor1_Original(Value: TColor);
      procedure SetColor2_Added(Value: TColor);
      procedure SetMixStrengthPercentage(Value: Byte);
      procedure SetColor3_Result(Value: TColor);
      function Colorize: TColor;
    public
      constructor Create( AOwner: TComponent); override;
    published
      property Color1_Original:       TColor read FColor1_Original       write SetColor1_Original       default $00000000;
      property Color2_Added:          TColor read FColor2_Added          write SetColor2_Added          default $00FFFFFF;
      property MixStrengthPercentage: Byte   read FMixStrengthPercentage write SetMixStrengthPercentage default 50;
      property Color3_Result:         TColor read FColor3_Result         write SetColor3_Result         default $00888888;
    end;

  procedure Register;

implementation

  constructor TColorMixer.Create(AOwner: TComponent);
  begin
   inherited Create(AOwner);
  end;

  procedure TColorMixer.SetColor1_Original(Value: TColor);
  begin
   if Value<>FColor1_Original then
   begin
    FColor1_Original:=Value;
   end;
  end;

  procedure TColorMixer.SetColor2_Added(Value: TColor);
  begin
   if Value<>FColor2_Added then
   begin
    FColor2_Added:=Value;
   end;
  end;

  procedure TColorMixer.SetMixStrengthPercentage(Value: Byte);
  begin
   if Value<>FMixStrengthPercentage then
   begin
    FMixStrengthPercentage:=Value;
   end;
  end;

  procedure TColorMixer.SetColor3_Result(Value: TColor);
  begin
   if Value<>FColor3_Result then
   begin
    FColor3_Result:=Colorize;
   end;
  end;

  function TColorMixer.Colorize: TColor;
  var
   Color1, Color2:                         LongInt;
   ValueR, ValueG, ValueB, Value1, Value2: Byte;
  begin
   MixStrengthPercentage:=Round(2.55*MixStrengthPercentage);
   Color1:=ColorToRGB(Color1_Original);
   Color2:=ColorToRGB(Color2_Added);
   Value1:=Byte(Color1);
   Value2:=Byte(Color2);
   ValueR:=MixStrengthPercentage*(Value1-Value2) shr 8+Value2;
   Value1:=Byte(Color1 shr 8);
   Value2:=Byte(Color2 shr 8);
   ValueG:=MixStrengthPercentage*(Value1-Value2) shr 8+Value2;
   Value1:=Byte(Color1 shr 16);
   Value2:=Byte(Color2 shr 16);
   ValueB:=MixStrengthPercentage*(Value1-Value2) shr 8+Value2;
   Result:=(ValueB shl 16)+(ValueG shl 8)+ValueR;
  end;

  procedure Register;
  begin
   RegisterComponents('Sven Littkowski`s Best',[TColorMixer]);
  end;

end.

Die Komponente läßt sich kompilieren und in die Delphi-Komponentenleiste einfügen, nur ... bewirken tut sich halt noch nichts, ha ha ha!

Probleme:
- Komponente soll im Objektinspektor gleich beim Farbändern die "Color3_Result" aktualisieren.
- Alle drei Farben werden trotz eigener Default-Werte immer als clBlack angezeigt, der Mixwert immer als 0 (statt 50).
- Kann das (unnötige) Wählen einer Farbe für "Color3_Result" blockiert werden?
- Will ein eigenes Icon für meine Komponente in die Komponentenleiste von Delphi einbinden.

PS
Sir Rufo, jaaaa, jetzt habe ich's getan, ha ha ha!

[Bummi]

- Komponente soll im Objektinspektor gleich beim Farbändern die "Color3_Result" aktualisieren.

>> einfach Colorize, wobei in Deinem Code die Resultfarbe gar nicht gesetzt wird, in den Settern aufrufen...oder besser den den Getter der ReultFarbe geich an Colorize hängen

- Alle drei Farben werden trotz eigener Default-Werte immer als clBlack angezeigt, der Mixwert immer als 0 (statt 50).
>>http://mc-computing.com/languages/De...roperties.html

- Kann das (unnötige) Wählen einer Farbe für "Color3_Result" blockiert werden?
>>den Setter entfernen

- Will ein eigenes Icon für meine Komponente in die Komponentenleiste von Delphi einbinden.
>> http://mc-computing.com/languages/delphi/Components.htm

[Jumpy]

Du musst deine Setter anpassen, das mit ihnen auch Color 3 neu berechnet wird, was ja Colorize macht:

Delphi-Quellcode:

procedure TColorMixer.SetColor1_Original(Value: TColor);
  begin
   if Value<>FColor1_Original then
   begin
    FColor1_Original:=Value;
    FColor3_Result:=Colorize;
   end;
  end;

Der Setter für Color 3 macht keinen Sinn, da Color drei ja nicht gesetzt werden soll, sondern nur berechet, was ja jetzt die Setter machen, wenn du sie wie oben änderst. Also weg mit

Delphi-Quellcode:

SetColor3_Result(Value: TColor)

und natürlich die property entsprechend anpassen.


[Edit]
Bummi war schneller. Kann ich aber gleich selber eine Frage anschieben:

Zitat:

Zitat von Bummi (Beitrag 1080996)

...oder besser den den Getter der ReultFarbe geich an Colorize hängen

Ich würde das so interpretieren, dass es das Feld/Attribut für Color3 gar nicht geben muss, sondern nur eine "read only property" Color3, die jeweils berechnet wird. Also nur das Ergebnis von Colorize zurückliefert. Ginge das auch? In einer normalen Klasse denk ich mal ja, aber auch bei etwas das im Objektinspektor angezeigt wird? Werden da Aktualisierungen einer der anderen Farben direkt weitergereicht?

[Bummi]

Zitat:

Ich würde das so interpretieren, dass es das Feld/Attribut für Color3 gar nicht geben muss, sondern nur eine "read only property" Color3, die jeweils berechnet wird. Also nur das Ergebnis von Colorize zurückliefert. Ginge das auch?

Ja geht und so hatte ich aus gemeint...

[SvenLittkowski]

Vielen Dank für die Links. Ich hatte mir die Links
- http://mc-computing.com/languages/delphi/Components.htm
- http://mc-computing.com/languages/delphi/Resources.html
durchgelesen und versucht, in meiner Unit umzusetzen.

Hier erstmal ein Update des gegenwärtigen Codes:

Delphi-Quellcode:

unit ColorMixer;

interface

  uses
    SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

  type
    TColorMixer=class(TComponent)
    private
      FColor1_Original:         TColor;
      FColor2_Added:            TColor;
      FMixStrengthPercentage:   Byte;
      FColor3_Result:           TColor;
    protected
      procedure SetColor1_Original(Value: TColor);
      procedure SetColor2_Added(Value: TColor);
      procedure SetMixStrengthPercentage(Value: Byte);
      procedure SetColor3_Result(Value: TColor);
      function Colorize: TColor;
    public
      constructor Create( AOwner: TComponent); override;
    published
      property Color1_Original:       TColor read FColor1_Original       write SetColor1_Original       stored true default $00000000;
      property Color2_Added:          TColor read FColor2_Added          write SetColor2_Added          stored true default $00FFFFFF;
      property MixStrengthPercentage: Byte   read FMixStrengthPercentage write SetMixStrengthPercentage stored true default 50;
      property Color3_Result:         TColor read FColor3_Result                                        default $00888888;
    end;

  procedure Register;

//{$R ColorMixer.res}
{$R ColorMixer.dcr}

implementation

  constructor TColorMixer.Create(AOwner: TComponent);
  var Filename, s: String;
  begin
   inherited Create(AOwner);
   Color1_Original:=$00000000;
   Color2_Added:=$00FFFFFF;
   MixStrengthPercentage:=50;
//   Color3_Result:=$00888888;

   if  not (csDesigning in ComponentState) then
   begin
    if (Filename='')or(Filename='.') then
    begin
     s:=Application.ExeName;
     Filename:=ChangeFileExt(s,'.ini');
    end;
   end;
  end;

  procedure TColorMixer.SetColor1_Original(Value: TColor);
  begin
   if Value<>FColor1_Original then
   begin
    FColor1_Original:=Value;
    Colorize;
   end;
  end;

  procedure TColorMixer.SetColor2_Added(Value: TColor);
  begin
   if Value<>FColor2_Added then
   begin
    FColor2_Added:=Value;
    Colorize;
   end;
  end;

  procedure TColorMixer.SetMixStrengthPercentage(Value: Byte);
  begin
   if Value<>FMixStrengthPercentage then
   begin
    FMixStrengthPercentage:=Value;
    Colorize;
   end;
  end;

  procedure TColorMixer.SetColor3_Result(Value: TColor);
  begin
   if Value<>FColor3_Result then
   begin
    FColor3_Result:=Colorize;
   end;
  end;

  function TColorMixer.Colorize: TColor;
  var
   Color1, Color2:                         LongInt;
   ValueR, ValueG, ValueB, Value1, Value2: Byte;
  begin
   MixStrengthPercentage:=Round(2.55*MixStrengthPercentage);
   Color1:=ColorToRGB(Color1_Original);
   Color2:=ColorToRGB(Color2_Added);
   Value1:=Byte(Color1);
   Value2:=Byte(Color2);
   ValueR:=MixStrengthPercentage*(Value1-Value2) shr 8+Value2;
   Value1:=Byte(Color1 shr 8);
   Value2:=Byte(Color2 shr 8);
   ValueG:=MixStrengthPercentage*(Value1-Value2) shr 8+Value2;
   Value1:=Byte(Color1 shr 16);
   Value2:=Byte(Color2 shr 16);
   ValueB:=MixStrengthPercentage*(Value1-Value2) shr 8+Value2;
   Result:=(ValueB shl 16)+(ValueG shl 8)+ValueR;
  end;

  procedure Register;
  begin
   RegisterComponents('Sven Littkowski`s Best',[TColorMixer]);
  end;

end.

Ich hatte mit dem Image Editor eine Resource hergestellt, zuerst ein Icon, als dieses trotzdem kein Komponentenbild bei der Neukompilierung ergab, dann ein BMP. Nach wie vor kein schönes Bildchen bei Neukompilierung, dafür aber ein unterhaltender STACK OVERFLOW, wenn ich die Komponente auf ein Formular bringe, und das vorzeitige Schließen von Delphi, whuuaaa haa ha ha ha! :-) :-( Der wahnwitzig-tolldreiste Wahn breitet sich nun langsam in mir aus...

Es scheint aber nicht an der eingebundenen Resource zu liegen. Ich hatte wahlweise die eine und dann die andere Resource aus dem Code entfernt und auch aus Delphi's Library.