74:
How do I customize the format to display the result (right,local,2 decimals,less,font)

CalcEdit1->MultiLine = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->FormatLocal = L"( value < 10000 ? `<fgcolor=000000><b><font ;16>` : ``) + (value format `2`)";
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %l%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

73:
How do I customize the format to display the result (right,local,2 decimals,greater,color)

CalcEdit1->MultiLine = true;
CalcEdit1->FormatLocal = L"( value > 10000 ? `<fgcolor=FF0000><b>` : ``) + (value format `2`)";
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %l%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

72:
How do I customize the format to display the result (right,local,all decimals)

CalcEdit1->MultiLine = true;
CalcEdit1->FormatLocal = L"value";
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %l%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

71:
How do I customize the format to display the result (right,local,2 decimals)

CalcEdit1->MultiLine = true;
CalcEdit1->FormatLocal = L"value format `2`";
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %l%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

70:
How do I customize the format to display the result (right,local,curency)

CalcEdit1->MultiLine = true;
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %l%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

69:
How do I customize the format to display the result (right,local)

CalcEdit1->MultiLine = true;
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %l%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

68:
How do I customize the format to display the result (right)

CalcEdit1->MultiLine = true;
CalcEdit1->FormatResult = L"<fgcolor=808080><r> = %%";
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

67:
How do I customize the format to display the result (default)

CalcEdit1->MultiLine = true;
CalcEdit1->InsertText(L"100 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"200 + ( 400 * 1.5 + 300 / 1.19)",TNoParam());

66:
How can I force a line to be there all the time, so user can not delete it, for instance Total

CalcEdit1->MultiLine = true;
CalcEdit1->InsertLockedText(L"Total",TNoParam());
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());

65:
Is it possible to get the value of specified variable

CalcEdit1->MultiLine = true;
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"TVA = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());
OutputDebugString( L"The TVA is: " );
OutputDebugString( PChar(CalcEdit1->Variable[L"TVA"]) );

64:
How do I get the total

CalcEdit1->MultiLine = true;
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());
OutputDebugString( L"The total is: " );
OutputDebugString( PChar(CalcEdit1->Variable[L"Total"]) );

63:
How do I get the easter date

CalcEdit1->MultiLine = true;
CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->ClearWildFormats();
CalcEdit1->FormatResult = L"<r><fgcolor=008000><b>(%%)";
CalcEdit1->AllowComments = L"<fgcolor=008000>//";
CalcEdit1->AddWildFormat(L"*=*<fgcolor=008000>//*");
CalcEdit1->AddWildFormat(L"<fgcolor=808080>V*=*");
CalcEdit1->AddWildFormat(L"<b>EasterSundayDay*=*");
CalcEdit1->BackColorLockedLine = RGB(0,0,0);
CalcEdit1->ForeColorLockedLine = RGB(0,0,0);
CalcEdit1->Text = L"Year = 2018 // change here the year, to get the Easter Sunday for giving year";
CalcEdit1->InsertLockedText(L"V1 = (((255 - 11 * (Year mod 19)) - 21) mod 30)",TNoParam());
CalcEdit1->InsertLockedText(L"V2 = ((V1 + 21) + (V1 > 48 ? -1 : 0) + 6 - ((Year + int(Year / 4)) + V1 + (V1 > 48 ? -1 : 0) + 1) mod 7)",TNoParam());
CalcEdit1->InsertLockedText(L"EasterSundayDay = date(dateS('3/1/' + Year)  + V2)",TNoParam());
OutputDebugString( L"Easter Sunday Day is " );
OutputDebugString( PChar(CalcEdit1->Variable[L"EasterSundayDay"]) );
OutputDebugString( L" for year " );
OutputDebugString( PChar(CalcEdit1->Variable[L"Year"]) );

62:
I've got a red line while I type into the control. How can I disable that (sample 2)

CalcEdit1->AllowFormatInvalidOnTyping = false;
CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 + 200(invalid)";

61:
I've got a red line while I type into the control. How can I disable that (sample 1)

