procedure TModul.Refresh; var s : string; begin case sTyp of DPDis100, DPDis100b: begin //------------------- Refresh Text/Farbe ------ if length(stext.Zahlen)=2 then begin s := cmdDPDisAnz + StrToHex4(sAdresse); case sTyp of DPDis100b: case sFarbe of fGruen: s := s + '0000' + DPDisZahlenToAnzeige(sText); fRot: s := s + DPDisZahlenToAnzeige(sText) + '0000'; fGelb: s := s + DPDisZahlenToAnzeige(sText) + DPDisZahlenToAnzeige(sText); end; DPDis100: s := s + DPDisZahlenToAnzeige(sText); end; s := s + CheckSum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end; //------------------- Refresh Helligkeit ------ s := cmdDPDisHell + StrToHex4(sAdresse) + IntToHex(sHelligkeit.rot,2); if sTyp=DPDis100b then s := s + IntToHex(sHelligkeit.gruen,2) else s := s + '00'; s := s + CheckSum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end; DPDot, DPDotb: begin //------------------- Refresh Text/Farbe ------ if (lBildIndex>=3) and (lBildIndex<=7) then begin s := CmdDPDotBildUpd + IntToStr(lBildIndex) + StrToHex4(sAdresse); s := s + DPDotBitmapToAnzeige(sGrafik[lBildIndex]); s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); s := CmdDPDotBildAnz + IntToStr(lBildIndex) + StrToHex4(sAdresse); s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end else if (lBildIndex>=8) and (lBildIndex<=14) then begin s := CmdDPDotBildUpd + IntToStr(2) + StrToHex4(sAdresse); sGrafik[2] := sGrafik[lBildIndex]; s := s + DPDotBitmapToAnzeige(sGrafik[2]); s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); s := CmdDPDotSR2EE + '0' + StrToHex4(sAdresse) + '02' + '0' + IntToStr(lBildIndex-7); s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); s := CmdDPDotBildAnz + IntToStr(2) + StrToHex4(sAdresse); s := s + Checksum(s) + #$0d; sLastAnswer := Send(s,sWaitForAnswer); end;