paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:19:30 +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"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -40,7 +40,7 @@
<UnitName Value="TestOpenGLContext1"/> <UnitName Value="TestOpenGLContext1"/>
<CursorPos X="8" Y="10"/> <CursorPos X="8" Y="10"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<UsageCount Value="142"/> <UsageCount Value="142"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit0> </Unit0>
@ -50,7 +50,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="mainunit.lrs"/> <ResourceFilename Value="mainunit.lrs"/>
<UnitName Value="MainUnit"/> <UnitName Value="MainUnit"/>
<CursorPos X="29" Y="28"/> <CursorPos X="16" Y="26"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="142"/> <UsageCount Value="142"/>
@ -61,7 +61,7 @@
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<SearchPaths> <SearchPaths>
<LCLWidgetType Value="gtk"/> <LCLWidgetType Value="gtk2"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>

2
ide/main.pp
View File

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

6
lcl/include/control.inc
View File

@ -2533,9 +2533,9 @@ begin
Repaint; Repaint;
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------
{ TControl Repaint } TControl Repaint
{------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.Repaint; procedure TControl.Repaint;
var var
DC: HDC; 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} 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 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 UpdateWindow(Handle: HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function UnionRect --> independent //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 //##apiwiz##eps## // Do not remove
{****************************************************************************** {******************************************************************************
Platform independent stuff Platform independent stuff

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

@ -525,6 +525,19 @@ begin
end; end;
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 //##apiwiz##eps## // Do not remove
{$IfDef ASSERT_IS_ON} {$IfDef ASSERT_IS_ON}

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

@ -46,5 +46,7 @@ function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize
function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : 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 //##apiwiz##eps## // Do not remove, no wizard declaration after this line