Canvas transparente linien zeichnen ?!

[turboPASCAL]

Guck dir das mal an -> http://www.delphipraxis.net/internal...=485973#485973

[Luckie]

Zitat von cherry:

Wie kann ich also transparente linien zeichen?

Hast du mal überlegt, was du da willst bzw. geschrieben hast? Ich formuliere es mal etwas anders:

Zitat:

Wie kann ich eine durchsichtige Linie zeichnen?

Und das dies unsinnig ist, dürte klar sein. Dewesegen verstehe ich nicht so ganz, was du eigentlich willst.

[cherry]

Zitat von turboPASCAL:

Guck dir das mal an -> http://www.delphipraxis.net/internal...=485973#485973

Genau, das wär eine Lösung.
Nur wollte ich das ganze halt ohne Bilder machen, da man die Farbe eigentlich einstellen können sollte.

Zitat von Luckie:

... Dewesegen verstehe ich nicht so ganz, was du eigentlich willst.

Ich weiss, dass ich wohl ein bisschen für Verwirrung gesorgt habe. Deshalb habe ich ja auch ein Bild eingefügt wo man sehen kann was ich will. (siehe 2 Beiträge weiter oben.)

[cherry]

hat mir denn niemand einen tipp...
denn irgendwie habe ich mühe die Farben zu berechnen. Hier der Wichtigste Ausschnitt...
(Versuch die Schrift auszublenden...[alternativ]) <- siehe Bild weiter oben. Der ganze Code ist ebenfalls weiter oben gepostet.

Delphi-Quellcode:

procedure TSSText.TimerAction(Sender: TObject);
begin
  if tx <= 0 - Canvas.TextHeight(FLines.Strings[0]) * FLines.Count then
    tx := height;
  tx := tx - 1 - FSpeed;
  Repaint;
end;

procedure TSSText.PaintText;
var
  R,G,B,I: Integer;
  txt: String;
begin
  if FLines.Count > 0 then
  begin
    Canvas.Brush.Style := bsClear;

    for I := 0 to FLines.Count -1 do
    begin
      if tx + Canvas.TextHeight(FLines.Strings[I]) * I < 50 then
      begin
      R := Round(GetRValue(Color1) + ((GetRValue(Canvas.Font.Color) - GetRValue(Color1)) *
        I / (50-1)));
      G := Round(GetGValue(Color1) + ((GetGValue(Canvas.Font.Color) - GetGValue(Color1)) *
        I / (50-1)));
      B := Round(GetBValue(Color1) + ((GetBValue(Canvas.Font.Color) - GetBValue(Color1)) *
        I / (50-1)));
        Canvas.Font.Color := RGB(R,G,B);
      end
      else
        Canvas.Font.Color := clFontOld;
      Canvas.TextOut(10, tx + Canvas.TextHeight(FLines.Strings[0]) * I, FLines.Strings[I]);
    end;

    Canvas.Brush.Style := bsSolid;
  end;
end;

procedure TSSText.Paint;
var
  Rect: TRect;
  R, G, B, I, Y: Integer;
begin

  Width := Width;
  Height := Height;

  // Rechteck
  Canvas.Brush.Color := ColorToRGB(FColor1);
  Canvas.Rectangle(0,0,Width,height);

  // übergabeparameter Rect bereitstellen,
  // wenn Verlauf ausgewählt
  if (FGradient <> grNone) then
  begin
   Rect.Left := 0;
   Rect.Top := 0;
   Rect.Right := Width;
   Rect.Bottom := height;
  end;

  // Verlauf herstellen
  if (FGradient = grTopToBottom) then
   DrawGradientH(Canvas, FColor1, FColor2, Rect)
  else if (FGradient = grLeftToRight) then
   DrawGradientV(Canvas, FColor1, FColor2, Rect);

  PaintText;

  // Rand Zeichnen
  if (FBorder) then
  begin
   Canvas.Pen.Color := ColorToRGB(FBorderColor);
   Canvas.Brush.Style := bsClear;
   Canvas.Rectangle(0,0,Width,height);
   Canvas.Rectangle(width,0,Width,height);
  end;

end;

[Pfoto]

Hallo cherry,

ich benutze u.a. folgendes Komponenten-Pack:
http://www.pegtop.de/delphi/componen...creenshots.htm

Dort gibt es einige Komponenten, mit denen auch sehr komplexe
Farbverläufe erstellt werden. Der Code sieht zwar heftig aus (für mich
als "Pseudo-Programmierer"), aber vielleicht kannst du was daraus lernen.

Er verwendet keine zusätzlichen Libs wie Graphics32 o.ä., sondern erstellt die
Transparenzen von Grund auf mit eigenen Routinen.

Gruß
Jürgen

[cherry]

hy there...

So. Ich hab mich jetzt doch für GR32 und GR32_Image entschieden.
Eigentlich funktioniert fast alles wie es soll, nur ein Problem hab ich noch...

Die Komponente hat 3 Farbverläufe. Der erste bildet den Hintergrund der Komponente.
Die Zwei anderen bedecken jeweils 30px oben und unten und sind transparent. Diese dienen dem Ausblenden der Schrift.

Problem:
Mein Problem betrifft der letzte Farbverlauf, er wird nicht immer richtig dargestellt, --> siehe Bild. Dies ist abhänig von der Höhe der Komponente, soviel ist sicher. Warum das aber so passiert?! - Ich finds nicht heraus. Anbei die aktuellste Version des Codes...

Vielen Dank schon mal.

[cherry]

habs herausgefunden...
lag an der schleiffe für den Ferlauf, ich hab da falsche Werte gebraucht.
Funzt alles wies soll...
werde später das Resultat noch hochladen..