diff options
| -rw-r--r-- | examples/apps/uidesigner/vfdprops.pas | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/examples/apps/uidesigner/vfdprops.pas b/examples/apps/uidesigner/vfdprops.pas index 32166060..fa2c8cd7 100644 --- a/examples/apps/uidesigner/vfdprops.pas +++ b/examples/apps/uidesigner/vfdprops.pas @@ -91,6 +91,11 @@ type TGeneralPropertyEditor = class(TVFDPropertyEditor) + private + FOrigValue: string; + procedure EditExit(Sender: TObject); + procedure EditKeyPressed(Sender: TObject; var KeyCode: word; + var ShiftState: TShiftState; var Consumed: boolean); public etype: TGPEType; edit: TfpgEdit; @@ -274,13 +279,33 @@ end; { TGeneralPropertyEditor } +procedure TGeneralPropertyEditor.EditExit(Sender: TObject); +begin + if FOrigValue <> edit.Text then + edit.Text := FOrigvalue; +end; + +procedure TGeneralPropertyEditor.EditKeyPressed(Sender: TObject; + var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean); +begin + if (KeyCode = keyReturn) or (KeyCode = keyPEnter) then + begin + UpdateProperty(nil); + FOrigValue := edit.Text; + end + else + inherited; +end; + procedure TGeneralPropertyEditor.CreateLayout; begin Anchors := [anTop, anLeft, anRight]; Edit := TfpgEdit.Create(self); Edit.SetPosition(0, 0, Width, Height); Edit.Anchors := Anchors; - Edit.OnChange := @UpdateProperty; +// Edit.OnChange := @UpdateProperty; + Edit.OnKeyPress := @EditKeyPressed; + Edit.OnExit :=@EditExit; Edit.Visible := True; end; @@ -301,10 +326,12 @@ end; procedure TGeneralPropertyEditor.LoadValue(wg: TfpgWidget); begin case etype of - gptInteger: LoadIntValue(wg); + gptInteger: + LoadIntValue(wg); else LoadStrValue(wg); end; + FOrigValue := edit.Text; end; procedure TGeneralPropertyEditor.StoreIntValue(wg: TfpgWidget); |