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

MG: broke minor circles

Browse Source 
git-svn-id: trunk@3559 -
This commit is contained in:
lazarus 2002-10-25 10:42:08 +00:00
parent 37b96cb4ee
commit dd10c846e0
4 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/comctrls.pp
View File

@ -38,8 +38,9 @@ unit ComCtrls;
interface
uses
SysUtils, Classes, Controls, LclLinux, LCLType, StdCtrls, ExtCtrls,
vclGlobals, lMessages, Menus, ImgList, GraphType, Graphics, ToolWin, CommCtrl;
SysUtils, Classes, Controls, Forms, LclLinux, LCLType, StdCtrls, ExtCtrls,
vclGlobals, lMessages, Menus, ImgList, GraphType, Graphics, ToolWin, CommCtrl,
Buttons;
type
@ -1642,8 +1643,8 @@ procedure CheckCommonControl(CC: Integer);
Implementation
uses Forms, Interfaces, Buttons;
uses
Interfaces;
const
ButtonStates: array[TToolButtonState] of Word = (TBSTATE_CHECKED,
@ -1700,6 +1701,9 @@ end.
{ =============================================================================
$Log$
Revision 1.55 2002/10/25 10:42:07 lazarus
MG: broke minor circles
Revision 1.54 2002/10/21 14:40:51 lazarus
MG: fixes for 1.1

7
lcl/include/bitmap.inc
View File

@ -140,7 +140,7 @@ procedure TBitMap.LoadFromResourceID(Instance: THandle; ResID: Integer);
begin
end;
Procedure TBitmap.LoadFromXPMFile(Filename : String);
Procedure TBitmap.LoadFromXPMFile(const Filename : String);
var
pstr : PChar;
Begin
@ -148,7 +148,7 @@ Begin
pStr := StrAlloc(length(Filename) + 1);
try
StrPCopy(pStr, Filename);
CNSendMessage(LM_LOADXPM,Self,pstr);
SendIntfMessage(LM_LOADXPM,Self,pstr);
finally
StrDispose(pStr);
end;
@ -466,6 +466,9 @@ end;
{ =============================================================================
$Log$
Revision 1.21 2002/10/25 10:42:08 lazarus
MG: broke minor circles
Revision 1.20 2002/09/16 15:42:17 lazarus
MG: fixed calling DestroyHandle if not HandleAllocated

7
lcl/lcllinux.pp
View File

@ -41,7 +41,7 @@ unit LCLLinux;
interface
uses Classes, LCLType, VCLGlobals, GraphType;
uses Classes, SysUtils, LCLType, VCLGlobals, GraphType;
{$ifdef Trace}
{$ASSERTIONS ON}
@ -61,7 +61,7 @@ function PredefinedClipboardFormat(
implementation
uses
SysUtils, Interfaces, Strings, Math;
Interfaces, Strings, Math;
var
FPredefinedClipboardFormats:
@ -105,6 +105,9 @@ end.
{
$Log$
Revision 1.21 2002/10/25 10:42:08 lazarus
MG: broke minor circles
Revision 1.20 2002/10/24 10:05:51 lazarus
MG: broke graphics.pp <-> clipbrd.pp circle

7
lcl/lmessages.pp
View File

@ -29,7 +29,7 @@ unit lMessages;
interface
uses Classes, vclGlobals, LCLType, GraphType;
uses Classes, SysUtils, vclGlobals, LCLType, GraphType;
const
@ -818,8 +818,6 @@ function GetMessageName(const AMessage: Integer): String;
Implementation
uses
SysUtils;
function GetMessageName(const AMessage: Integer): String;
begin
@ -884,6 +882,9 @@ end.
{
$Log$
Revision 1.38 2002/10/25 10:42:08 lazarus
MG: broke minor circles
Revision 1.37 2002/10/25 08:25:43 lazarus
MG: broke circle stdctrls.pp <-> forms.pp