//------------------- Refresh Helligkeit ------ if (sHelligkeit.rot>=1) and (sHelligkeit.rot<=199) then begin s := CmdDPDotHell+'0' + 'FF'+IntToHex(256-sHelligkeit.rot,2); s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end; end; end; end; procedure TModul.StartUpdate; begin sUpdating := true; end; procedure TModul.Endupdate; begin Refresh; sUpdating := false; end; Constructor TModul.Create; var i : integer; begin inherited; sAdresse := '-1'; sHelligkeit.rot := 12; sHelligkeit.gruen := 12; sUpdating := false; for i := 2 to 14 do sGrafik[i] := tBitmap.create; end; Destructor TModul.Destroy; var i : integer; begin for i := 2 to 14 do sGrafik[i].free; inherited; end; //######################################## tModule procedure TModule.ManualSend(s : string); begin sLastAnswer := Send(s,sWaitForAnswer); end; procedure tModule.setAnzahl(i : integer); var i2 : integer; begin if not (sAnzahl=i) then begin if i=-1 then begin for i2:=0 to sModule.count-1 do Dispose(sModule.items[i2]); sModule.Clear; end else begin