pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Correct optional property generation in XSD

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-11-25 20:52:04 +00:00
parent 5c93a8161f
commit c816b22922
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/type_lib_edtr/ufpropedit.pas
View File

@ -165,7 +165,7 @@ begin
edtType.ItemIndex := edtType.Items.IndexOfObject(FObject.VarType); edtType.ItemIndex := edtType.Items.IndexOfObject(FObject.VarType);
edtAttribute.Checked := FSymbolTable.IsAttributeProperty(FObject); edtAttribute.Checked := FSymbolTable.IsAttributeProperty(FObject);
if IsClassType() then begin if IsClassType() then begin
edtOptional.Checked := AnsiSameText('Has',Copy(TPasProperty(FObject).StoredAccessorName,1,3)) ; edtOptional.Checked := (AnsiPos(sWST_PROP_STORE_PREFIX,TPasProperty(FObject).StoredAccessorName) = 1) ;
end else begin end else begin
edtOptional.Checked := True; edtOptional.Checked := True;
edtOptional.Enabled := False; edtOptional.Enabled := False;
@ -213,7 +213,7 @@ begin
if IsClassType() then begin if IsClassType() then begin
locObjProp := locObj as TPasProperty; locObjProp := locObj as TPasProperty;
if edtOptional.Checked then if edtOptional.Checked then
locObjProp.StoredAccessorName := 'Has' + locObjProp.Name locObjProp.StoredAccessorName := sWST_PROP_STORE_PREFIX + locObjProp.Name
else else
locObjProp.StoredAccessorName := 'True'; locObjProp.StoredAccessorName := 'True';
locObjProp.ReadAccessorName := 'F' + locObjProp.Name; locObjProp.ReadAccessorName := 'F' + locObjProp.Name;