ulan.lrs

来自「一个linux下rs485驱动程序的源代码」· LRS 代码 · 共 18 行

LazarusResources.Add('TuLan','XPM',[
  '/* XPM */'#13#10'static char * tulan[] = {'#13#10'"24 24 6 1",'#13#10'" '
  +#9'c None",'#13#10'".'#9'c #FFFFFF",'#13#10'"+'#9'c #0000FF",'#13#10'"@'#9'c'
  +' #800000",'#13#10'"#'#9'c #C0C0C0",'#13#10'"$'#9'c #FF0000",'#13#10'"......'
  +'........++........",'#13#10'"..............++........",'#13#10'"...........'
  +'...++........",'#13#10'"..............++........",'#13#10'"..............++'
  +'........",'#13#10'".++++++++++++++++++++++.",'#13#10'".++++++++++++++++++++'
  +'++.",'#13#10'"...++......++......++...",'#13#10'"...++......++......++...",'
  +#13#10'"...++......++......++...",'#13#10'".@@@@@@..@@@@@@..@@@@@@.",'#13#10
  +'".@##$#@..@#$$#@..@#$$#@.",'#13#10'".@#$$#@..@$##$@..@$##$@.",'#13#10'".@##'
  +'$#@..@##$#@..@##$$@.",'#13#10'".@##$#@..@#$##@..@$##$@.",'#13#10'".@##$#@..'
  +'@$$$$@..@#$$#@.",'#13#10'".@@@@@@..@@@@@@..@@@@@@.",'#13#10'"..............'
  +'..........",'#13#10'"........@...............",'#13#10'"........@..........'
  +'.....",'#13#10'"...@..@.@.....@@..@@@...",'#13#10'"...@..@.@....@..@.@..@..'
  +'",'#13#10'"...@..@.@....@..@.@..@..",'#13#10'"....@@..@@@@..@@@.@..@.."};'
  +#13#10
]);