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

added more windows funcs and fixed jump to compiler error end of file

Browse Source 
git-svn-id: trunk@3735 -
This commit is contained in:
mattias 2002-12-25 13:30:37 +00:00
parent 32b0f7ae9b
commit fb8295d432
4 changed files with 34 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/outputfilter.pas
View File

@ -432,6 +432,7 @@ begin
MsgType:=ErrorTypeNameToType(copy(Line,StartPos,EndPos-StartPos));
Result:=true;
end else if Line[EndPos]=')' then begin
// <filename>(123) <ErrorType>: <some text>
// <filename>(456) <ErrorType>: <some text> in line (123)
// read error type
StartPos:=EndPos+2;
@ -440,7 +441,11 @@ begin
MsgType:=ErrorTypeNameToType(copy(Line,StartPos,EndPos-StartPos));
// read second linenumber (more useful)
while (EndPos<=length(Line)) and (Line[EndPos]<>'(') do inc(EndPos);
if EndPos>length(Line) then exit;
if EndPos>length(Line) then begin
// format: <filename>(123) <ErrorType>: <some text>
Result:=true;
exit;
end;
StartPos:=EndPos+1;
EndPos:=StartPos;
while (EndPos<=length(Line)) and (Line[EndPos] in ['0'..'9']) do inc(EndPos);

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

@ -635,26 +635,20 @@ End;
{------------------------------------------------------------------------------
Method: CreatePolygonRgn
Params: Points, NumPts, Winding
Params: Points, NumPts, FillMode
Returns: the handle to the region
Creates a Polygon, a closed many-sided shaped region. The Points parameter is
an array of points that give the vertices of the polygon. Winding determines
what points are going to be included in the region. When Winding is True,
points are selected by using the Winding fill algorithm. When Winding is
False, points are selected by using using the even-odd (alternative) fill
an array of points that give the vertices of the polygon. FillMode=Winding
determines what points are going to be included in the region. When Winding
is True, points are selected by using the Winding fill algorithm. When Winding
is False, points are selected by using using the even-odd (alternative) fill
algorithm. NumPts indicates the number of points to use.
The first point is always connected to the last point.
------------------------------------------------------------------------------}
Function TWin32Object.CreatePolygonRgn(Points: PPoint; NumPts: Integer;
Winding : Boolean): HRGN;
var
fm : Longint;
FillMode: integer): HRGN;
Begin
If Winding then
fm := Windows.Winding
else
fm := Windows.Alternate;
Result := Windows.CreatePolygonRgn(LPPOINT(Points)^, NumPts, fm);
End;
@ -2275,6 +2269,9 @@ end;
{ =============================================================================
$Log$
Revision 1.25 2002/12/25 13:30:37 mattias
added more windows funcs and fixed jump to compiler error end of file
Revision 1.24 2002/11/26 20:51:05 mattias
applied clipbrd patch from Vincent

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

@ -52,7 +52,7 @@ Function CreateFontIndirect(Const LogFont: TLogFont): HFONT; Override;
Function CreatePenIndirect(Const LogPen: TLogPen): HPEN; Override;
{ Creates a bitmap from raw pixmap data }
Function CreatePixmapIndirect(Const Data: Pointer; Const TransColor: LongInt): HBITMAP; Override;
Function CreatePolygonRgn(Points: PPoint; NumPts: Integer; Winding : Boolean): HRGN; Override;
Function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; Override;
Function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; Override;
Function DeleteDC(HDC: HDC): Boolean; Override;
@ -170,6 +170,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.17 2002/12/25 13:30:37 mattias
added more windows funcs and fixed jump to compiler error end of file
Revision 1.16 2002/11/23 13:48:49 mattias
added Timer patch from Vincent Snijders

22
lcl/lcltype.pp
View File

@ -1302,15 +1302,20 @@ const
{ Text Alignment Options }
TA_NOUPDATECP = 0;
TA_UPDATECP = 1;
TA_LEFT = 0;
TA_RIGHT = 2;
TA_CENTER = 6;
TA_TOP = 0;
TA_BOTTOM = 8;
TA_BASELINE = 24;
TA_UPDATECP = 1;
TA_LEFT = 0;
TA_RIGHT = 2;
TA_CENTER = 6;
TA_TOP = 0;
TA_BOTTOM = 8;
TA_BASELINE = 24;
TA_RTLREADING = $100;
TA_MASK = (TA_BASELINE+TA_CENTER+TA_UPDATECP+TA_RTLREADING);
{ PolyFill() Modes }
ALTERNATE = 1;
WINDING = 2;
POLYFILL_LAST = 2;
type
@ -1754,6 +1759,9 @@ end.
{
$Log$
Revision 1.30 2002/12/25 13:30:36 mattias
added more windows funcs and fixed jump to compiler error end of file
Revision 1.29 2002/12/25 10:21:05 mattias
made Form.Close more Delphish, added some windows compatibility functions