Search options (Page 35 of 42)

Hi Dmitry,

Thanks a lot....

procedure CalculateTotal;
begin
    if ValidFloat(frmExpenses.edExpenseUnitPrice.Text) and ValidInt(frmExpenses.edExpenseQty.Text) and ValidInt(frmExpenses.cbExpenseTaxRate.Text) then // check the correctness of the values
    begin
        frmExpenses.edExpenseNetPrice.Text := FloatToStr( StrToFloat(frmExpenses.edExpenseUnitPrice.Text) * StrToInt(frmExpenses.edExpenseQty.Text)); // calculate
        frmExpenses.edExpenseTaxAmt.Text := FloatToStr( StrToFloat(frmExpenses.edExpenseUnitPrice.Text) * StrToInt(frmExpenses.edExpenseQty.Text)) * StrToInt(cbExpenseTaxRate.Text / 100 );
        frmExpenses.edExpenseTotal.Text := FloatToStr( StrToFloat(frmExpenses.edExpenseUnitPrice.Text) * StrToInt(frmExpenses.edExpenseQty.Text)) * StrToInt(cbExpenseTaxRate.Text / 100 ) + StrToFloat(frmExpenses.edExpenseUnitPrice.Text);
    end else
    begin
        frmExpenses.edExpenseNetPrice.Text := '0';
        frmExpenses.edExpenseTaxAmt.Text := '0';
    end;
end;

procedure frmExpenses_edExpenseQty_OnChange (Sender: string);
begin
    CalculateTotal;
end;

procedure frmExpenses_edExpenseUnitPrice_OnChange (Sender: string);
begin
    CalculateTotal;
end;

procedure frmExpenses_cbExpenseTaxRate_OnChange (Sender: string);
begin
    CalculateTotal;
end;

I couldn't apply  your correction to above sample project script. Would you be so kind to apply it to above code please, so that when I enter Qty, Unit price and Tax Rate it automatically calculates Net Price, Tax Amt and Total Amt.

Thanks a lot..........

Next question...
As users computer speed will differ, Instead of using fixed timer, is there a way to make splash screen disappear automatically once the application main window loaded?

Hi Dmitry,

Is there planned public release date of first MVD 3x?

It's great news on-grid editing may be coming soon!!!

Treeview PLEASE............

I'm bit puzzled. Why there is no radio button component in MVD yet?

Some helpful tune ups would be handy:
1. On database tables tab, ability to move db table tGrids to arrange their order.
2. Multi select components settings where applicable. i.e.
http://prnt.sc/dac89d
btw, it seems anchoring missed on the above image window.

edit:
I forgot to mention having global user defaults settings in MVD.
For example, user may prefer to use certain type of (Properties) comboboxes, panels, tGrids and so on. If we have global components properties setting then we wouldn't have to set component properties again and again with each use, only when needed.

Hi Dmitry,

Your fix works nicely. What would complete this project is to add sizeable window and splitter bars.

Changing views when window is sizeable, then adding horizontal splitter bar on vertical view and vertical splitter bar on horizontal view between panels 2 and 3 (tGridPanel and DetailsPanel).

Hi ehwagner,

I have added below details to project "frmDetails" too as reference.

RECURRING TASKS:
Tasks without due date and time are recurring. However, user may add due date/time then check "Task is recurring" checkbox, in this situation task becomes a recurring one and app ignores due date/time.
If possible, when "Task is recurring" checkbox not checked "Repeat - Recurring Task" group box could be disabled.

REMINDER - TASK ALARMS
If "Remaind at:" checkbox checked, application shows Message, Play specified sound file or both depending of user checking "Show Message" "Play Sound" check boxes  or both.  "Show Message" default is checked.

Alarms works in same way with normal and recurring tasks. Alarm date and time references to task due date/time for normal tasks and Recurring tasks to it's repeat  values in the  "Repeat - Recurring Task" group box.

Alarm is not active when task status selected as:
Not Started
On Hold
Cancelled

Reminder part is show/play alarm everyday at alarm time once the task due date/time is passed by 1 day. Reminder pop-up message may be displaying "Task is overdue ... days"

I'm not sure if the above is clear and correct... If it doesn't make any sense, you can define recurring tasks and alarms as you see fit. It's fine by me as I'm trying to have recurring tasks and some form of task alarm. Thank you for your kind help.

Please see the updated sample project

Thanks a lot Dmitry for the highlight........

I was putting the script in wrong place. The following seems to be working OK:

//Coloring tgrid WHOLE row boolean and comboboxes
procedure Form1_tgSearch_OnChange (Sender: string);
var
   iRow ,c: integer;
   q, iCol: integer;
begin
     c := Form1.tgSearch.RowCount - 1;
     q := Form1.tgSearch.Columns.Count-1;
     for iRow := 0 to c do
        if Form1.tgSearch.Cells[2,iRow] = 'Yes' then
            for iCol := 0 to q do Form1.tgSearch.Cell[iCol,iRow].TextColor := $00959595;

        //Coloring tgrid WHOLE row TEXT according to combobox Repeat Every cbDetailsRepeat...
        for iRow := 0 to c do
        if Form1.tgSearch.Cells[3,iRow] = '3 Months' then
            for iCol := 0 to q do Form1.tgSearch.Cell[iCol,iRow].TextColor := clGreen;

        //Coloring tgrid WHOLE row TEXT according to combobox Month cbDetailsMonth
        for iRow := 0 to c do
        if Form1.tgSearch.Cells[4,iRow] = 'May' then
            for iCol := 0 to q do Form1.tgSearch.Cell[iCol,iRow].TextColor := clPurple;

        //Coloring tgrid WHOLE row TEXT according to combobox Day cbDetailsDay
        for iRow := 0 to c do
        if Form1.tgSearch.Cells[5,iRow] = 'Sunday' then
            for iCol := 0 to q do Form1.tgSearch.Cell[iCol,iRow].TextColor := clRed;

end;

Hi Dmitry,

Thank you so much for the above and tGridrow text coloring......................