CalcEdit1->FormatInvalid = L"";
CalcEdit1->Text = L"100 + 200(invalid)";

60:
How do I specify the color to show the locked lines

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatResult = L"<r>[=%l%]";
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatTotalResult = L"<r><b> <fgcolor=FFFFFF>= %l%</b>";
CalcEdit1->BackColorLockedLine = RGB(0,0,1);
CalcEdit1->ForeColorLockedLine = RGB(255,255,255);
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertLockedText(L"VAT = Total * 0.20",TNoParam());
CalcEdit1->InsertLockedText(L"Total",TNoParam());

59:
Can I remove the colors that indicates locked lines

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatResult = L"<r><fgcolor=808080>[=%l%]";
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->BackColorLockedLine = RGB(0,0,0);
CalcEdit1->ForeColorLockedLine = RGB(0,0,0);
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertLockedText(L"VAT = Total * 0.20",TNoParam());
CalcEdit1->InsertLockedText(L"Total",TNoParam());

58:
Can I add lines to the control, so the user can not remove/delete them ( locked lines )

CalcEdit1->MultiLine = true;
CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatResult = L"<r><fgcolor=808080>[=%l%]";
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->Text = L"1000";
CalcEdit1->InsertText(L"2000",TNoParam());
CalcEdit1->InsertLockedText(L"Commission = Total * 0.05 + (Total ? 2.95 : 0)",TNoParam());
CalcEdit1->InsertLockedText(L"Total",TNoParam());

57:
Is it possible to highlight a specified line

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatResult = L"<r><fgcolor=808080>[=%l%]";
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->AddWildFormat(L"<fgcolor=00FF00>*<b>Commission</b>*=*");
CalcEdit1->Text = L"100.50 + 123";
CalcEdit1->InsertText(L"200 + 20/5",TNoParam());
CalcEdit1->InsertText(L"300 + 3 * 15",TNoParam());
CalcEdit1->InsertText(L"400 + 200 * (10 + 12/45)",TNoParam());
CalcEdit1->InsertText(L"50 * 45",TNoParam());
CalcEdit1->InsertText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"NET = Total - VAT",TNoParam());
CalcEdit1->InsertText(L"Monthly = Total / 12",TNoParam());
CalcEdit1->InsertText(L"Commission = Total * 0.05 + 2.95",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

56:
Is it possible to display the result as currency

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->BackColorTotal = RGB(240,240,240);
CalcEdit1->Text = L"100.50";
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"NET = Total - VAT",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

55:
Is it possible to display the result with no decimals

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatLocal = L"value format `0`";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->BackColorTotal = RGB(240,240,240);
CalcEdit1->Text = L"100.50";
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"NET = Total - VAT",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

54:
Is it possible to display the result exactly how it is defined in the control panel

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatLocal = L"value format ``";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->BackColorTotal = RGB(240,240,240);
CalcEdit1->Text = L"100.50";
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"NET = Total - VAT",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

53:
How can I count the lines

CalcEdit1->MultiLine = true;
CalcEdit1->AllowCount = L"count";
CalcEdit1->AllowSubCount = L"subcount";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"SubCount",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"500",TNoParam());
CalcEdit1->InsertText(L"SubCount",TNoParam());
CalcEdit1->InsertText(L"Count",TNoParam());

52:
How can I compute the average
CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->BackColorTotal = RGB(240,240,240);
CalcEdit1->Text = L"Average = Total / Count";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"NET = Total - VAT",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

