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

fixed finding sysutilh.inc

Browse Source 
git-svn-id: trunk@4775 -
This commit is contained in:
mattias 2003-11-07 22:50:44 +00:00
parent 8bf74c83fb
commit 2ca1eea556
6 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/definetemplates.pas
View File

@ -3045,6 +3045,7 @@ begin
MainDir.AddChild(RTLDir);
s:=IncPathMacro
+';'+Dir+'rtl'+DS+'objpas'+DS
+';'+Dir+'rtl'+DS+'objpas'+DS+'sysutils'
+';'+Dir+'rtl'+DS+'inc'+DS
+';'+Dir+'rtl'+DS+TargetProcessor+DS
+';'+Dir+'rtl'+DS+SrcOS+DS;

1
components/codetools/keywordfunclists.pas
View File

@ -646,6 +646,7 @@ begin
Add('IOCHECK' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LOCAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('NEAR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('OLDFPCCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('OVERLOAD' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('PASCAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('PLATFORM' ,{$ifdef FPC}@{$endif}AllwaysTrue);

2
designer/propedits.pp
View File

@ -2096,6 +2096,7 @@ var
I:Integer;
Changed: boolean;
begin
Changed:=false;
for I:=0 to FPropCount-1 do
with FPropList^[I] do
Changed:=Changed or (GetStrProp(Instance,PropInfo)<>NewValue);
@ -2111,6 +2112,7 @@ var
I:Integer;
Changed: boolean;
begin
Changed:=false;
for I:=0 to FPropCount-1 do
with FPropList^[I] do
Changed:=Changed or (GetVariantProp(Instance,PropInfo)<>NewValue);

8
lcl/include/interfacebase.inc
View File

@ -282,7 +282,8 @@ Begin
Result := False;
end;
function TInterfaceBase.DrawText(DC: HDC; Str: PChar; Count: Integer; var Rect: TRect; Flags: Cardinal): Integer;
function TInterfaceBase.DrawText(DC: HDC; Str: PChar; Count: Integer;
var Rect: TRect; Flags: Cardinal): Integer;
var
AP : TSize;
TM : TTextmetric;
@ -580,7 +581,7 @@ begin
DeleteAmpersands(tmpString);
If tmpString > '' then begin
TextExtent(DC, tmpString);
AP:=TextExtent(DC, tmpString);
AP.cX := AP.cX div Length(tmpString);
end
else begin
@ -1847,6 +1848,9 @@ end;
{ =============================================================================
$Log$
Revision 1.109 2003/11/07 22:50:44 mattias
fixed finding sysutilh.inc
Revision 1.108 2003/11/07 18:48:52 micha
symmetry getdesignerdc, releasedesignerdc

5
lcl/interfaces/gtk/gtkproc.inc
View File

@ -4993,7 +4993,7 @@ begin
style := nil;
Result := DefaultColor;
Case Color of
Case TColor(Color) of
clINFOTEXT :
begin
Style := GetStyle('tooltip');
@ -5539,6 +5539,9 @@ end;
{ =============================================================================
$Log$
Revision 1.225 2003/11/07 22:50:44 mattias
fixed finding sysutilh.inc
Revision 1.224 2003/11/01 10:27:41 mattias
fpc 1.1 fixes, started scrollbar hiding, started polymorphing client areas

12
lcl/intfgraphics.pas
View File

@ -111,6 +111,8 @@ type
protected
procedure SetInternalColor(x, y: integer; const Value: TFPColor); override;
function GetInternalColor(x, y: integer): TFPColor; override;
procedure SetInternalPixel (x,y:integer; Value:integer); override;
function GetInternalPixel (x,y:integer) : integer; override;
procedure FreeAllData; virtual;
procedure FreePixelData; virtual;
procedure FreeMaskData; virtual;
@ -647,6 +649,16 @@ begin
end;
end;
procedure TLazIntfImage.SetInternalPixel(x, y: integer; Value: integer);
begin
end;
function TLazIntfImage.GetInternalPixel(x, y: integer): integer;
begin
Result:=0;
end;
procedure TLazIntfImage.FreeAllData;
begin
FreePixelData;