paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 04:58:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

consistent BorderStyle naming

Browse Source 
git-svn-id: trunk@5491 -
This commit is contained in:
micha 2004-05-21 10:02:59 +00:00
parent 0ebc945aa3
commit 9ebdcb9f6d
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/wincontrol.inc
View File

@ -992,7 +992,7 @@ end;
procedure TWinControl.SetBorderStyle(NewStyle: TBorderStyle);
begin
FBorderStyle := NewStyle;
TWSWinControlClass(WidgetSetClass).BorderStyleChanged(self);
TWSWinControlClass(WidgetSetClass).SetBorderStyle(Self, NewStyle);
end;
{------------------------------------------------------------------------------}
@ -3544,6 +3544,9 @@ end;
{ =============================================================================
$Log$
Revision 1.231 2004/05/21 10:02:59 micha
consistent BorderStyle naming
Revision 1.230 2004/05/21 09:03:55 micha
implement new borderstyle
- centralize to twincontrol (protected)

4
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -62,7 +62,7 @@ type
private
protected
public
class procedure BorderStyleChanged(const AWinControl: TWinControl); override;
class procedure SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle); override;
end;
{ TWin32WSGraphicControl }
@ -100,7 +100,7 @@ begin
Windows.SetCursor(Windows.LoadCursor(0, LclCursorToWin32CursorMap[ACursor]));
end;
procedure TWin32WSWinControl.BorderStyleChanged(const AWinControl: TWinControl);
procedure TWin32WSWinControl.SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle);
begin
TWin32WidgetSet(InterfaceObject).RecreateWnd(AWinControl);
end;

5
lcl/widgetset/wscontrols.pp
View File

@ -65,11 +65,10 @@ type
{ TWSWinControl }
TWSWinControl = class(TWSControl)
class procedure BorderStyleChanged(const AWinControl: TWinControl); virtual;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; virtual;
class function GetTextLen(const AWinControl: TWinControl; var ALength: Integer): Boolean; virtual;
class procedure SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle); virtual;
class procedure SetBounds(const AWinControl: TWinControl; const ALeft, ATop, AWidth, AHeight: Integer); virtual;
class procedure SetCursor(const AControl: TControl; const ACursor: TCursor); override;
class procedure SetPos(const AWinControl: TWinControl; const ALeft, ATop: Integer); virtual;
@ -107,7 +106,7 @@ end;
{ TWSWinControl }
procedure TWSWinControl.BorderStyleChanged(const AWinControl: TWinControl);
procedure TWSWinControl.SetBorderStyle(const AWinControl: TWinControl; const ABorderStyle: TBorderStyle);
begin
end;