Search options (Page 16 of 42)

Hi EHW,

Thank you very much.............
Truly appreciated..................

It'd be a step forward if we could copy the app name from App name tGrid  to editable tGrid combo under App column. I tried the following that didn't work. Most likely for the reason you have stated about the  "inplace edit" tGrid.

procedure Form1_tgMainBookmarks_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
Form1.tgMainBookmarks.Cells[3,Form1.tgMainBookmarks.SelectedRow] := Form1.tgMainAppName.Cells[1,Form1.tgMainAppName.SelectedRow];
end;

If the above worked, then we could hide or disable App column on editable tGrid. However, I'm not sure if it's possible to disable editable tGrid column or not.

That's a good news.

Like in everything else in this life, we'd have to adopt the changes if we want to survive and improve. Those of us who has dependencies on v5 then they can always use MVD with v5.

Obviously that's not the answer I was hoping to hear : (

OK, let me expand my question.
Are you going to fix it? If yes, when it'd be fixed at the latest?

Is it a difficult bug to fix it? Isn't it possible to get some help from tGrid component developer?

Could you possibly fix it as quickly as you can please. Please do not harm my love for MVD.
I'm waiting for this bug to be fixed to upgrade my v3 license to v4.

Hi Dmitry,
Thank you very much..............
Looks like I wasn't able to think "Outside the box".

Hi Derek,
Thank you very much for alternatives..............
Especially for keyboard shortcut option. I learned something new.

Thank you very much Dmitry...........

Straight c/p didn't work. I realized dots were missing. When I added the dots where needed then it worked fine.
(frmSaleInv.edSIpaidValue.Text)

Once again thanks a lot for your kind help.

Hi Derek,

Thank you very much........................
Truly appreciated.................................

Hi Dmitry,

Is there still no fix for the above tGrid scroll bug?

I think it's quite an important bug that needs to be fixed.
Sometimes, mouse will and keyboard arrow keys don't work either.

For example, where tGrid height fits 10 record, on 11th record it should show the vertical scroll bar but it doesn't. Only way out is to add another record (12th record) to get vertical scroll bar.

I can work out for my own use but it's impossible to explain to end user as I cannot say there is a bug and try to explain workarounds.

Could you please fix this bug ASAP?

Thank you very much Derek.............
That'll do nicely.

Now only remaining item is ProgressBar

Thank you very much Derek.................
Truly appreciated.............

Thanks to Derek item 2 is done.

Now remaining items are:
1. Progress bar.
Tried to follow Dmitry's code but couldn't get it working.

3. Flashing text effect for finished caption text
Nothing fancy. Just a repeating two color changes with short intervals so that it gives flashing effect.

Hi Derek,

Thank you very much....

Unless I'm missing something you worked on item 2.
That's not what I meant. Most likely my explanation was not clear.
I would like to display random message in random order, every time countdown finishes. In this respect we don't need a use column as messages displayed randomly.

Say we have 10 messages entered to tGrid
First countdown 1st message
Second countdown 2nd message
....
Tenth countdown 10th message

Eleventh countdown starts with 5th message (this time it starts somewhere middle)
uses 5 + messages upto available 10 messages then 5 minus up to and including message 1

21st countdown starts with i.e. 8th message then count up or down until available messages used

31st countdown starts with i.e. 4th message count up or down until available messages used

an so on....

In order to reduce predictability in certain degree.

Hi EHW.

GREAT Stuff !!!
Thank you very much.............................
Truly appreciated...........................

Knowledge shortage at my part. I was thinking those text fields as combo items value holder but now after your pointing out there is no need to save them in this situation.

Extra thank you for trimming the script in respect of combo items and color dialog. More learning references for me.

I couldn't understand how you get/define values (numbers and "") in line below? If you could explain id'd be appreciated.

If SqlExecute('Select Count(id) From Settings') = 0 then SqlExecute('Insert Into Settings Values (1,65280,0,65280,65280,0,0,0,0,0,16776960,16776960,16776960,"")');

I wanted replace system error/info dialog messages below wit a user friendly versions on settings form:
Clicking on Play button when play sound checkbox is checked and sound file edit field has no sound file
"Cannot determine the device type from the given filename extention."
and stop button
"No MCI device open."

I tried Dmitry's code for foreign key retraints but didn't work. I suspect function is incorrect:

function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
if Sender = frmSettings.btnPlay then
   begin
   if Pos('Cannot determine the device type from the given filename extention.', Msg)=1 then
      begin
      result := True;
      MessageBox('No sound file was selected. Please select a .mp3 or .wav sound file first by clicking on Sound File button.', 'Error', MB_OK+MB_ICONWARNING);
      end;
   end;
end;

I ended up disabling/enabling play and stop buttons, which may not be a proper solution:

procedure frmSettings_cBoxPlaySound_OnClick (Sender: TObject);
If (frmSettings.cBoxPlaySound.Checked = True) and (frmSettings.edSoundFile.Text <>'') then
   begin
   frmSettings.btnPlay.Enabled := True;
   frmSettings.btnStop.Enabled := True;
   end else;

If (frmSettings.cBoxPlaySound.Checked = True) and (frmSettings.edSoundFile.Text = '') then
   begin
   frmSettings.btnPlay.Enabled := False;
   frmSettings.btnStop.Enabled := False;
   end;
end;

procedure frmSettings_edSoundFile_OnChange (Sender: TObject);
begin
If (frmSettings.cBoxPlaySound.Checked = True) and (frmSettings.edSoundFile.Text <>'') then
   begin
   frmSettings.btnPlay.Enabled := True;
   frmSettings.btnStop.Enabled := True;
   end else;

If (frmSettings.cBoxPlaySound.Checked = True) and (frmSettings.edSoundFile.Text = '') then
   begin
   frmSettings.btnPlay.Enabled := False;
   frmSettings.btnStop.Enabled := False;
   end;
end;

Once again thank you so much for your kind help...............................