Autor Beitrag
Frühlingsrolle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2274
Erhaltene Danke: 419

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Mi 21.03.18 01:24 
Hallo Forum

Allgemeines:

TfrCheckRadioControl ist eine visuelle Delphi Komponente, die im Gegensatz zu den Standardkomponenten (TCheckBox / TRadioButton) und den Jedi-Komponenten (TJvCheckBox / TJvRadioButton) folgendes kann:

- sowohl eine CheckBox, als auch einen RadioButton darstellen
Eigenschaft: .BoxType
Typ: TBoxType (Enumeration)
Werte: (btCheck, btRadio)
- die Hintergrundfarbe ändern
Eigenschaft: .Color
Typ: TColor
- die Schriftfarbe ändern
Eigenschaft: .Font.Color
Typ: TColor
- die Farbe des Fokus-Rahmens ändern
Eigenschaft: .FocusedRectColor
Typ: TColor
- die Beschriftung (.Caption) mittig, links- oder rechtsbündig ausrichten
Eigenschaft: .Alignment
Typ: TAlignment (Enumeration)
Werte: (taCenter, taLeftJustify, taRightJustify)
- die Box nach links, oben, rechts oder nach unten ausrichten
Eigenschaft: .BoxAlignment
Typ: TBoxAlignment (Enumeration)
Werte: (baLeft, baTop, baRight, baBottom)
- im klassischen oder im modernen Theme angezeigt werden
Eigenschaft: .BoxStyle
Typ: TBoxStyle (Enumeration)
Werte: (bsWinME, bsWinXP)
- die Box-Größe festlegen
Eigenschaft: .BoxSize
Typ: Byte
Achtung: ist .BoxStyle = bsWinXP, dann geht die Größe bis 13!
- die Box-Größe automatisch anpassen
Eigenschaft: .AllowBoxScale
Typ: Boolean
- eine Grafik auf den Hintergrund zeichnen, die automatisch proportional angepasst wird
Eigenschaft: .Image
Typ: TPicture
- die Grafik über den gesamten Hintergrund strecken
Eigenschaft: .StretchImage
Typ: Boolean
>> Neu <<
- die Grafik mittig, links- oder rechtsbündig ausrichten
Eigenschaft: .ImageAlignment
Typ: TAlignment (Enumeration)
Werte: (taCenter, taLeftJustify, taRightJustify)

Voraussetzung:

Für Windows (32 und 64bit) Desktop-Anwendungen.
Minimum:
- Windows 2000 / Windows 2000 Server
- Delphi6/7. Für Delphi5 und früher, bitte ein eigenes Package anlegen.

Funktionsweise:

delphi_tfrcheckradiocontrol1

ausblenden volle Höhe Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
var
  AFont: TFont;
  AColor: TColor;
begin
  AFont := TFont.Create;
  try
    AColor := clWhite;
    AFont.Color := clBlue;
    AFont.Style := [fsBold, fsItalic];

    // Standard
    CheckBox1.Color    := AColor;
    CheckBox1.Font.Assign(AFont);
    RadioButton1.Color := AColor;
    RadioButton1.Font.Assign(AFont);
    // Jedi
    JvCheckBox1.Color    := AColor;
    JvCheckBox1.Font.Assign(AFont);
    JvRadioButton1.Color := AColor;
    JvRadioButton1.Font.Assign(AFont);
    // TfrCheckRadioControl
    frCheckRadioControl1.BoxStyle := bsWinXP;
    frCheckRadioControl1.BoxType  := btCheck;
    frCheckRadioControl2.BoxStyle := bsWinXP;
    frCheckRadioControl2.BoxType  := btRadio;

    frCheckRadioControl1.Color := AColor;
    frCheckRadioControl1.Font.Assign(AFont);
    frCheckRadioControl2.Color := AColor;
    frCheckRadioControl2.Font.Assign(AFont);
  finally
    AFont.Free;
  end;
end;

delphi_tfrcheckradiocontrol2

ausblenden volle Höhe Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
var
  AColor: TColor;
  imgFile: string;
