mORMot and Open Source friends
Check-in [2efd86b189]
Check-in [2efd86b189]
Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | fixed issue with sftSet kind of property |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2efd86b189b9823e23bae2aceefc9deb |
| User & Date: | ab 2011-06-16 05:34:09 |
|
2011-06-16
| ||
| 06:13 | TSQLDatabase.user_version now defined as a property, with a getter (not read/only any more) check-in: 4aa2672ad4 user: ab tags: trunk | |
| 05:34 | fixed issue with sftSet kind of property check-in: 2efd86b189 user: ab tags: trunk | |
|
2011-06-15
| ||
| 11:49 | compilation fix for SQLite3UIEdit version 1.14 check-in: b4c00d1253 user: ab tags: trunk | |
Changes to SQLite3/SQLite3UIEdit.pas.
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
...
415
416
417
418
419
420
421
422
423
424
425
426
427
428
|
- hanle sftTimeLog and sftDateTime with a TDateTimePicker
- handle sftInteger (including Int64 fields), sftCurrency and sftFloat with
a TSynLabeledEdit field
- now use TMS component pack only if USETMSPACK global conditional is defined:
by default, will use only VCL components (i.e. TSynButton) for the form
Version 1.14
- fixed issue with Currency kind of property
*)
interface
................................................................................
ShowHint := True;
end;
Checked := GetBit(Sets,j);
Enabled := Group.Enabled;
Tag := i+1+(j+1) shl 8; // for BtnSaveClick() event
end;
inc(Y,Group.Height+12);
continue;
end;
sftBoolean: begin
// boolean is handled by a TCheckBox component
CC := TCheckBox.Create(Scroll);
CC.Parent := Scroll; // initialize font
CC.Font.Style := [fsBold];
|
|
>
>
|
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
...
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
|
- hanle sftTimeLog and sftDateTime with a TDateTimePicker
- handle sftInteger (including Int64 fields), sftCurrency and sftFloat with
a TSynLabeledEdit field
- now use TMS component pack only if USETMSPACK global conditional is defined:
by default, will use only VCL components (i.e. TSynButton) for the form
Version 1.14
- fixed issue with sftCurrency kind of property
- fixed issue with sftSet kind of property
*)
interface
................................................................................
ShowHint := True;
end;
Checked := GetBit(Sets,j);
Enabled := Group.Enabled;
Tag := i+1+(j+1) shl 8; // for BtnSaveClick() event
end;
inc(Y,Group.Height+12);
fFieldComponents[i] := C;
continue;
end;
sftBoolean: begin
// boolean is handled by a TCheckBox component
CC := TCheckBox.Create(Scroll);
CC.Parent := Scroll; // initialize font
CC.Font.Style := [fsBold];
|