hedgewars/uStore.pas
changeset 2841 2c9013664ea3
parent 2811 4cad87e11bf6
child 2843 75f18393d70a
equal deleted inserted replaced
2840:bb9117753fe4 2841:2c9013664ea3
  1358 	font: THWFont;
  1358 	font: THWFont;
  1359 	r, r2: TSDL_Rect;
  1359 	r, r2: TSDL_Rect;
  1360 	wa, ha: LongInt;
  1360 	wa, ha: LongInt;
  1361 	tmpline, tmpline2, tmpdesc: shortstring;
  1361 	tmpline, tmpline2, tmpdesc: shortstring;
  1362 begin
  1362 begin
  1363 font:= fnt16;
  1363 font:= CheckCJKFont(caption,fnt16);
       
  1364 font:= CheckCJKFont(subcaption,font);
       
  1365 font:= CheckCJKFont(description,font);
       
  1366 font:= CheckCJKFont(extra,font);
  1364 
  1367 
  1365 // make sure there is a caption as well as a sub caption - description is optional
  1368 // make sure there is a caption as well as a sub caption - description is optional
  1366 if caption = '' then caption:= '???';
  1369 if caption = '' then caption:= '???';
  1367 if subcaption = '' then subcaption:= ' ';
  1370 if subcaption = '' then subcaption:= ' ';
  1368 
  1371