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

fixed scrollbars of TIpHtmlPanel

Browse Source 
git-svn-id: trunk@3990 -
This commit is contained in:
mattias 2003-03-31 20:25:19 +00:00
parent 977dec59dc
commit bb5867dd2d
4 changed files with 25 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/turbopower_ipro/iphtml.pas
View File

@ -2417,7 +2417,8 @@ type
TIpHtmlCustomPanel = class;
TIpHtmlInternalPanel = class(TCustomPanel)
TIpHtmlInternalPanel = class(
{$IFDEF IP_LAZARUS}TCustomControl{$ELSE}TCustomPanel{$ENDIF})
protected
FUpdatingScrollbars : Boolean;
FAutoScroll: Boolean;
@ -2451,7 +2452,6 @@ type
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
@ -15392,16 +15392,26 @@ end;
procedure TIpHtmlInternalPanel.WMHScroll(var Message: TWMHScroll);
begin
{$IFDEF IP_LAZARUS}
if HScroll.Visible then
HScroll.ScrollMessage(Message)
{$ELSE}
if (Message.ScrollBar = 0) and HScroll.Visible then
HScroll.ScrollMessage(Message) else
inherited;
{$ENDIF}
end;
procedure TIpHtmlInternalPanel.WMVScroll(var Message: TWMVScroll);
begin
{$IFDEF IP_LAZARUS}
if VScroll.Visible then
VScroll.ScrollMessage(Message)
{$ELSE}
if (Message.ScrollBar = 0) and VScroll.Visible then
VScroll.ScrollMessage(Message) else
inherited;
{$ENDIF}
end;
procedure TIpHtmlInternalPanel.WMEraseBkgnd(var Message: TWmEraseBkgnd);
@ -17548,6 +17558,9 @@ initialization
InitScrollProcs;
{
$Log$
Revision 1.7 2003/03/31 20:25:18 mattias
fixed scrollbars of TIpHtmlPanel
Revision 1.6 2003/03/31 09:13:33 mattias
fixes for fpc 1.0.7

2
lcl/Makefile.fpc
View File

@ -26,7 +26,7 @@ packages=fcl
[compiler]
options=-gl
unittargetdir=units
unitdir=interfaces/abstract .
unitdir=.
includedir=include
[install]

17
lcl/include/custompanel.inc
View File

@ -23,11 +23,11 @@
}
{------------------------------------------------------------------------------
constructor TCustomPanel.Create (AOwner : TComponent);
constructor TCustomPanel.Create (TheOwner : TComponent);
------------------------------------------------------------------------------}
constructor TCustomPanel.Create (AOwner : TComponent);
constructor TCustomPanel.Create (TheOwner : TComponent);
begin
inherited Create (AOwner);
inherited Create (TheOwner);
FCompStyle:= csPanel;
ControlStyle := ControlStyle + [csAcceptsControls, csCaptureMouse,
csClickEvents, csSetCaption, csOpaque, csDoubleClicks, csReplicatable,
@ -111,6 +111,11 @@ begin
end;
end;
function TCustomPanel.ParentColorIsStored: boolean;
begin
Result:=not ParentColor;
end;
procedure TCustomPanel.AdjustClientRect(var Rect: TRect);
var
BevelSize: Integer;
@ -131,12 +136,6 @@ begin
end;
end;
procedure TCustomPanel.Invalidate;
begin
inherited;
// InvalidateRect(ClientRect, True);
end;
function TCustomPanel.GetText: TCaption;
begin
Result := FCaption;

1
tools/install/create_fpc_export_tgz.sh
View File

@ -34,6 +34,7 @@ echo downloading cvs $CVSParams ...
mkdir -p $TempDir
cd $TempDir
rm -rf fpc
export CVS_RSH=
export CVSROOT=:pserver:cvs@cvs.freepascal.org:/FPC/CVS
echo 'The password is: cvs'
cvs login