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

gtk2 intf: implemented UpdateWindow

Browse Source 
git-svn-id: trunk@11434 -
This commit is contained in:
mattias 2007-07-06 12:42:20 +00:00
parent 2f657c4c3f
commit 466d2337c3
6 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/opengl/example/testopenglcontext1.lpi
View File

@ -11,7 +11,7 @@
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<PublishOptions>
<Version Value="2"/>
@ -40,7 +40,7 @@
<UnitName Value="TestOpenGLContext1"/>
<CursorPos X="8" Y="10"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="142"/>
<Loaded Value="True"/>
</Unit0>
@ -50,7 +50,7 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="mainunit.lrs"/>
<UnitName Value="MainUnit"/>
<CursorPos X="29" Y="28"/>
<CursorPos X="16" Y="26"/>
<TopLine Value="11"/>
<EditorIndex Value="0"/>
<UsageCount Value="142"/>
@ -61,7 +61,7 @@
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<LCLWidgetType Value="gtk"/>
<LCLWidgetType Value="gtk2"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>

2
ide/main.pp
View File

@ -1391,7 +1391,7 @@ procedure TMainIDE.SetupSpeedButtons;
B.Free;
NumGlyphs := ANumGlyphs;
Flat := True;
//Transparent:=True;
//Transparent:=true;
if mfTop in AMoveFlags then Inc(ATop, Height);
if mfLeft in AMoveFlags then Inc(ALeft, Width);
Hint := AHint;

6
lcl/include/control.inc
View File

@ -2533,9 +2533,9 @@ begin
Repaint;
end;
{------------------------------------------------------------------------------}
{ TControl Repaint }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl Repaint
------------------------------------------------------------------------------}
procedure TControl.Repaint;
var
DC: HDC;

4
lcl/include/winapih.inc
View File

@ -235,13 +235,13 @@ function StretchDIBits(DC: HDC; DestX, DestY, DestWidth, DestHeight, SrcX,
Usage: UINT; Rop: DWORD): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SystemParametersInfo(uiAction: DWord; uiParam: DWord; pvParam: Pointer; fWinIni: DWord): LongBool; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function UpdateWindow(Handle: HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function UnionRect --> independent
Function WindowFromPoint(Point : TPoint) : HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function WindowFromPoint(Point : TPoint) : HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//##apiwiz##eps## // Do not remove
{******************************************************************************
Platform independent stuff

13
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -525,6 +525,19 @@ begin
end;
end;
function TGtk2WidgetSet.UpdateWindow(Handle: HWND): Boolean;
var
CurWidget: PGtkWidget;
begin
CurWidget:=PGTKWidget(Handle);
//DebugLn(['TGtk2WidgetSet.UpdateWindow ',GetWidgetDebugReport(CurWidget)]);
if GTK_WIDGET_DRAWABLE(CurWidget) then begin
//DebugLn(['TGtk2WidgetSet.UpdateWindow DRAWING']);
gtk_widget_queue_draw(CurWidget);
gdk_window_process_updates(CurWidget^.window,TRUE);
end;
end;
//##apiwiz##eps## // Do not remove
{$IfDef ASSERT_IS_ON}

4
lcl/interfaces/gtk2/gtk2winapih.inc
View File

@ -45,6 +45,8 @@ function GetCursorPos(var lpPoint: TPoint ): Boolean; override;
function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; override;
function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
function UpdateWindow(Handle: HWND): Boolean; override;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line