Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DGL-luke,
21. Apr 2007
ok. bei mir hat die listview einen Canvas. aber wenn du eh keinen text brauchst, kann man viel einfach weglassen:
function MakeBlankCheckBoxes(Container: TWinControl; Number: Cardinal; CBOnClick: TNotifyEvent = nil): TObjectList;
var i: Integer;
begin
Result := TObjectList.Create;
for i := 0 to number-1 do
with Result as TCheckBox do //sorry dafür. aber da mach ich jetzt kein...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DGL-luke,
21. Apr 2007
Hallo,
sorry, das sollte natürlich Container.Canvas heißen.
Und wenn du eh mit einer Listview arbeitest... die hat doch Checkboxes schon eingebaut?! Einfach die Eigenschaft CheckBoxes aktivieren...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DGL-luke,
5. Apr 2007
Hast recht, aber ich glaube, ohne viel Erfahrung kommt man nicht auf eine Lösung, die so sauber und elegant ist wie meine (riecht ihrs auch? - nich dass die nicht auch Probleme aufwerfen würde, neue Instanzen aus einer Funktion zu liefern ist nicht ganz unproblematisch, die muss man nämlich wieder freigeben). :)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DGL-luke,
5. Apr 2007
Jo. is wohl sinnvoller:
function MakeCheckBoxes(Container: TWinControl; Captions: TStrings; CBOnClick: TNotifyEvent = nil): TObjectList;
var i: Integer;
Size: TSize;
buf: string;
begin
Result := TObjectList.Create;
for i := 0 to Captions.Count-1 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DGL-luke,
5. Apr 2007
Und hier n bisschen generischer:
procedure MakeCheckBoxes(Container: TWinControl; Captions: TStrings; CBOnClick: TNotifyEvent = nil);
var i: Integer;
Size: TSize;
buf: string;
begin
for i := 0 to Captions.Count-1 do
with TCheckBox.Create(Container) do