diff options
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/gui_edit.pas | 12 | ||||
-rw-r--r-- | src/gui/gui_popupcalendar.pas | 4 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas index aa41727c..166e5e80 100644 --- a/src/gui/gui_edit.pas +++ b/src/gui/gui_edit.pas @@ -30,7 +30,7 @@ uses gui_menu; type - TfpgEditBorderStyle = (bsNone, bsDefault, bsSingle); + TfpgEditBorderStyle = (ebsNone, ebsDefault, ebsSingle); TfpgCustomEdit = class(TfpgWidget) @@ -93,7 +93,7 @@ type procedure HandleKillFocus; override; function GetDrawText: String; property AutoSelect: Boolean read FAutoSelect write SetAutoSelect default True; - property BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default bsDefault; + property BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault; property Font: TfpgFont read FFont; property FontDesc: String read GetFontDesc write SetFontDesc; property HideSelection: Boolean read FHideSelection write SetHideSelection default True; @@ -493,16 +493,16 @@ begin Canvas.ClearClipRect; r.SetRect(0, 0, Width, Height); case BorderStyle of - bsNone: + ebsNone: begin // do nothing end; - bsDefault: + ebsDefault: begin Canvas.DrawControlFrame(r); InflateRect(r, -2, -2); end; - bsSingle: + ebsSingle: begin Canvas.SetColor(clShadow2); Canvas.DrawRectangle(r); @@ -865,7 +865,7 @@ begin FSelOffset := 0; FTextOffset := 0; FPasswordMode := False; - FBorderStyle := bsDefault; + FBorderStyle := ebsDefault; FPopupMenu := nil; FDefaultPopupMenu := nil; FOnChange := nil; diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas index 51f11d28..e712b85d 100644 --- a/src/gui/gui_popupcalendar.pas +++ b/src/gui/gui_popupcalendar.pas @@ -528,7 +528,7 @@ begin Text := ''; FontDesc := '#Edit1'; Focusable := False; - BorderStyle := bsSingle; + BorderStyle := ebsSingle; end; btnYearUp := TfpgButton.Create(self); @@ -567,7 +567,7 @@ begin Text := ''; FontDesc := '#Edit1'; Focusable := False; - BorderStyle := bsSingle; + BorderStyle := ebsSingle; end; btnMonthUp := TfpgButton.Create(self); |