function TModul.getGrafik; begin Result := sGrafik[i]; end; procedure TModul.setHelligkeit(b : tHell); begin sHelligkeit := b; if not sUpdating then Refresh; end; function tModul.getHelligkeit: tHell; begin Result := sHelligkeit; end; procedure TModul.setBaudrate(br : tBaudrate); var s : string; begin if not sUpdating then begin case sTyp of DPDot, DPDotb: begin s := cmdDPDotBaud + '0' + StrToHex4(Adresse); case br of br9600: s := s + datBaud9600; br19200: s := s + datBaud19200; br38400: s := s + datBaud38400; end; s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end; DPDis100, DPDis100b: begin s := cmdDPDisBaud + StrToHex4(Adresse); case br of br9600: s := s + datBaud9600; br19200: s := s + datBaud19200; br38400: s := s + datBaud38400; end; s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end; end; end; end; procedure tModul.SetOffset(rot, gruen : String); var s : string; begin s := cmdDPDisOffset + StrToHex4(sAdresse) + Rot; if (sTyp = dpDotb) or (sTyp=dpDis100b) then s := s + Gruen else s := s + '00'; s := s + CheckSum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end;