hi,
ich habe eine Komponente geschrieben, die es ermöglicht eine Liste von Checkboxen zu erstellen, die etwas schicker aussehen, als eine standard Checkboxlist.
Siehe die angehängten Bilder.
Die Units sind von mir (bis auf compilers.inc) und in ANSI und Unicode aufgeteilt.
So ziemlich alles ist auf englisch Kommentiert und auch mit Beispielen versehen.
Die verwendete Lizenz ist
Creative Commons
# Namensnennung. Sie müssen den Namen des Autors/Rechtsinhabers nennen.
# Keine kommerzielle Nutzung. Dieser Inhalt darf nicht für kommerzielle Zwecke verwendet werden.
# Weitergabe unter gleichen Bedingungen. Wenn Sie diesen Inhalt bearbeiten oder in anderer Weise umgestalten, verändern oder als Grundlage für einen anderen Inhalt verwenden, dann dürfen Sie den neu entstandenen Inhalt nur unter Verwendung identischer Lizenzbedingungen weitergeben.
Zur Installation:
Erstelle oder verwende ein Package, in das du eine oder beide Units einträgst. Danach installierst du das Paket und so kannst du die Komponente(n) in der Standardkomponentenleiste auswählen.
Für die Unicodevariante muss der Source-Pfad zu den TNTControls in den Paketoptionen eingetragen sein.
Hier ein Überblick über die öffentlichen Teile:
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: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86:
| public constructor Create(AOwner: TComponent); override; destructor Destroy; override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
procedure UpdateItems;
function GetCheckBoxNameIndex(Name : WideString) : Integer;
property Checked[Index: Integer]: Boolean read GetChecked write SetChecked;
property ItemEnabled[Index: Integer]: Boolean read GetItemEnabled write SetItemEnabled;
property Labels[Index : Integer] : TULabel read GeTULabelByIndex;
property CheckBoxIndex[CheckBoxName : WideString] : Integer read GetCheckBoxIndex;
property Margin : TPoint read FMargin write FMargin;
property Items : TUStrings read FItems write SetItems;
property CheckBoxNames : TUStrings read FCheckBoxNames write SetCheckBoxNames;
property FocusLabelColor : TColor read FFocusLabelColor write FFocusLabelColor;
property OnCheckBoxChecked : TOnCheckBoxChecked read FOnCheckBoxChecked write FOnCheckBoxChecked;
property CheckBoxHint[Index : Integer] : WideString read GetCheckBoxHint write SetCheckBoxHint;
end; |