Search options (Page 15 of 15)

I'm trying to make a table grid cell not editable once it has a value in it.

The below code works for checking if a cell is empty and allows in this case a date to be entered. It also allows the date to be changed again just by clicking on column 5, which what I don't want to happen. Note this is not using the datetimepicker  as a visible component.

if Acol = col then //check if column 5 has been clicked
    begin
     //If column 5 has no tick in the checkbox 
        if frmMain.grdOrders.Cell[col,ARow].Empty = false then
        begin

        // update the grid with the date in column 4
            frmMain.grdOrders.Cell[(col-1),ARow].asDateTime := dt;  {dbdate function does not work here}
      
 // update database
            sqlexecute('UPDATE requests SET rec_date = "' + DBDateStr(dt,1)+'" WHERE id =' +
           (frmMain.grdOrders.sqlValue));
        end;
   end;

However if I write this, the complete grid table no longer allows the date to be entered on the empty date column 4.

if (Acol = col) AND (frmMain.grdOrders.Cell[4,Arow].AsString = Null) then 
  
    begin
        if frmMain.grdOrders.Cell[col,ARow].Empty = false then
        begin
            frmMain.grdOrders.Cell[(col-1),ARow].asDateTime := dt; 
            sqlexecute('UPDATE requests SET rec_date = "' + DBDateStr(dt,1)+'" WHERE id =' +
           (frmMain.grdOrders.sqlValue));
        end;
   end;
 end;

I've tried using frmMain.grdOrders.Cell[4,Arow].AsString = '', I've tried removing this part of the code from AND and using an If statement instead and I've tried changing  frmMain.grdOrders.Cell[4,Arow].Empty = True.
None seem to do what I'm hoping for.

I have a TableGrid it has  5 columns.  Column 5 has a checkbox enabled by selecting checkbox under 'settings'.

My intention is to click in cell 5 on a specific row and cause the current date to be entered into cell 4. I then want to change the font color of the row.

I have the code below  which partly works, the checkbox appears and the date does get entered into the correct cell.

However, I can click anywhere on the row to get this to happen, what I want is to have just column 5 cell to perform the date function when clicked.

I can't get the row font colour to change at all, though I would be just as happy to have a row grayed out.

procedure frmMain_grdOrders_OnCellClick (Sender: TObject; ACol, ARow: Integer);
 var
     YY,MM,DD:Word;

begin
    DecodeDate(frmMain.DateTimePicker1.DateTime,YY,MM,DD); //get only the date portion of datetime

    if frmMain.grdOrders.Cell[5,ARow].Empty = false then    //checkbox is unticked
    begin
        frmMain.grdOrders.Cell[4,ARow].AsDateTime := EncodeDate(YY,MM,DD); 
        frmMain.grdOrders.font.color:= clGreen;

    end;  
 

       
end;

Any ideas greatfully received.

I have hit a strange problem which only has become apparent after I installed v6.2 .

I have a form on which is placed a  Page Control. This control has three tabs.

On tab 2, along with some edit boxes and labels I have placed a Date Time Picker. The picker is appearing on all three tab layouts instead of just the layout of tab 2.

I don't recall this happening with the earlier builds of MVD.

I'm assuming that to solve this problem I'll have to instantiate the date time picker in code rather than from design time or delve into the Forms.xml file and physically move the control into the Tab 2 group.

Any thoughts?