summaryrefslogtreecommitdiff
path: root/src/gui
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui')
-rw-r--r--src/gui/gui_edit.pas12
-rw-r--r--src/gui/gui_popupcalendar.pas4
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);