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

IpHtmlPanel can show simple HTML pages, but there are mem bugs

Browse Source 
git-svn-id: trunk@2317 -
This commit is contained in:
mattias 2002-08-17 23:41:15 +00:00
parent 57a49dfd6b
commit 3dfd4af32c
1 changed files with 40 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4037,7 +4037,6 @@ end;
Params: Handle, BarFlag, ScrollInfo Params: Handle, BarFlag, ScrollInfo
Returns: Nothing Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TgtkObject.GetScrollInfo(Handle: HWND; SBStyle: Integer; function TgtkObject.GetScrollInfo(Handle: HWND; SBStyle: Integer;
var ScrollInfo: TScrollInfo): Boolean; var ScrollInfo: TScrollInfo): Boolean;
@ -4053,7 +4052,6 @@ begin
If not GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then If not GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then
Scroll := PGTKWidget(Handle); Scroll := PGTKWidget(Handle);
Adjustment:=nil;
case SBStyle of case SBStyle of
SB_HORZ: SB_HORZ:
If GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then If GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then
@ -4083,6 +4081,7 @@ begin
end; end;
if Adjustment<>nil then begin
with ScrollInfo, Adjustment^ do begin with ScrollInfo, Adjustment^ do begin
// POS // POS
if (fMask and SIF_POS) <> 0 then if (fMask and SIF_POS) <> 0 then
@ -4100,8 +4099,27 @@ begin
if (fMask and SIF_TRACKPOS)<>0 then if (fMask and SIF_TRACKPOS)<>0 then
nTrackPos := round(Value); // don't know if this is correct nTrackPos := round(Value); // don't know if this is correct
end; end;
Result := true; Result := true;
end else begin
with ScrollInfo, Adjustment^ do begin
// POS
if (fMask and SIF_POS) <> 0 then
nPos := 0;
// RANGE
if (fMask and SIF_RANGE) <> 0
then begin
nMin:= 0;
nMax:= 0;
end;
// PAGE
if (fMask and SIF_PAGE) <> 0 then
nPage := 0;
// TRACKPOS
if (fMask and SIF_TRACKPOS)<>0 then
nTrackPos := 0;
end;
Result := false;
end;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -8013,6 +8031,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.227 2003/03/29 23:52:25 mattias
IpHtmlPanel can show simple HTML pages, but there are mem bugs
Revision 1.226 2003/03/29 17:20:05 mattias Revision 1.226 2003/03/29 17:20:05 mattias
added TMemoScrollBar added TMemoScrollBar