Change Key Tab To Enter For next Control
From Code in MVD 4.4
procedure Form1_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=13 then Form1.SetFocusNextControl;
end;No Effect !
Bug????
101 2018-05-24 04:20:45
Topic: Get Bug Version In 4.4 (Script Ctrl_OnKeyDown) (3 replies, posted in General)
102 2018-05-16 03:58:07
Topic: How To edit script checkbox for select same RadioButton (1 replies, posted in Script)
I try edit script but error for click select sex male,female component checkbox
how to edit script ???
procedure Form1_CheckBox2_OnClick (Sender: string);
begin
Form1.CheckBox1.State := cbUnchecked ;
Form1.CheckBox2.State := cbchecked ;
Form1.Color := ClGreen ;
end;
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
Form1.CheckBox1.State := cbchecked ;
Form1.CheckBox2.State := cbUnchecked ;
Form1.Color := ClBlue ;
end;
begin
end.103 2018-05-07 01:02:37
Topic: Example Treeview+TSplitter+Tdataset (4 replies, posted in General)
Reference Original Example https://www.heidisql.com/
The author: Ansgar Becker
Original Screen
MVD Screen
Learn Education Component
- Treeview
- Tsplitter
- Tdataset
- Tstringlist
Compile MVD Version 4.4 beta
104 2018-05-06 07:56:02
Topic: How To Show Original Content ? (4 replies, posted in Script)
How to set Tmemo Or Script Show Original Content From Database ?
New line,tab Or Etc Help me please Like HeidiSQL Show Content
Example 4.4 Beta Compile Only
Help ME Please !!!
106 2018-04-21 00:17:39
Topic: How to FIx Treeview Add Sub Treenode ??? (1 replies, posted in Script)
How To add sub items Treenode in items select by script help me please !
maximun show add items lv1
if add item more than lv 1 how to edit ??
107 2018-04-16 15:52:06
Re: Bug ? TMemo Not Support UTF8 (5 replies, posted in General)
OK Fix It Work!
Thank You...
UM... little Question It because Show false ?
- Component in MVD not support
or
- Text File in my Pc
108 2018-04-13 09:51:04
Re: Bug ? TMemo Not Support UTF8 (5 replies, posted in General)
How to Fix
Text Encode Go And Back
Ansi <> Unicode<>UTF8
Or Add TEncoding Component Class ,Add Function For converter ???
Because When to read string or Insert to database it false ...
Help Me please For Support more language !
109 2018-04-12 13:22:48
Topic: Bug ? TMemo Not Support UTF8 (5 replies, posted in General)
How to Fix script load text for support utf8 !
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
opendialog : topendialog ;
begin
opendialog := topendialog.create(form1) ;
if opendialog.execute then
form1.Memo1.Lines.loadfromfile(opendialog.filename);
opendialog.free
end;
begin
end.
Text Example(jp utf8.txt)
ももたろう Momotarou
Momotarou, the Peach Boy
ISBN4-591-03701-0 C8739 P1000E
Translation by Tom Ray and Hiromi Mochizuki (hiromi@hip.atr.co.jp) ももたろう momotarou
page 2
むかし、 むかし、 ある ところ に
おじいさん と おばあさん が いました。
おじいさん が 山（やま） へ 木（き） を きり に いけば、
おばあさん は 川（かわ） へ せんたく に でかけます。
「おじいさん、 はよう もどって きなされ。」
「おばあさん も き を つけて な。」
まい日（にち） やさしく いい あって でかけます。110 2018-03-24 00:12:56
Re: Splitter bar (4 replies, posted in General)
Easy Example :
http://wiki.freepascal.org/TSplitter
procedure Form1_OnShow (Sender: TObject; Action: string);
var
splitter1,splitter2 : Tsplitter;
begin
Form1.Panel2.Align:= alLeft ;
Form1.Panel3.Align:= alClient ;
Splitter1:=TSplitter.Create(Form1);
with Splitter1 do begin
Splitter1.Name:='Splitter1';
Splitter1.Parent:= form1.Panel1;
Splitter1.Left:=100;
Splitter1.Align:=alLeft;
end;
Form1.Panel4.Align:= alTop ;
Form1.Panel5.Align:= alClient ;
Splitter2:=TSplitter.Create(Form1);
with Splitter2 do begin
Splitter2.Name:='Splitter2';
Splitter2.Parent:= form1.Panel3;
//Splitter1.Left:=100;
Splitter2.Align:=alTop;
end;
end;
begin
end.111 2017-11-07 15:01:19
Topic: How To Update Lat,Long When Marker In Map (MVD 4.0 beta) (1 replies, posted in Script)
I try test Component Map In MVD 4.0 Beta + world database
Question how to update edit.text when maker in map real time
Or Can Show Detail label upper pin in map ???
-----
112 2017-10-31 22:26:41
Re: How To Fix Or Edit Script Error 0/100 (3 replies, posted in Reports)
Example Error
When Cal In Report
113 2017-10-31 09:04:42
Topic: How To Fix Or Edit Script Error 0/100 (3 replies, posted in Reports)
in report if want ratio calculator
(A/B)*100
(5/200)*100 = 2.5
-- OK Normal result Not Error
(A <>0 or A not null ) AND (B <>0 or B not null )
BUT
(0/100)*100 or (null/100)*100 or (null/null)*100
-- result Error And Report Engine Stop Running
how to protect or check value A,B before cal ?
114 2017-10-31 07:14:04
Topic: How To Change Property ToolBar,ToolButton (1 replies, posted in Script)
How to set size toolbutton in toolbar increase Height ,Width ???
Help me please !!!
i try input code but not effect
var
toolbar :ttoolbar;
toolbutton0 : ttoolbutton;
begin
toolbar := ttoolbar.create(form1);
toolbar.parent := form1.Panel2;
toolbar.Customizable := True ;
toolbar.showcaptions := true;
toolbar.AutoSize := True ;
toolbar.Height := 80 ;
toolbar.ButtonHeight := 50 ;
toolbar.ButtonWidth := 100 ;
toolbutton0 := ttoolbutton.Create(Form1) ;
toolbutton0.Parent := toolbar ;
toolbutton0.Caption:= 'toolbutton0';
toolbutton0.Height := 50 ;
toolbutton0.Width := 100;
end;115 2017-10-09 09:09:32
Topic: How To Image Resize Batch In Database (0 replies, posted in Script)
In project add image >> to in database(sqlite,mysql)
but effect Slow when report preview or call record
How To Image Resize Batch In Database small but have quality
(Size >> small)
116 2017-10-04 10:06:31
Re: How To Create Tinifile for save and load setting (2 replies, posted in Script)
Thank You nrmuduli
I find this function
Thank You Again...
117 2017-10-04 08:56:28
Topic: How To Create Tinifile for save and load setting (2 replies, posted in Script)
How to Create file and save(fontconfig.ini) for save setting and load (fontconfig.ini) in application
118 2017-09-26 02:01:17
Re: Create Report (10 replies, posted in General)
Add Query For Create Group Header 
119 2017-09-25 13:12:17
Re: How To Use Function GetFileSize To xxx mb. (2 replies, posted in General)
Thank You Dmitry.
It Easy For View Size .
120 2017-09-25 10:18:13
Re: Create Report (10 replies, posted in General)
Please Example Result Screen Want To Edit
Yes / No ?
Or Create Dataset In Report Editor
121 2017-09-25 08:57:45
Re: Create Report (10 replies, posted in General)
Please Attach Project Example
122 2017-09-25 08:56:38
Topic: How To Use Function GetFileSize To xxx mb. (2 replies, posted in General)
Form1.Caption := IntToStr(GetFileSize(application.exename));How To Converter size to byte,mb,gb
123 2017-09-17 14:54:23
Topic: Request Next Version add TSynEdit in Component (1 replies, posted in General)
- add TSynEdit in Component Class
because long text use Tmemo no have line number when edit value long it difficult
Help Please !!!
124 2017-09-14 00:46:05
Topic: How to Edit Grid Style Slide (7 replies, posted in General)
In MVD TableGrid have class GridStyle : GsSlides
how to edit and show slide in tablegrid
Reference
http://dn.bergsoft.net/nextgrid-slide-s … torial.htm
125 2017-09-13 12:18:56
Re: [Script] Import-Export data (11 replies, posted in FAQ)
Thank You Dmitry.
Now Can Fix Problem Add Column Name In Export data From Dmitry example code
sl.Insert(0, 'lastname, firstname, salary, dateofbirth, isSmoke, comment');Can apply code modify to type loop
z := Results.FieldCount-1;
For x := 0 to z do
begin
hsValue := Results.Fields[x].FieldName;
hsValues := hsValues + hsValue+',';
end;
if hsValues <> '' then SetLength(hsValues, Length(hsValues)-1);
sl.Insert(0,hsValues);Thank You Dmitry. Again