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

added RectVisible from Micha

Browse Source 
git-svn-id: trunk@4361 -
This commit is contained in:
mattias 2003-07-03 17:19:20 +00:00
parent 2d5486cfdc
commit 5cc3f25a75
3 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/win32/win32object.inc
View File

@ -1894,7 +1894,7 @@ Begin
End;
csFrame, csGroupBox, csPanel:
Begin
Window := CreateWindow('BUTTON', StrTemp, Flags Or BS_GROUPBOX Or BS_TOP, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
Window := CreateWindow('BUTTON', StrTemp, Flags Or BS_GROUPBOX, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
SetProp(Window, 'Lazarus', Sender);
SetName(Window, StrTemp);
End;
@ -1956,7 +1956,7 @@ Begin
End;
csNotebook:
Begin
Window := CreateWindow(WC_TABCONTROL, Nil, Flags Or WS_CLIPSIBLINGS, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
Window := CreateWindow(WC_TABCONTROL, Nil, Flags, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
SetProp(Window, 'Lazarus', Sender);
SetName(Window, StrTemp);
End;
@ -1991,13 +1991,6 @@ Begin
SetProp(Window, 'Lazarus', Sender);
SetName(Window, strTemp);
End;
csSpeedButton:
Begin
Assert(False, 'Trace:TODO: Code the speed button control');
Window := CreateWindow('Button', StrTemp, Flags Or BS_PUSHBUTTON, Left, Top, Width, Height, Parent, HMENU(Nil), HInstance, Nil);
SetProp(Window, 'Lazarus', Sender);
SetName(Window, StrTemp);
End;
csSpinEdit:
Begin
Assert(False, 'Trace:TODO: Create a spin edit control. What is a spin edit contol anyway?');
@ -2708,6 +2701,9 @@ End;
{
$Log$
Revision 1.70 2003/07/03 17:19:19 mattias
added RectVisible from Micha
Revision 1.69 2003/07/03 08:05:53 mattias
fixed Criticalsection from Vincent

8
lcl/interfaces/win32/win32winapi.inc
View File

@ -1721,6 +1721,11 @@ Begin
Assert(False, Format('Trace:< [TWin32Object.Rectangle] DC:0x%x, X1:%d, Y1:%d, X2:%d, Y2:%d', [DC, X1, Y1, X2, Y2]));
End;
function TWin32Object.RectVisible(dc : hdc; const ARect: TRect) : Boolean;
begin
Result := Windows.RectVisible(DC, LPRECT(@ARect)^);
end;
{------------------------------------------------------------------------------
Method: ReleaseCapture
Params: none
@ -2310,6 +2315,9 @@ end;
{ =============================================================================
$Log$
Revision 1.40 2003/07/03 17:19:20 mattias
added RectVisible from Micha
Revision 1.39 2003/07/03 08:05:53 mattias
fixed Criticalsection from Vincent

4
lcl/interfaces/win32/win32winapih.inc
View File

@ -129,6 +129,7 @@ function RadialChord(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean;
function RadialPie(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; override;
Function RealizePalette(DC: HDC): Cardinal; Override;
Function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; Override;
function RectVisible(dc : hdc; const ARect: TRect) : Boolean; Override;
Function ReleaseCapture: Boolean; Override;
Function ReleaseDC(HWnd: HWND; DC: HDC): Integer; Override;
Function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; Override;
@ -175,6 +176,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.25 2003/07/03 17:19:20 mattias
added RectVisible from Micha
Revision 1.24 2003/07/02 15:56:15 mattias
fixed win32 painting and started creating bitmaps from rawimages