diff options
Diffstat (limited to 'examples/apps/uidesigner/vfdwidgetclass.pas')
-rw-r--r-- | examples/apps/uidesigner/vfdwidgetclass.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/examples/apps/uidesigner/vfdwidgetclass.pas b/examples/apps/uidesigner/vfdwidgetclass.pas index e6f0add2..b1c7eee0 100644 --- a/examples/apps/uidesigner/vfdwidgetclass.pas +++ b/examples/apps/uidesigner/vfdwidgetclass.pas @@ -167,7 +167,13 @@ begin y := rect.top; fy := y + rect.Height div 2 - Canvas.Font.Height div 2; - s := GetValueText(wg); + try + s := GetValueText(wg); + except + on E: Exception do + writeln('Detected a error: ', E.Message); + end; + Canvas.BeginDraw; Canvas.DrawString(x + 1, fy, s); Canvas.EndDraw; |