TStyleHeader

[static_cast]

Okay hab es mal implementiert.

Zwei property's

Transparent (Boolean) Transparenz nutzen?
TransparentColor (TColor) Transparente Farbe.

Version 2.22 ist oben zum Download.

[fylo]

Hallo,

ich hab die Komponente mal ein wenig erweitert.

• neuer Farbstyle: hcsBlack (vertikaler Farbverlauf von "hell" schwarz bis "fast" schwarz, s.Bild)
• erweitert um die Möglichkeit auch PNG's zuverwenden
• Möglichkeit die Icons aus dem Messagedialog zu verwenden (mtWarning, mtError, usw.)
• Fehler beim Zeichnen des Commenttext korrigiert
• Package für Delphi 7

Bis jetzt nur unter Delphi 7 und WinXP gestestet :!:

[static_cast]

Huchgott das Ding ist ja asbach, was buddelst du nur für alte Threads aus ;)

Aber muss Dir sagen das sich da zwischenzeitlich noch was getan hatte, ich häng mal die Version aus dem SVN mit an da an der Kompo wohl noch Interesse besteht.

[Weazy]

gefällt mir :-D

gibts nicht noch sowas wie einen Vista Style?

[static_cast]

Ja es gibt drei Vista Styles (Bild im Anhang), imho waren es mal vier frag mich aber nicht was mit der Version passiert ist (Vista Error, der Rote fehlt).

[fylo]

Zitat:

Zitat von static_cast

Huchgott das Ding ist ja asbach, was buddelst du nur für alte Threads aus ;)

Naja das stimmt schon, aber ich finde die Komponente trotzdem irgendwie gut :thumb:

Zitat:

Zitat von static_cast

Aber muss Dir sagen das sich da zwischenzeitlich noch was getan hatte, ich häng mal die Version aus dem SVN mit an da an der Kompo wohl noch Interesse besteht.

Ich hab dann mal deine letzte Version genommen und meine Änderungen, die ich oben schon erwähnt habe, eingebaut. Besondern einen "Fehler" habe ich korrigiert:

Delphi-Quellcode:

procedure TXEStyleHeader.Paint;
.
.
.
  if (FGlyphLeft.FUse) and (Assigned(FGlyphLeft.Glyph.Graphic)) then begin // hier testen ob auch ein Bild zugewiesen ist
    Bitmap.Canvas.Draw(FGlyphLeft.FXMargin, FGlyphLeft.FYMargin, FGlyphLeft.FGlyph.Graphic);
    Inc(R.Left, 20 + FGlyphLeft.FGlyph.Width + FGlyphLeft.FXMargin); // nur den linken Rand verkleinern
  end else begin
    Inc(R.Left, 20); // nur den linken Rand verkleinern
  end;

  if (FGlyphRight.FUse) and (Assigned(FGlyphRight.Glyph.Graphic)) then begin // hier testen ob auch ein Bild zugewiesen ist
    Bitmap.Canvas.Draw(ClientRect.Right - FGlyphRight.FGlyph.Width - FGlyphRight.FXMargin, FGlyphRight.FYMargin, FGlyphRight.FGlyph.Graphic);
    Dec(R.Right, 20 + FGlyphRight.FGlyph.Width + FGlyphRight.FXMargin); // nur den rechten Rand verkleinern
  end else begin
    Dec(R.Right, 20); // nur den rechten Rand verkleinern
  end;
.
.
.
end;