TMultiCheckBoxes.Init - Konstruktor

Deklaration:



    constructor Init(var Bounds: TRect; AStrings: PSItem;

      ASelRange: Byte; AFlags: Word; AStates: Pointer);

Funktion:

Ruft zuerst TCluster.Init(Bounds, AStrings) auf, um ein Feld von Schaltern
zu erzeugen. Dann werden die Felder SelRange,
Flags und States mit den
gegebenen Werten belegt. MyData erhält der Wert
false.
Hinweis: Günstig ist es, die Bitmaps nicht auf dem Heap zu erzeugen,
sondern als Assembler-Routine im Code-Segment abzulegen. Das sieht dann
folgendermaßen aus:



 procedure MultiStates; Assembler;

 Asm

        DW      13                  { erste Bitmap }

        DW      0000000000000000B

        DW      0000000000000000B

        DW      0011111111100000B

        DW      0000001000000000B

        DW      0000001000000000B

        DW      0000001000000000B

        DW      0000001000000000B

        DW      0000001000000000B

        DW      0000001000000000B

        DW      0000001000000000B

        DW      0011111111100000B

        DW      0000000000000000B

        DW      0000000000000000B

        DW      13                  { zweite Bitmap }

        DW      0000000000000000B

        DW      0000000000000000B

        DW      0011111111100000B

        DW      0000100010000000B

        DW      0000100010000000B

        DW      0000100010000000B

        DW      0000100010000000B

        DW      0000100010000000B

        DW      0000100010000000B

        DW      0000100010000000B

        DW      0011111111100000B

        DW      0000000000000000B

        DW      0000000000000000B

 end;

Der Aufruf von Init sieht dann z.B. so aus:



 ...

 Insert(New(PMultiCheckBoxes, Init(R, NewSItem (.....), 2, cfOneBit,

    @MultiStates);

 ...

siehe auch:

Init,TCluster (äquivalent)
TMultiCheckBoxes