begin
  AColor := clYellow;
  imgFile := 'D:\Grafik.png';

  // 1.
  frCheckRadioControl1.BoxStyle          := bsWinME;
  frCheckRadioControl1.BoxType           := btCheck;
  frCheckRadioControl1.Alignment         := taLeftJustify;
  frCheckRadioControl1.BoxAlignment      := baLeft;
  frCheckRadioControl1.ImageAlignment    := taLeftJustify;
  frCheckRadioControl1.Color             := AColor;
  frCheckRadioControl1.Image.LoadFromFile(imgFile);
  // 2.
  frCheckRadioControl2.BoxStyle          := bsWinME;
  frCheckRadioControl2.BoxType           := btRadio;
  frCheckRadioControl2.Alignment         := taCenter;
  frCheckRadioControl2.BoxAlignment      := baTop;
  frCheckRadioControl2.ImageAlignment    := taCenter;
  frCheckRadioControl2.Color             := AColor;
  frCheckRadioControl2.Image.LoadFromFile(imgFile);
  // 3.
  frCheckRadioControl3.BoxStyle          := bsWinXP;
  frCheckRadioControl3.BoxType           := btCheck;
  frCheckRadioControl3.Alignment         := taRightJustify;
  frCheckRadioControl3.BoxAlignment      := baRight;
  frCheckRadioControl3.ImageAlignment    := taRightJustify;
  frCheckRadioControl3.Color             := AColor;
  frCheckRadioControl3.Image.LoadFromFile(imgFile);
  // 4.
  frCheckRadioControl4.BoxStyle          := bsWinXP;
  frCheckRadioControl4.BoxType           := btRadio;
  frCheckRadioControl4.Alignment         := taCenter;
  frCheckRadioControl4.BoxAlignment      := baBottom;
  frCheckRadioControl4.ImageAlignment    := taCenter;
  frCheckRadioControl4.Color             := AColor;
  frCheckRadioControl4.Image.LoadFromFile(imgFile);
  // 5.
  frCheckRadioControl5.BoxStyle          := bsWinME;
  frCheckRadioControl5.BoxType           := btCheck;
  frCheckRadioControl5.Alignment         := taCenter;
  frCheckRadioControl5.BoxAlignment      := baLeft;
  frCheckRadioControl5.ImageAlignment    := taCenter;
  frCheckRadioControl5.Color             := AColor;
  frCheckRadioControl5.Image.LoadFromFile(imgFile);
  frCheckRadioControl5.AllowBoxScale     := true;
  frCheckRadioControl5.StretchImage      := true;
  // 6.
  frCheckRadioControl6.BoxStyle          := bsWinXP;
  frCheckRadioControl6.BoxType           := btRadio;
  frCheckRadioControl6.Alignment         := taCenter;
  frCheckRadioControl6.BoxAlignment      := baLeft;
  frCheckRadioControl6.Color             := AColor;
  frCheckRadioControl6.BoxSize           := 10;
  frCheckRadioControl6.FocusedRectColor  := clRed;
end;


Sollten Mängel auftreten oder Verbesserungsvorschläge vorliegen, so lasst es mich wissen.
Danke für's Lesen und die anschließende Nutzung. ;)
Einloggen, um Attachments anzusehen!
_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)


Zuletzt bearbeitet von Frühlingsrolle am Di 03.04.18 09:01, insgesamt 5-mal bearbeitet
Frühlingsrolle Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2274
Erhaltene Danke: 419

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Mi 21.03.18 01:35 
[#] Korrekturen

Neu!
002 : Die Methoden DrawImage() und DrawCaption() wurden bearbeitet. Die Grafik sowie die Beschriftung werden nun vertikal-zentriert gezeichnet.

001 : Die Methode IsBeforeXP() wurde korrigiert, sowie die Methoden DrawImage(), DrawCaption() und DrawFocusedRect() vereinfacht.

[#] Erweiterungen

Neu!
002 : Die Eigenschaft .ImageAlignment wurde hinzugefügt.

001 : Folgende Methoden und Eigenschaften sind dazu gekommen:
- BoxRect()
- FocusedRect()
- .AllowBoxScale
- .Image
- .StretchImage

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)


Zuletzt bearbeitet von Frühlingsrolle am Di 03.04.18 07:20, insgesamt 2-mal bearbeitet
Frühlingsrolle Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2274
Erhaltene Danke: 419

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Do 29.03.18 18:16 
Eine neue Version (20180329) steht zur Verfügung.
Erweiterungen / Korrekturen siehe 2.Beitrag !

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)
Frühlingsrolle Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2274
Erhaltene Danke: 419

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Di 03.04.18 07:21 
Eine neue Version (20180403) steht zur Verfügung.
Erweiterungen / Korrekturen siehe 2.Beitrag !

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)