1277 // get description's dimensions |
1277 // get description's dimensions |
1278 tmpdesc:= description; |
1278 tmpdesc:= description; |
1279 while length(tmpdesc) > 0 do |
1279 while length(tmpdesc) > 0 do |
1280 begin |
1280 begin |
1281 tmpline:= tmpdesc; |
1281 tmpline:= tmpdesc; |
1282 SplitByChar(tmpline, tmpdesc, '|'); |
1282 SplitByCharA(tmpline, tmpdesc, '|'); |
1283 if length(tmpline) > 0 then |
1283 if length(tmpline) > 0 then |
1284 begin |
1284 begin |
1285 TTF_SizeUTF8(Fontz[font].Handle, PChar(tmpline), @i, @j); |
1285 TTF_SizeUTF8(Fontz[font].Handle, PChar(tmpline), @i, @j); |
1286 if w < (i + wa) then |
1286 if w < (i + wa) then |
1287 w:= i + wa; |
1287 w:= i + wa; |
1320 // render all description lines |
1320 // render all description lines |
1321 tmpdesc:= description; |
1321 tmpdesc:= description; |
1322 while length(tmpdesc) > 0 do |
1322 while length(tmpdesc) > 0 do |
1323 begin |
1323 begin |
1324 tmpline:= tmpdesc; |
1324 tmpline:= tmpdesc; |
1325 SplitByChar(tmpline, tmpdesc, '|'); |
1325 SplitByCharA(tmpline, tmpdesc, '|'); |
1326 r2:= r; |
1326 r2:= r; |
1327 if length(tmpline) > 0 then |
1327 if length(tmpline) > 0 then |
1328 begin |
1328 begin |
1329 r:= WriteInRect(tmpsurf, cFontBorder + 2, r.y + r.h, $ff707070, font, PChar(tmpline)); |
1329 r:= WriteInRect(tmpsurf, cFontBorder + 2, r.y + r.h, $ff707070, font, PChar(tmpline)); |
1330 |
1330 |
1331 // render highlighted caption (if there is a ':') |
1331 // render highlighted caption (if there is a ':') |
1332 tmpline2:= _S''; |
1332 tmpline2:= _S''; |
1333 SplitByChar(tmpline, tmpline2, ':'); |
1333 SplitByCharA(tmpline, tmpline2, ':'); |
1334 if length(tmpline2) > 0 then |
1334 if length(tmpline2) > 0 then |
1335 begin |
1335 begin |
1336 tmpline:= tmpline + ':'; |
1336 tmpline:= tmpline + ':'; |
1337 WriteInRect(tmpsurf, cFontBorder + 2, r2.y + r2.h, $ffc7c7c7, font, PChar(tmpline)); |
1337 WriteInRect(tmpsurf, cFontBorder + 2, r2.y + r2.h, $ffc7c7c7, font, PChar(tmpline)); |
1338 end; |
1338 end; |