paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 07:29:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed 1.0.10 compilation

Browse Source 
git-svn-id: trunk@6098 -
This commit is contained in:
mattias 2004-10-01 13:25:51 +00:00
parent 4b92977b8b
commit 7792302666
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbctrls.pp
View File

@ -923,7 +923,9 @@ begin
L:=L+' ';
L:=L+TField(LF[i]).AsString;
end;
BC.AddBar(L,VF.AsInteger,AColor);
BC.AddBar(L,
{$IFDEF VER1_0}StrToIntDef(VF.AsString,0){$ELSE}VF.AsInteger{$ENDIF},
AColor);
Next;
end;
end;
@ -1284,6 +1286,9 @@ end.
{ =============================================================================
$Log$
Revision 1.25 2004/10/01 13:25:51 mattias
fixed 1.0.10 compilation
Revision 1.24 2004/09/25 15:05:38 mattias
implemented Rename Identifier

5
lcl/graphics.pp
View File

@ -1539,6 +1539,7 @@ begin
Blue := (rgb shr 16) and $000000ff;
end;
{$IFNDEF DisableFPImage}
function FPColorToTColor(const FPColor: TFPColor): TColor;
begin
Result:=((FPColor.Red shr 8) and $ff)
@ -1556,6 +1557,7 @@ begin
Result.Blue:=Result.Blue+(Result.Blue shr 8);
Result.Alpha:=FPImage.alphaOpaque;
end;
{$ENDIF}
{$I graphicsobject.inc}
{$I graphic.inc}
@ -1781,6 +1783,9 @@ end.
{ =============================================================================
$Log$
Revision 1.158 2004/10/01 13:25:51 mattias
fixed 1.0.10 compilation
Revision 1.157 2004/10/01 13:16:43 mattias
fixed unselecting TCanvas objects