paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 10:47:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changed the files from mode delphi to mode objfpc

Browse Source 
Shane

git-svn-id: trunk@173 -
This commit is contained in:
lazarus 2001-02-06 13:55:23 +00:00
parent aa81046e12
commit 467b5fc459
4 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazconf.pp
View File

@ -27,8 +27,7 @@ from within Lazarus.
}
unit LazConf;
{$mode delphi}
//{$mode objfpc}
{$mode objfpc}
interface
@ -61,6 +60,10 @@ end.
{
$Log$
Revision 1.2 2001/02/06 13:55:23 lazarus
Changed the files from mode delphi to mode objfpc
Shane
Revision 1.1 2000/07/13 10:27:47 michael
+ Initial import

7
lcl/imglist.pp
View File

@ -28,8 +28,7 @@ Detailed description of the Unit.
}
unit ImgList;
{$mode delphi}
//{$mode objfpc}
{$mode objfpc}
interface
@ -149,6 +148,10 @@ end.
{
$Log$
Revision 1.3 2001/02/06 13:55:23 lazarus
Changed the files from mode delphi to mode objfpc
Shane
Revision 1.2 2001/01/11 20:16:47 lazarus
Added some TImageList code.
Added a bookmark resource with 10 resource images.

18
lcl/include/imglist.inc
View File

@ -264,18 +264,12 @@ end;
------------------------------------------------------------------------------}
procedure TCustomImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer; Enabled: Boolean);
var
Bitmap : TBitmap;
aBitmap : TBitmap;
begin
if (FCount = 0) or (Index >= FCount) then Exit;
Bitmap := TBitmap(FImageList[Index]);
aBitmap := TBitmap(FImageList[Index]);
Canvas.CopyRect(
Rect(X, Y, X + FWidth, Y + FHeight),
Bitmap.Canvas,
Rect(0, 0, FWidth, FHeight)
// Rect(0, 0, 16,16)
);
Canvas.CopyRect(Rect(X, Y, X + FWidth, Y + FHeight), aBitmap.Canvas, Rect(0, 0, FWidth, FHeight));
end;
{------------------------------------------------------------------------------
@ -306,7 +300,7 @@ end;
Fetches the index'th image into an icon.
------------------------------------------------------------------------------}
Function TCustomImageList.GetCount;
Function TCustomImageList.GetCount : Integer;
begin
Result := FImageList.Count;
FCount := Result;
@ -814,6 +808,10 @@ end;
{
$Log$
Revision 1.3 2001/02/06 13:55:23 lazarus
Changed the files from mode delphi to mode objfpc
Shane
Revision 1.2 2001/01/11 20:16:47 lazarus
Added some TImageList code.
Added a bookmark resource with 10 resource images.

8
lcl/include/wincontrol.inc
View File

@ -1544,7 +1544,7 @@ end;
procedure TWinControl.WMWindowPosChanged(var Message : TLMWindowPosChanged);
begin
if Message.WindowPos <> nil
{ if Message.WindowPos <> nil
then with Message.WindowPos^ do
begin
FLeft := X;
@ -1554,7 +1554,7 @@ begin
Assert(False, Format('Trace:[TWinControl.WMWindowPosChanged] %s --> Message.WindowPos(%d, %d)(%d, %d)', [ClassName, X, Y, cx, cy]));
end
else Assert(False, Format('Trace:[TWinControl.WMWindowPosChanged] %s --> Message.WindowPos = nil', [ClassName]));
}
inherited WMWindowPosChanged(Message);
end;
@ -1917,6 +1917,10 @@ end;
{ =============================================================================
$Log$
Revision 1.16 2001/02/06 13:55:23 lazarus
Changed the files from mode delphi to mode objfpc
Shane
Revision 1.15 2001/02/04 04:18:12 lazarus
Code cleanup and JITFOrms bug fix.
Shane