paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 12:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

further cleanup

Browse Source 
git-svn-id: trunk@3756 -
This commit is contained in:
mattias 2002-12-28 21:44:51 +00:00
parent d70ea097ac
commit a4d0d73c11
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32object.inc
View File

@ -897,7 +897,7 @@ activate_time : the time at which the activation event occurred.
If (TControl(Sender).fCompStyle = csListBox) If (TControl(Sender).fCompStyle = csListBox)
Or (TControl(Sender).FCompStyle = csCListBox) Then Or (TControl(Sender).FCompStyle = csCListBox) Then
Begin Begin
If TListBox(Sender).BorderStyle = TBorderStyle(bsSingle) Then If TCustomListBox(Sender).BorderStyle = TBorderStyle(bsSingle) Then
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) Or WS_EX_CLIENTEDGE) SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) Or WS_EX_CLIENTEDGE)
Else Else
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) And Not WS_EX_CLIENTEDGE); SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) And Not WS_EX_CLIENTEDGE);
@ -2617,6 +2617,9 @@ End;
{ {
$Log$ $Log$
Revision 1.38 2002/12/28 21:44:51 mattias
further cleanup
Revision 1.37 2002/12/28 21:38:50 mattias Revision 1.37 2002/12/28 21:38:50 mattias
cleanups cleanups

5
lcl/stdctrls.pp
View File

@ -364,7 +364,6 @@ type
procedure DrawItem(Index: Integer; ARect: TRect; procedure DrawItem(Index: Integer; ARect: TRect;
State: TOwnerDrawState); virtual; State: TOwnerDrawState); virtual;
protected protected
property BorderStyle : TBorderStyle read FBorderStyle write SetBorderStyle;
property ExtendedSelect : boolean read FExtendedSelect write SetExtendedSelect; property ExtendedSelect : boolean read FExtendedSelect write SetExtendedSelect;
property Sorted : boolean read FSorted write SetSorted; property Sorted : boolean read FSorted write SetSorted;
property Style : TListBoxStyle read FStyle write SetStyle; property Style : TListBoxStyle read FStyle write SetStyle;
@ -374,6 +373,7 @@ type
constructor Create(AOwner : TComponent); override; constructor Create(AOwner : TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Clear; procedure Clear;
property BorderStyle : TBorderStyle read FBorderStyle write SetBorderStyle;
property Canvas: TCanvas read FCanvas; property Canvas: TCanvas read FCanvas;
property ItemIndex : integer read GetItemIndex write SetItemIndex; property ItemIndex : integer read GetItemIndex write SetItemIndex;
property Items : TStrings read FItems write SetItems; property Items : TStrings read FItems write SetItems;
@ -1392,6 +1392,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.73 2002/12/28 21:44:51 mattias
further cleanup
Revision 1.72 2002/12/27 10:34:55 mattias Revision 1.72 2002/12/27 10:34:55 mattias
message view scrolls to message message view scrolls to message