From 5a98dc550ad44cba3cc8c4249063c59da2f6a01f Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 26 May 2008 12:19:57 +0000
Subject: * Edit and Panel's BorderStyle properties had conflicting names.

---
 src/gui/gui_edit.pas          | 12 ++++++------
 src/gui/gui_popupcalendar.pas |  4 ++--
 2 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/gui')

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);
-- 
cgit v1.2.3-70-g09d2