TStyleHeader

[static_cast]

Hi,

habe ebend vor langer weile mal meine TStyleHeader VCL fertiggestellt könnt ihr euch ja mal anschaun und was zu sagen.

Anbei der Source und eine Beispiel App.

Grüsse
Daniel

[edit]
Hier noch die Styles nach reinfolge in der Bsp App:

1. ISS 10 STD Style
2. ISS 10 XP Style
3. Windows 2000 Style
4. Windows 2003 Style
5. Windows XP Help Style
6. Windows 2003 Help Style
7. Windows XP SP2 Security Center Style

noch ein nachtrag:
ich habe ein Style vergessen es sind ja 8st, der Windows XP Style selber, hab ich auch im sample vergessen

So version 1.2 ist fertig, weiter unten zum download, mit changelog

Neue version 2.21 mit einigen Fixes und ganz neu, der Animation

[/edit]

[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

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 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

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;