Skip to content

Commit

Permalink
Remoção de Warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
bittencourtthulio committed May 6, 2021
1 parent cf9b3ec commit 06a8bfb
Show file tree
Hide file tree
Showing 3 changed files with 14 additions and 22 deletions.
26 changes: 13 additions & 13 deletions src/Bind4D.Component.Edit.pas
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@ TBind4DComponentEdit = class(TInterfacedObject, iBind4DComponent)
FComponent : TEdit;
FAttributes : iBind4DComponentAttributes;
function onChangeAttribute : TBind4DComponentEdit;
function onExitAttribute : TBind4DComponentEdit;
//function onExitAttribute : TBind4DComponentEdit;
function especialValidate : TBind4DComponentEdit;
procedure TryValidations;
public
Expand Down Expand Up @@ -294,17 +294,17 @@ function TBind4DComponentEdit.onChangeAttribute : TBind4DComponentEdit;
end);
end;

function TBind4DComponentEdit.onExitAttribute: TBind4DComponentEdit;
begin
Result := Self;
FComponent.OnExit :=
TBind4DUtils
.AnonProc2NotifyEvent(
FComponent,
procedure (Sender : TObject)
begin
TCommandMaster.New.Execute((Sender as TEdit));
end);
end;
//function TBind4DComponentEdit.onExitAttribute: TBind4DComponentEdit;
//begin
// Result := Self;
// FComponent.OnExit :=
// TBind4DUtils
// .AnonProc2NotifyEvent(
// FComponent,
// procedure (Sender : TObject)
// begin
// TCommandMaster.New.Execute((Sender as TEdit));
// end);
//end;

end.
4 changes: 0 additions & 4 deletions src/Bind4D.Component.Image.pas
Original file line number Diff line number Diff line change
Expand Up @@ -94,8 +94,6 @@ function TBind4DComponentImage.ApplyValue: iBind4DComponent;
Attribute : S3Storage;
HorseAttribute : HorseStorage;
AttImage : ImageAttribute;
lStream : TStringStream;
lImagem : TMemoryStream;
begin
Result := Self;
try
Expand Down Expand Up @@ -174,8 +172,6 @@ function TBind4DComponentImage.GetValueString: String;
var
Attribute : S3Storage;
HorseAttribute : HorseStorage;
lStream: TMemoryStream;
lImagem : TStringStream;
begin
try
if RttiUtils.TryGet<HorseStorage>(FComponent, HorseAttribute) then
Expand Down
6 changes: 1 addition & 5 deletions src/Bind4D.pas
Original file line number Diff line number Diff line change
Expand Up @@ -408,7 +408,6 @@ function TBind4D.SetCaptionComponents : iBind4D;
var
Attribute : Translation;
I: Integer;
Component : TComponent;
iBind : iBind4DComponent;
begin
Result := Self;
Expand Down Expand Up @@ -493,13 +492,10 @@ function TBind4D.SetStyleComponents: iBind4D;
function TBind4D.SetZipCodeValue: iBind4D;
var
Attribute : ComponentZipCode;
I: Integer;
Component : TComponent;
iBind : iBind4DComponent;
lJson : TJsonObject;
a : string;
begin
Result := Self;
lJson := nil;
for Attribute in RttiUtils.Get<ComponentZipCode>(FForm) do
begin
if (TBind4DComponentFactory.New.Component(Attribute.Component).GetValueString = '') and
Expand Down

0 comments on commit 06a8bfb

Please sign in to comment.