51:
Variables or Computed Fields

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->BackColorTotal = RGB(240,240,240);
CalcEdit1->Text = L"100";
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertText(L"NET = Total - VAT",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

50:
I have noticed that definition of the variable is shown in italics. Can I change that

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->ClearWildFormats();
CalcEdit1->AddWildFormat(L"<b>*=*");
CalcEdit1->Text = L"A = 400";
CalcEdit1->InsertText(L"",TNoParam());
CalcEdit1->InsertText(L"B = A + 0.22",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());
CalcEdit1->InsertText(L"B = B * .19",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());

49:
I have noticed that definition of the variable is shown in italics. Can I remove that

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->ClearWildFormats();
CalcEdit1->Text = L"A = 300";
CalcEdit1->InsertText(L"",TNoParam());
CalcEdit1->InsertText(L"B = A + 0.22",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());
CalcEdit1->InsertText(L"B = B * .19",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());

48:
Can I define variables (sample 2)

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"is";
CalcEdit1->ClearWildFormats();
CalcEdit1->AddWildFormat(L"<b>*is*");
CalcEdit1->Text = L"A is 200";
CalcEdit1->InsertText(L"",TNoParam());
CalcEdit1->InsertText(L"B is A + 0.22",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());
CalcEdit1->InsertText(L"B is B * .19",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());

47:
Can I define variables (sample 1)

CalcEdit1->MultiLine = true;
CalcEdit1->AllowVariables = L"=";
CalcEdit1->Text = L"A = 100.22";
CalcEdit1->InsertText(L"",TNoParam());
CalcEdit1->InsertText(L"B = A + 0.22",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());
CalcEdit1->InsertText(L"B = B * .19",TNoParam());
CalcEdit1->InsertText(L"A + B",TNoParam());

46:
Comments and Prefixes

CalcEdit1->MultiLine = true;
CalcEdit1->AllowPrefixes = L"<fgcolor=808080>:</fgcolor>";
CalcEdit1->AllowComments = L"<fgcolor=008080>'</fgcolor>";
CalcEdit1->Text = L"Field A: 100 ' this is the field A";
CalcEdit1->InsertText(L"Field B: 200 ' this is the field B",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

45:
Can I display something at the start of each line

CalcEdit1->MultiLine = true;
CalcEdit1->AllowPrefixes = L"<b>:</b>";
CalcEdit1->Text = L"Field A: 100";
CalcEdit1->InsertText(L"Field B: 200",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

44:
I can not use TAB key. Is it possible
CalcEdit1->UseTabKey = true;

43:
Does your control support comments

CalcEdit1->MultiLine = true;
CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->AllowComments = L"<fgcolor=008080>//</fgcolor>";
CalcEdit1->Text = L"104 mod 51 // modulo function";
CalcEdit1->InsertText(L"int(104/51)  // int function",TNoParam());
CalcEdit1->InsertText(L"51 * int(104/51) + (104 mod 51)  // check",TNoParam());

42:
Can I use the modulo function ( rest )

CalcEdit1->MultiLine = true;
CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"104 mod 51";
CalcEdit1->InsertText(L"int(104/51)",TNoParam());
CalcEdit1->InsertText(L"51 * int(104/51) + (104 mod 51)",TNoParam());

41:
Can I use acos function

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"acos(cos(1))";

40:
Can I use asin function

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"asin(sin(1))";

39:
Can I use cos function

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"cos(1)";

38:
Can I use sin function

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"sin(1)";

37:
Can I use abs function (absolute part of the number)

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"abs(-100.99)";

36:
Can I use round function

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"round(100.99)";

35:
Can I use int function (integer part of a number)

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"int(100.99)";

34:
Can I use sqrt function (square root of a number)

CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"sqrt(100)";

33:
How can I show invalid lines with a larger font

CalcEdit1->MultiLine = true;
CalcEdit1->LineHeight = L"value + 8 *dpi";
CalcEdit1->DrawGridLines = true;
CalcEdit1->FormatInvalid = L"<u><font ;12> </font></u>";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"k200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());

32:
I've noticed that while I type the text is shown in red. How can I change that

CalcEdit1->FormatInvalid = L"";
CalcEdit1->Text = L"100 * 200";

31:
Can I enlarge the height of each line

CalcEdit1->MultiLine = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->DrawGridLines = true;
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

30:
How can I show grid lines

CalcEdit1->MultiLine = true;
CalcEdit1->DrawGridLines = true;
CalcEdit1->GridLineColor = RGB(0,0,0);
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

29:
How can I display the result of the total with a larger font

CalcEdit1->MultiLine = true;
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value  + 8 * dpi";
CalcEdit1->FormatTotalResult = L"<r><b><font ;14>%l%</font></b>";
CalcEdit1->AllowTotal = L"<b><font ;14>Total</font></b>";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

28:
Is it possible to show the Total / SubTotal with a different background color

CalcEdit1->MultiLine = true;
CalcEdit1->AllowTotal = L"<bgcolor=A0A0A0><b>Total</b></bgcolor>";
CalcEdit1->AllowSubTotal = L"<bgcolor=E0E0E0><b>SubTotal</b></bgcolor>";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"SubTotal",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"SubTotal",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

27:
Is it possible to show the Total / SubTotal with a different background color

CalcEdit1->MultiLine = true;
CalcEdit1->BackColorTotal = RGB(196,196,196);
CalcEdit1->BackColorSubTotal = RGB(240,240,240);
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"SubTotal",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400 * 1.5",TNoParam());
CalcEdit1->InsertText(L"SubTotal",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

26:
How can I change the color to show the numbers

CalcEdit1->FormatNumbers = L"<fgcolor=FF0000> </fgcolor>";
CalcEdit1->Text = L"1 + 2 + 3 + 4";

25:
The numbers are shown in blue. How can I remove that

CalcEdit1->FormatNumbers = L"";
CalcEdit1->Text = L"1 + 2 + 3 + 4";

24:
How can I export the entire text, including the result

CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 * 1.5";
CalcEdit1->InsertText(L"120 * 1.5",TNoParam());
CalcEdit1->InsertText(L"130 * 1.5",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());
OutputDebugString( CalcEdit1->Export );

23:
Is it possible to display the result, using the current regional locale

CalcEdit1->MultiLine = true;
CalcEdit1->DrawGridLines = true;
CalcEdit1->FormatResult = L" <fgcolor=808080>[=%l%]</fgcolor>";
CalcEdit1->FormatTotalResult = L" <b>[=%l%]</b>";
CalcEdit1->InsertText(L"100 * 100",TNoParam());
CalcEdit1->InsertText(L"200 * 200",TNoParam());
CalcEdit1->InsertText(L"300 * 300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

22:
How can I change the format to display the total result (right)

CalcEdit1->MultiLine = true;
CalcEdit1->DrawGridLines = true;
CalcEdit1->FormatTotalResult = L"<b><fgcolor=FF0000> = %l%</fgcolor></b>";
CalcEdit1->AllowTotal = L"<b><fgcolor=00FF00>Total</fgcolor></b>";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

21:
How can I change the format to display the total result (right)

CalcEdit1->MultiLine = true;
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value  + 4 * dpi";
CalcEdit1->FormatTotalResult = L"<r><b><font ;12>%l%</font></b>";
CalcEdit1->AllowTotal = L"<b><font ;12>Total</font></b>";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

20:
Is it possible to rename the SubTotal

CalcEdit1->MultiLine = true;
CalcEdit1->AllowSubTotal = L"<fgcolor=FF0000>Current Amount";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"Current Amount",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"Current Amount",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

19:
How can I disable the sub-totals

CalcEdit1->MultiLine = true;
CalcEdit1->AllowSubTotal = L"";
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"SubTotal",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"400",TNoParam());
CalcEdit1->InsertText(L"SubTotal",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

18:
How can I add sub-totals

CalcEdit1->MultiLine = true;
CalcEdit1->AllowComments = L"<fgcolor=008000>'";
CalcEdit1->AddWildFormat(L"<i>*=*<fgcolor=008000>'*");
CalcEdit1->AllowVariables = L"=";
CalcEdit1->DrawGridLines = true;
CalcEdit1->LineHeight = L"value + 8 * dpi";
CalcEdit1->GridLineColor = RGB(196,196,196);
CalcEdit1->FormatLocal = L"currency(value)";
CalcEdit1->FormatTotalResult = L"<r><b> = %l%</b>";
CalcEdit1->FormatSubTotalResult = L"<r><fgcolor=808080>[<b> = %l%</b>]";
CalcEdit1->FormatResult = L"<r><fgcolor=808080>(%l%)";
CalcEdit1->BackColorTotal = RGB(240,240,240);
CalcEdit1->BackColorLockedLine = RGB(0,0,0);
CalcEdit1->ForeColorLockedLine = RGB(0,0,0);
CalcEdit1->CalcType = Excalceditlib_tlb::CalcTypeEnum::exCalcIncludeAll;
CalcEdit1->Text = L"100 + 200";
CalcEdit1->InsertText(L"200 * 1.5",TNoParam());
CalcEdit1->InsertText(L"SubA = SubTotal ' first subtotal",TNoParam());
CalcEdit1->InsertText(L"300 + (200+300)/2",TNoParam());
CalcEdit1->InsertText(L"400 + 500",TNoParam());
CalcEdit1->InsertText(L"SubB = SubTotal ' second subtotal",TNoParam());
CalcEdit1->InsertLockedText(L"VAT = Total * 0.19",TNoParam());
CalcEdit1->InsertLockedText(L"Commision = Total * 0.05",TNoParam());
CalcEdit1->InsertLockedText(L"NET = (Total - VAT) - Commision",TNoParam());
CalcEdit1->InsertLockedText(L"Total",TNoParam());

17:
Is it possible to disable the Total

CalcEdit1->AllowTotal = L"";
CalcEdit1->MultiLine = true;
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

16:
Is it possible to rename the Total to Sum

CalcEdit1->AllowTotal = L"<fgcolor=FF0000><b>Sum</b></fgcolor>";
CalcEdit1->MultiLine = true;
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Sum",TNoParam());

15:
Is it possible to add all lines

CalcEdit1->MultiLine = true;
CalcEdit1->InsertText(L"100",TNoParam());
CalcEdit1->InsertText(L"200",TNoParam());
CalcEdit1->InsertText(L"300",TNoParam());
CalcEdit1->InsertText(L"Total",TNoParam());

14:
How do I insert / add a new line

CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 * 1.5";
CalcEdit1->InsertText(L"120 * 2.5\\r\\n",TVariant(1));
CalcEdit1->InsertText(L"200 * 1.5",TNoParam());

13:
How do I find out if a specified line is valid

// SelChange event - Occurs when the user selects text in the control.
void __fastcall TForm1::CalcEdit1SelChange(TObject *Sender)
{
	OutputDebugString( L"CurrentLine: " );
	OutputDebugString( PChar(CalcEdit1->CaretLine) );
	OutputDebugString( L"CurrentLine: " );
	OutputDebugString( CalcEdit1->TextLine[CalcEdit1->CaretLine] );
	OutputDebugString( L"IsValid: " );
	OutputDebugString( PChar(CalcEdit1->IsValid[TVariant(CalcEdit1->CaretLine)]) );
}

CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 * 1.5";
CalcEdit1->InsertText(L"invalid",TNoParam());
CalcEdit1->InsertText(L"120 * 1.5",TNoParam());
CalcEdit1->InsertText(L"130 * 1.5",TNoParam());

12:
How do I get the current line

// SelChange event - Occurs when the user selects text in the control.
void __fastcall TForm1::CalcEdit1SelChange(TObject *Sender)
{
	OutputDebugString( L"CurrentLine: " );
	OutputDebugString( PChar(CalcEdit1->CaretLine) );
	OutputDebugString( L"CurrentLine: " );
	OutputDebugString( CalcEdit1->TextLine[CalcEdit1->CaretLine] );
	OutputDebugString( L"CurrentResult: " );
	OutputDebugString( PChar(CalcEdit1->Result[TVariant(CalcEdit1->CaretLine)]) );
}

CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 * 1.5";
CalcEdit1->InsertText(L"120 * 1.5",TNoParam());
CalcEdit1->InsertText(L"130 * 1.5",TNoParam());

11:
How do I get the line one by one, including the result

CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 * 1.5";
CalcEdit1->InsertText(L"120 * 1.5",TNoParam());
CalcEdit1->InsertText(L"130 * 1.5",TNoParam());
OutputDebugString( L"Lines:" );
OutputDebugString( PChar(CalcEdit1->Count) );
OutputDebugString( L"TextLine(1):" );
OutputDebugString( CalcEdit1->TextLine[1] );
OutputDebugString( L"Result(1)" );
OutputDebugString( PChar(CalcEdit1->Result[TVariant(1)]) );
OutputDebugString( L"TextLine(2):" );
OutputDebugString( CalcEdit1->TextLine[2] );
OutputDebugString( L"Result(2)" );
OutputDebugString( PChar(CalcEdit1->Result[TVariant(2)]) );
OutputDebugString( L"TextLine(3):" );
OutputDebugString( CalcEdit1->TextLine[3] );
OutputDebugString( L"Result(3)" );
OutputDebugString( PChar(CalcEdit1->Result[TVariant(3)]) );

10:
Does the control supports multiple lines

CalcEdit1->MultiLine = true;
CalcEdit1->Text = L"100 * 1.5";
CalcEdit1->InsertText(L"120 * 1.5",TNoParam());
CalcEdit1->InsertText(L"130 * 1.5",TNoParam());

9:
Is it possible to display the result without brakets

CalcEdit1->FormatResult = L"<fgcolor=808080> = %%</fgcolor>";
CalcEdit1->Text = L"12 + (12 / 100)/2";

8:
How can I display the result on the right side of the control

CalcEdit1->FormatResult = L"<r> <fgcolor=808080>[=%%]</fgcolor>";
CalcEdit1->Text = L"12 + (12 / 100)/2";

7:
Can you please advise how to change fontname and size (sample 2)

CalcEdit1->Template = L"Font.Size = 20; Font.Name = `Tahoma`; Refresh";
CalcEdit1->Text = L"1/2";

6:
Can you please advise how to change fontname and size (sample 1)

CalcEdit1->Font->Size = TVariant(long(20));
CalcEdit1->Text = L"1/2";
CalcEdit1->Refresh();

5:
How can I disable evaluating the selection

CalcEdit1->EvaluateSel = false;
CalcEdit1->HideSelection = false;
CalcEdit1->Text = L"(1+6.25)/4*6/3";
CalcEdit1->SelStart = 1;
CalcEdit1->SelLength = 6;
CalcEdit1->SelBackColor = RGB(0,0,0);

4:
Can I define a different decimal separator

CalcEdit1->AddDecimalSep = L",";
CalcEdit1->Text = L"(1+6,25)/4*6/3";

3:
How do I change the color of the entire control, if the expression is not valid

// Change event - Indicates that the control's text has changed.
void __fastcall TForm1::CalcEdit1Change(TObject *Sender)
{
	OutputDebugString( L"Valid:" );
	OutputDebugString( PChar(CalcEdit1->IsValid[TNoParam()]) );
	CalcEdit1->ForeColor = RGB(255,0,0);
	CalcEdit1->FormatNumbers = L"<fgcolor FF0000>";
	CalcEdit1->FormatResult = L"";
}

CalcEdit1->FormatInvalid = L"";
CalcEdit1->Text = L"invalid(1+6.25)/4*6/3";

2:
Is there any function to know if the expression is valid

// Change event - Indicates that the control's text has changed.
void __fastcall TForm1::CalcEdit1Change(TObject *Sender)
{
	OutputDebugString( L"Valid:" );
	OutputDebugString( PChar(CalcEdit1->IsValid[TNoParam()]) );
	OutputDebugString( L"Expression: " );
	OutputDebugString( CalcEdit1->Text );
	OutputDebugString( L"Result: " );
	OutputDebugString( PChar(CalcEdit1->Result[TNoParam()]) );
}

CalcEdit1->Text = L"(1+6.25)/4*6/3";

1:
How do I programatically save / load the expression and the result

CalcEdit1->Text = L"(1+6.25)/4*6/3";
OutputDebugString( L"Expression: " );
OutputDebugString( CalcEdit1->Text );
OutputDebugString( L"Result: " );
OutputDebugString( PChar(CalcEdit1->Result[TNoParam()]) );