Shatterhand
2012-06-11 06:06:16
Simple procedure to make onscreen report on SMART. :)
(Title + 5 lines.)
(Title + 5 lines.)
procedure OnScreenReport(Title: String; Texts: Array of String);
var
BMP : Integer;
begin
BMP := BitmapFromString(517, 142, 'meJzt1UENgEAAxMDzr6ai+GOBZAWAAKYZDz1HkiRJkiRJkiRJkqS3um4A/sAOAMgOABg7ACA7AGDsAIDsAICxAwCyAwDGDgDIDgAYOwAgOwBg7ACA7ACAsQMAsgMAxg4AyA4AGDsAIDsAYOwAgOwAgLEDALIDAMYOAMgOABg7ACA7AGDsAIDsAICxAwCyAwDGDgDIDgAYOwAgOwBg7ACA7ACAsQMAsgMAxg4AyA4AGDsAIDsAYOwAgOwAgLEDALIDAMYOAMgOABg7ACA7AGDsAIDsAICxAwCyAwDGDgDIDgAYOwAgOwBg7ACA7ACAsQMAsgMAxg4AyA4AGDsAIDsAYOwAgOwAgLEDALIDAMYOAMgOABg7ACA7AGDsAIDsAICxAwCyAwDGDgDIDgAYOwAgOwBg7ACA7ACAsQMAsgMAxg4AyA4AGDsAIDsAYOwAgOwAgLEDALIDAMYOAMgOABg7ACA7AGDsAIDsAICxAwCyAwDGDgDIDgAYOwAgOwBg7ACA7ACAsQMAsgMAxg4AyA4AGDsAIDsAYOwAgOwAgLEDALIDAMYOAMgOABg7ACA7AGDsAIDsAICxAwCyAwDGDgDIDgAYOwCgrx1IkiRJkiRJkiRJkvQAnVDEtQ==');
SMART_ClearCanvas;
SMART_DrawBitmap(False,BMP,Point(1,340));
SMART_DrawText(20,340,BigChars,Title, ClBlue);
SMART_DrawText(20,375,UpCharsEx,'* ' + Texts[0],ClBlue);
SMART_DrawText(20,395,UpCharsEx,'* ' + Texts[1],ClBlue);
SMART_DrawText(20,415,UpCharsEx,'* ' + Texts[2],ClBlue);
SMART_DrawText(20,435,UpCharsEx,'* ' + Texts[3],ClBlue);
SMART_DrawText(20,455,UpCharsEx,'* ' + Texts[4],ClBlue);
FreeBitmap(BMP);
end; procedure Example;
var
Title : String;
Texts : Array[0..4] of String;
begin
Title := 'ShatterHeater ' + Version';
Texts[0] := 'Time Running: ' + MsToTime(Round(timeRun),Time_Formal);
Texts[1] := 'Magic level: ' + IntToStr(MagicLevel) + ', XP till next: ' + FloatToStr(XPtillNext);
Texts[2] := 'Magic xp gained: ' + FloatToStr(XPGained) + ', xp per hour: ' + FloatToStr(XPPerHour);
Texts[3] := 'Bars made: ' + IntToStr(TotalBars) + ', bar per hour: ' + FloatToStr(BarsPerHour);
Texts[4] := 'Profit each: ' + IntToStr(ProfitEach) + ', profit per hour: ' + FloatToStr(ProfitPerHour);
OnScreenReport(Title,Texts);
end;