public property Adresse : String read sAdresse write setAdresse; //Setzt Adresse; Muß beim initialisieren nach "startupdate" //aufgerufen werden property WaitforAnswer : Boolean read sWaitforAnswer write sWaitforAnswer; //Soll auf eine Antwort gewartet werden? property LastAnswer : String read sLastAnswer; //Hier wird (ggf.) die Antwort gespeichert. procedure Broadcast; //Soll an alle gesendet werden? property ChangeableAddress : Boolean read sChangeableAddress write sChangeableAddress; //Damit Adresse geändert werden kann. Sicherheit! property Baudrate: tBaudrate {read sBaudrate} write setBaudrate; //_Setzt_ Baudrate (DPDot); Sollte nur vor tModule verwendet werden. property Farbe : tFarbe read sFarbe write setFarbe; //Setzt Farbe (DPDis100B/DPDotB) property Text : tDPDisText read sText write setText; //Setzt Text (DPDis100) property Grafik[index : integer] : tBitmap read getGrafik write setGrafik; //Setzt Grafik (DPDot) procedure SetOffset(rot,gruen : string); //Offset-Incrementierung/Dekrementierung; //Übergeben kann '00', '2B' und '2D' werden property Typ : tTyp read sTyp write sTyp; //Setzt Modultyp property Helligkeit : tHell read getHelligkeit write setHelligkeit; //Setzt Helligkeit procedure StartUpdate; //Nur Speicher wird bei den Properties verändert procedure Endupdate; //Modul wird sofort upgedated (Refresh wird direkt aufgerufen!) Constructor Create; overload; Destructor Destroy; override; end; tModule = class sComport : string; private sModule : tList; sAnzahl : Integer; sCompiBaudrate : comport.tBaudRate; sModulBaudrate : tBaudrate; sChangeableAddress : Boolean; sLastAnswer : String; sWaitforAnswer : Boolean; procedure setWaitforAnswer(b : boolean); procedure setAnzahl(i : integer); procedure setModul(i : integer; modul: tModul); function getModul(i:integer) : tModul; procedure setChangeableAddress(b : boolean); procedure setCompiBaudrate(const Value: tBaudrate); procedure setModulBaudrate(const Value: tBaudrate); function getCompiBaudrate: tBaudrate;