• Registered: 2014-08-02
  • Posts: 917

Topic: Checkbox in TableGrid

Hello Dmitry

With MVD 1.52 beta, is it possible to place a checkbock inside a column ?

I've tried but it needs a procedure TForm1.TableGrid1DrawColumnCell
and event DrawColumnCell does'nt seem activated.

Thanks for your answer

JB

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Checkbox in TableGrid

Hello,


Please, download latest beta version:
https://www.dropbox.com/s/s1roiqthyx7hx … 2.zip?dl=0



Example for you

Post's attachments

Attachment icon Grid with CheckBox.zip 138.7 kb, 546 downloads since 2015-05-19 

Dmitry.
  • Registered: 2014-08-02
  • Posts: 917

Re: Checkbox in TableGrid

Hello Dmitry

Thanks very much for this add.
Very useful.
MVD increases its capacities to create very professional applications.

By the way, any idea about a TreeView (orDBTreeView) embedded in MVD ?

Thanks

JB

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Checkbox in TableGrid

jean.brezhonek
Planned )

Dmitry.
  • Registered: 2014-08-02
  • Posts: 917

Re: Checkbox in TableGrid

Hello Dmitry

Good new !
I'm waiting for

Another point :

Is it possible to launch a application created with MVD once and only once.
If launched myapp.exe twice, to  raise a message saying 'This application is already running !'

When I was under Delphi 7, I used this code :

procedure  TForm1.FormCreate(Sender:  TObject);
var   Sem: THandle;
begin
Sem :=CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
if  ((Sem  <>  0)  and  (GetLastError  =  ERROR_ALREADY_EXISTS))  then
begin
 CloseHandle(Sem);
ShowMessage('This  program  is already running.');
Halt;
  end;
end;

But I can't transpose it under MVD.

Is it a scrip making the same job ?

Thanks Dmitry

JB

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Checkbox in TableGrid

jean.brezhonek
Please download latest beta version
https://www.dropbox.com/s/s1roiqthyx7hx … 2.zip?dl=0


then try this:

procedure Form1_OnShow (Sender: string; Action: string);
var
    s: string;
begin
    s := Form1.Caption;
    Form1.Caption := '';

    if FindWindow('TfrmMaindbCore', 'Caption main form')<>0 then
    begin
        ShowMessage('The application already running');
        Form1.Close;
    end;

    Form1.Caption := s;
end;
Dmitry.
  • Registered: 2014-08-02
  • Posts: 917

Re: Checkbox in TableGrid

Hello Dmitry

Cool
Thanks for this add-on

JB