paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:56:10 +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

59
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,25 +4081,45 @@ begin
end; end;
with ScrollInfo, Adjustment^ do begin if Adjustment<>nil then begin
// POS with ScrollInfo, Adjustment^ do begin
if (fMask and SIF_POS) <> 0 then // POS
nPos := round(Value); if (fMask and SIF_POS) <> 0 then
// RANGE nPos := round(Value);
if (fMask and SIF_RANGE) <> 0 // RANGE
then begin if (fMask and SIF_RANGE) <> 0
nMin:= round(Lower); then begin
nMax:= round(Upper); nMin:= round(Lower);
nMax:= round(Upper);
end;
// PAGE
if (fMask and SIF_PAGE) <> 0 then
nPage := round(Page_Size);
// TRACKPOS
if (fMask and SIF_TRACKPOS)<>0 then
nTrackPos := round(Value); // don't know if this is correct
end; end;
// PAGE Result := true;
if (fMask and SIF_PAGE) <> 0 then end else begin
nPage := round(Page_Size); with ScrollInfo, Adjustment^ do begin
// TRACKPOS // POS
if (fMask and SIF_TRACKPOS)<>0 then if (fMask and SIF_POS) <> 0 then
nTrackPos := round(Value); // don't know if this is correct 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;
Result := true;
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