Simba Code:
program new;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
procedure textTest();
begin
smartImage.clear();
smartImage.drawBox(intToBox(120, 50, 200, 410), true, clGray);
smartImage.drawBox(intToBox(200, 50, 280, 410), true, clWhite);
smartImage.drawText('123 This is a test for BigChars, clWhite.', point(50, 50), 'BigChars', true, clWhite);
smartImage.drawText('123 This is a test for CharsNPC, clBlack.', point(50, 75), 'CharsNPC', true, clBlack);
smartImage.drawText('123 This is a test for CharsNPC07, clRed.', point(50, 90), 'CharsNPC07', true, clRed);
smartImage.drawText('123 This is a test for CharsTrade, clGreen.', point(50, 110), 'CharsTrade', true, clGreen); //somehow doesn't work well for me
smartImage.drawText('123 This is a test for CharsTrade07, clBlue.', point(50, 130), 'CharsTrade07', true, clBlue); //somehow doesn't work well for me
smartImage.drawText('123 This is a test for FriendChars, clGreen.', point(50, 150), 'FriendChars', true, clGreen);
smartImage.drawText('123 This is a test for LoginChars, clBlue.', point(50, 167), 'LoginChars', true, clBlue);
smartImage.drawText('123 This is a test for MouseoverChars, clYellow.', point(50, 190), 'MouseoverChars', true, clYellow);
smartImage.drawText('123 This is a test for SmallChars, clAqua.', point(50, 210), 'SmallChars', true, clAqua);
smartImage.drawText('123 This is a test for SmallChars07, clFuchsia.', point(50, 230), 'SmallChars07', true, clFuchsia);
smartImage.drawText('123 This is a test for SmallCharsNS, clTeal.', point(50, 250), 'SmallCharsNS', true, clTeal);
smartImage.drawText('123 This is a test for StatChars, clNavy.', point(50, 270), 'StatChars', true, clNavy);
smartImage.drawText('123 This is a test for StatChars07, clGray.', point(50, 290), 'StatChars07', true, clGray);
smartImage.drawText('123 This is a test for UpChars, clLime.', point(50, 310), 'UpChars', true, clLime);
smartImage.drawText('123 This is a test for UpChars07, clMaroon.', point(50, 330), 'UpChars07', true, clMaroon);
smartImage.drawText('123 This is a test for UpChars07_s, clSilver.', point(50, 350), 'UpChars07_s', true, clSilver);
smartImage.drawText('123 This is a test for UpCharsEx, clPink.', point(50, 370), 'UpCharsEx', true, clPink);
smartImage.drawText('123 This is a test for XPChars, clPink.', point(50, 390), 'XPChars', true, clPink);
terminateScript;
end;
begin
smartEnableDrawing := true;
setupSRL();
textTest();
end.