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

renamed LCLLinux to LCLIntf

Browse Source 
git-svn-id: trunk@4637 -
This commit is contained in:
mattias 2003-09-18 09:21:03 +00:00
parent 5c553b2031
commit 5e5c1122a7
95 changed files with 259 additions and 176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -951,7 +951,7 @@ lcl/languages/lcl.pl.po svneol=native#text/plain
lcl/languages/lcl.po svneol=native#text/plain
lcl/languages/lcl.ru.po svneol=native#text/plain
lcl/lazlinkedlist.pas svneol=native#text/pascal
lcl/lcllinux.pp svneol=native#text/pascal
lcl/lclintf.pas svneol=native#text/pascal
lcl/lclmemmanager.pas svneol=native#text/pascal
lcl/lclproc.pas svneol=native#text/pascal
lcl/lclstrconsts.pas svneol=native#text/pascal

2
components/htmllite/htmllite.pas
View File

@ -14,7 +14,7 @@ interface
{$IFDEF HL_LAZARUS}
uses
Classes, SysUtils, LCLLinux, LMessages, Messages, LCLType, VCLGlobals,
Classes, SysUtils, LCLIntf, LMessages, Messages, LCLType, VCLGlobals,
GraphType, Graphics, Controls, StdCtrls, Forms, Dialogs, ExtCtrls, Menus,
Clipbrd, LiteUn2, LiteSubs, LiteSbs1, LitePars, LiteReadThd;
{$ELSE not HL_LAZARUS}

2
components/htmllite/litesbs1.pas
View File

@ -13,7 +13,7 @@ unit LiteSbs1;
interface
uses
{$IFDEF HL_LAZARUS}
Classes, SysUtils, LCLType, LCLLinux, Messages, GraphType, Graphics, Controls,
Classes, SysUtils, LCLType, LCLIntf, Messages, GraphType, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, LiteUn2, LiteSubs;
{$ELSE}
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

2
components/htmllite/litesubs.pas
View File

@ -43,7 +43,7 @@ unit LiteSubs;
interface
uses
{$IFDEF HL_LAZARUS}
Classes, SysUtils, VCLGlobals, LCLType, LCLLinux, Messages,
Classes, SysUtils, VCLGlobals, LCLType, LCLIntf, Messages,
GraphType, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls,
LiteUn2, LiteGif2;
{$ELSE}

2
components/htmllite/liteun2.pas
View File

@ -13,7 +13,7 @@ unit LiteUn2;
interface
uses
{$IFDEF HL_LAZARUS}
LCLLinux, LCLType, VCLGlobals, SysUtils, Messages, Classes, GraphType,
LCLIntf, LCLType, VCLGlobals, SysUtils, Messages, Classes, GraphType,
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
{$ELSE}
Windows, SysUtils, Messages, Classes, Graphics, Controls,

3
components/synedit/syncompletion.pas
View File

@ -42,8 +42,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux, LMessages,
LCLType, GraphType,
LCLIntf, LMessages, LCLType,
{$ELSE}
Windows,
{$ENDIF}

31
components/synedit/synedit.pp
View File

@ -62,8 +62,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLType, GraphType, LMessages,
LCLIntf, LCLType, LMessages,
{$ELSE}
Windows,
{$ENDIF}
@ -1253,7 +1252,7 @@ var
begin
//writeln('[TCustomSynEdit.Destroy]');
{$IFDEF SYN_LAZARUS}
if HandleAllocated then LCLLinux.DestroyCaret(Handle);
if HandleAllocated then LCLIntf.DestroyCaret(Handle);
{$ENDIF}
Highlighter := nil;
// free listeners while other fields are still valid
@ -1552,7 +1551,7 @@ procedure TCustomSynEdit.HideCaret;
begin
//writeln('[TCustomSynEdit.HideCaret] ',Name,' ',sfCaretVisible in fStateFlags,' ',eoPersistentCaret in Options);
if sfCaretVisible in fStateFlags then begin
if {$IFDEF SYN_LAZARUS}LCLLinux{$ELSE}Windows{$ENDIF}.HideCaret(Handle) then
if {$IFDEF SYN_LAZARUS}LCLIntf{$ELSE}Windows{$ENDIF}.HideCaret(Handle) then
Exclude(fStateFlags, sfCaretVisible);
end;
end;
@ -1934,7 +1933,7 @@ begin
{$IFDEF SYN_LAZARUS}
if (X < fGutterWidth) then
Include(fStateFlags, sfPossibleGutterClick);
LCLLinux.SetFocus(Handle);
LCLIntf.SetFocus(Handle);
UpdateCaret;
{$ELSE}
if (fMouseDownX < fGutterWidth) then
@ -2277,7 +2276,7 @@ begin
// and fill only the area after the last visible line.
dc := Canvas.Handle;
{$IFDEF SYN_LAZARUS}
LCLLinux.SetBkColor(dc,Canvas.Brush.Color);
LCLIntf.SetBkColor(dc,Canvas.Brush.Color);
{$ENDIF}
if fGutter.ShowLineNumbers then begin
fTextDrawer.BeginDrawing(dc);
@ -2301,9 +2300,9 @@ begin
s := fGutter.FormatLineNumber(iLine);
{$IFDEF SYN_LAZARUS}
InternalFillRect(DC, rcLine);
LCLLinux.DrawText(DC, PChar(S), Length(S), rcLine,
LCLIntf.DrawText(DC, PChar(S), Length(S), rcLine,
DT_RIGHT or DT_Center or DT_SINGLELINE or DT_NOPREFIX);
//LCLLinux.ExtTextOut(DC, fGutter.LeftOffset, rcLine.Top, ETO_OPAQUE,
//LCLIntf.ExtTextOut(DC, fGutter.LeftOffset, rcLine.Top, ETO_OPAQUE,
// @rcLine, PChar(s), Length(s), nil);
{$ELSE}
Windows.ExtTextOut(DC, fGutter.LeftOffset, rcLine.Top, ETO_OPAQUE,
@ -2509,8 +2508,8 @@ var
// draw background
InternalFillRect(dc,rcToken);
// draw edge
LCLLinux.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLLinux.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
LCLIntf.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLIntf.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
// draw text
fTextDrawer.ExtTextOut(nX, rcToken.Top, ETOOptions-ETO_OPAQUE, rcToken,
pszText, nCharsToPaint);
@ -2614,8 +2613,8 @@ var
// Draw the right edge if necessary.
if bDoRightEdge and (not (eoHideRightMargin in Options))
and (nRightEdge>=rcToken.Left) then begin
LCLLinux.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLLinux.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
LCLIntf.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLIntf.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
end;
{$ENDIF}
end;
@ -3189,8 +3188,8 @@ begin
// Draw the right edge if necessary.
if bDoRightEdge and (not (eoHideRightMargin in Options)) then begin
{$IFDEF SYN_LAZARUS}
LCLLinux.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLLinux.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
LCLIntf.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
LCLIntf.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
{$ELSE}
Windows.MoveToEx(dc, nRightEdge, rcToken.Top, nil);
Windows.LineTo(dc, nRightEdge, rcToken.Bottom + 1);
@ -3988,7 +3987,7 @@ begin
{$IFDEF SYN_LAZARUS}
SetCaretRespondToFocus(Handle,not (eoPersistentCaret in fOptions));
{$ENDIF}
if {$IFDEF SYN_LAZARUS}LCLLinux{$ELSE}Windows{$ENDIF}.ShowCaret(Handle) then
if {$IFDEF SYN_LAZARUS}LCLIntf{$ELSE}Windows{$ENDIF}.ShowCaret(Handle) then
begin
//writeln('[TCustomSynEdit.ShowCaret] A ',Name);
Include(fStateFlags, sfCaretVisible);
@ -4201,7 +4200,7 @@ begin
LastMouseCaret:=Point(-1,-1);
if not (eoPersistentCaret in fOptions) then begin
HideCaret;
LCLLinux.DestroyCaret(Handle);
LCLIntf.DestroyCaret(Handle);
end;
{$ELSE}
HideCaret;

2
components/synedit/syneditautocomplete.pp
View File

@ -45,7 +45,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/syneditexport.pas
View File

@ -60,7 +60,7 @@ uses
QClipbrd
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux, GraphType, LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synedithighlighter.pp
View File

@ -40,7 +40,7 @@ uses
{$ELSE}
Graphics,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/syneditkeycmds.pp
View File

@ -43,7 +43,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/syneditmiscclasses.pp
View File

@ -43,7 +43,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

3
components/synedit/syneditmiscprocs.pp
View File

@ -43,8 +43,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/syneditplugins.pas
View File

@ -48,7 +48,7 @@ uses
QMenus,
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLIntf,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/syneditsearch.pp
View File

@ -124,7 +124,7 @@ implementation
uses
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synedittextbuffer.pp
View File

@ -44,7 +44,7 @@ interface
uses
Classes, SysUtils,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synexporthtml.pas
View File

@ -50,7 +50,7 @@ uses
QGraphics,
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux, Graphics, GraphType, ClipBrd,
LCLIntf, Graphics, ClipBrd,
{$ELSE}
Windows,
Graphics,

2
components/synedit/synhighlightercpp.pp
View File

@ -52,7 +52,7 @@ interface
uses
SysUtils,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synhighlighterhtml.pp
View File

@ -50,7 +50,7 @@ interface
uses
SysUtils,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synhighlighterjava.pas
View File

@ -50,7 +50,7 @@ interface
uses
SysUtils, Classes,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType, Graphics,
LCLIntf, LCLType, Graphics,
{$ELSE}
{$IFDEF SYN_CLX}
Qt, QControls, QGraphics,

3
components/synedit/synhighlighterlfm.pas
View File

@ -54,8 +54,7 @@ uses
Qt, QControls, QGraphics,
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synhighlighterpas.pp
View File

@ -53,7 +53,7 @@ interface
uses
SysUtils,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

3
components/synedit/synhighlighterperl.pas
View File

@ -56,8 +56,7 @@ uses
Qt, QControls, QGraphics,
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

3
components/synedit/synhighlighterxml.pas
View File

@ -61,8 +61,7 @@ uses
Qt, QControls, QGraphics,
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLType, GraphType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synmacrorecorder.pas
View File

@ -56,7 +56,7 @@ uses
StdCtrls,
Controls,
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType,
LCLIntf, LCLType,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synmemo.pas
View File

@ -50,7 +50,7 @@ uses
Types,
{$ELSE}
{$IFDEF SYN_LAZARUS}
LCLLinux, Controls,
LCLIntf, Controls,
{$ELSE}
Windows,
{$ENDIF}

2
components/synedit/synregexpr.pas
View File

@ -986,7 +986,7 @@ implementation
{$IFDEF SYN_LAZARUS}
uses
LCLLinux;
LCLIntf;
{$ELSE}
{$IFNDEF LINUX} //js 07-04-2002 only use windows in non-CLX-envirolment -- SYN_CLX doesn't work, why?
uses

24
components/synedit/syntextdrawer.pp
View File

@ -71,7 +71,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux, LCLType, GraphType,
LCLIntf, LCLType, GraphType,
{$ELSE}
Windows,
{$ENDIF}
@ -913,8 +913,8 @@ begin
Windows.SetBkColor(DC, ColorToRGB(FBkColor));
{$ELSE}
FSavedFont := SelectObject(DC, FCrntFont);
LCLLinux.SetTextColor(DC, FColor);
LCLLinux.SetBkColor(DC, FBkColor);
LCLIntf.SetTextColor(DC, FColor);
LCLIntf.SetBkColor(DC, FBkColor);
{$ENDIF}
DoSetCharExtra(FCharExtra);
end;
@ -1020,7 +1020,7 @@ begin
FBkColor := Value;
if FDC <> 0 then
{$IFDEF SYN_LAZARUS}
LCLLinux.SetBkColor(FDC, Value);
LCLIntf.SetBkColor(FDC, Value);
{$ELSE}
Windows.SetBkColor(FDC, ColorToRGB(Value));
{$ENDIF}
@ -1046,7 +1046,7 @@ procedure TheTextDrawer.TextOut(X, Y: Integer; Text: PChar;
Length: Integer);
begin
{$IFDEF SYN_LAZARUS}
LCLLinux.TextOut(FDC, X, Y, Text, Length);
LCLIntf.TextOut(FDC, X, Y, Text, Length);
{$ELSE}
Windows.TextOut(FDC, X, Y, Text, Length);
{$ENDIF}
@ -1080,7 +1080,7 @@ begin
if FETOSizeInChar < Length then
InitETODist(GetCharWidth);
{$IFDEF SYN_LAZARUS}
LCLLinux.ExtTextOut(FDC, X, Y, fuOptions, @ARect, Text,
LCLIntf.ExtTextOut(FDC, X, Y, fuOptions, @ARect, Text,
Length, PInteger(FETODist));
{$ELSE}
Windows.ExtTextOut(FDC, X, Y, fuOptions, @ARect, Text,
@ -1172,7 +1172,7 @@ procedure TheTextDrawerEx.ExtTextOutFixed(X, Y: Integer; fuOptions: UINT;
const ARect: TRect; Text: PChar; Length: Integer);
begin
{$IFDEF SYN_LAZARUS}
LCLLinux.ExtTextOut(StockDC, X, Y, fuOptions, @ARect, Text, Length, nil);
LCLIntf.ExtTextOut(StockDC, X, Y, fuOptions, @ARect, Text, Length, nil);
{$ELSE}
Windows.ExtTextOut(StockDC, X, Y, fuOptions, @ARect, Text, Length, nil);
{$ENDIF}
@ -1218,7 +1218,7 @@ begin
n := GetCharWidth * Len;
Right := Min(Left + n + GetCharWidth, ARect.Right);
{$IFDEF SYN_LAZARUS}
LCLLinux.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, pCrnt, Len, nil);
LCLIntf.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, pCrnt, Len, nil);
{$ELSE}
Windows.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, pCrnt, Len, nil);
{$ENDIF}
@ -1238,7 +1238,7 @@ begin
n := GetCharWidth * Len;
Right := Min(Left + n + GetCharWidth, ARect.Right);
{$IFDEF SYN_LAZARUS}
LCLLinux.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, pCrnt, Len, nil);
LCLIntf.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, pCrnt, Len, nil);
{$ELSE}
Windows.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, pCrnt, Len, nil);
{$ENDIF}
@ -1253,7 +1253,7 @@ begin
begin
SetTextCharacterExtra(StockDC, FCharExtra + FCrntDx);
{$IFDEF SYN_LAZARUS}
LCLLinux.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, nil, 0, nil);
LCLIntf.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, nil, 0, nil);
{$ELSE}
Windows.ExtTextOut(StockDC, X, Y, fuOptions, @TmpRect, nil, 0, nil);
{$ENDIF}
@ -1282,13 +1282,13 @@ begin
(Left + GetCharWidth * (Length + 1) > Right)
then
{$IFDEF SYN_LAZARUS}
LCLLinux.TextOut(StockDC, X, Y, Text, Length)
LCLIntf.TextOut(StockDC, X, Y, Text, Length)
{$ELSE}
Windows.TextOut(StockDC, X, Y, Text, Length)
{$ENDIF}
else
{$IFDEF SYN_LAZARUS}
LCLLinux.ExtTextOut(StockDC, X, Y, fuOptions, @ARect, Text, Length, nil)
LCLIntf.ExtTextOut(StockDC, X, Y, fuOptions, @ARect, Text, Length, nil)
{$ELSE}
Windows.ExtTextOut(StockDC, X, Y, fuOptions, @ARect, Text, Length, nil)
{$ENDIF}

2
components/turbopower_ipro/ipanim.pas
View File

@ -40,7 +40,7 @@ uses
{$IFDEF IP_LAZARUS}
LCLType,
GraphType,
LCLLinux,
LCLIntf,
{$ELSE}
Windows,
Messages,

5
components/turbopower_ipro/ipmsg.pas
View File

@ -42,7 +42,7 @@ interface
uses
{$IFDEF IP_LAZARUS}
LCLType,
LCLLinux,
LCLIntf,
{$ELSE}
Windows,
{$ENDIF}
@ -3909,6 +3909,9 @@ end;
{
$Log$
Revision 1.2 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.1 2003/03/27 18:25:35 mattias
added ipro html components, compilable but not yet working

5
components/turbopower_ipro/ipstrms.pas
View File

@ -44,7 +44,7 @@ uses
{$IFDEF IP_LAZARUS}
LCLType,
GraphType,
LCLLinux,
LCLIntf,
{$ELSE}
Windows,
{$ENDIF}
@ -1779,6 +1779,9 @@ end;
{
$Log$
Revision 1.2 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.1 2003/03/27 18:25:35 mattias
added ipro html components, compilable but not yet working

2
components/turbopower_ipro/iputils.pas
View File

@ -40,7 +40,7 @@ uses
{$IFDEF IP_LAZARUS}
LCLType,
GraphType,
LCLLinux,
LCLIntf,
LMessages,
FileCtrl,
{$ELSE}

2
designer/aligncompsdlg.pp
View File

@ -30,7 +30,7 @@ unit AlignCompsDlg;
interface
uses
Classes, LCLLinux, Forms, Controls, Buttons, ExtCtrls, LResources;
Classes, LCLIntf, Forms, Controls, Buttons, ExtCtrls, LResources;
type
TAlignComponentsDialog = class(TForm)

2
designer/controlselection.pp
View File

@ -37,7 +37,7 @@ interface
{ $DEFINE VerboseDesigner}
uses
Classes, LCLLinux, LCLType, Controls, Forms, GraphType, Graphics, SysUtils,
Classes, LCLIntf, LCLType, Controls, Forms, GraphType, Graphics, SysUtils,
Menus, EnvironmentOpts, PropEdits, DesignerProcs;
type

2
designer/designer.pp
View File

@ -36,7 +36,7 @@ interface
{ $DEFINE VerboseDesignerDraw}
uses
Classes, LCLType, LCLLinux, Forms, Controls, LMessages, GraphType, Graphics,
Classes, LCLType, LCLIntf, Forms, Controls, LMessages, GraphType, Graphics,
Dialogs, ExtCtrls, Menus, ClipBrd, IDEProcs,
LazarusIDEStrConsts, EnvironmentOpts, KeyMapping, ComponentReg,
NonControlForms, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg, TabOrderDlg,

2
designer/designerprocs.pas
View File

@ -33,7 +33,7 @@ unit DesignerProcs;
interface
uses
Classes, SysUtils, LCLLinux, Forms, Controls, LCLType, Graphics, VCLGlobals,
Classes, SysUtils, LCLIntf, Forms, Controls, LCLType, Graphics, VCLGlobals,
Menus;
type

2
designer/graphpropedits.pas
View File

@ -23,7 +23,7 @@ interface
uses
Classes, TypInfo, SysUtils, Forms, Controls, LCLType, GraphType, Graphics,
StdCtrls, Buttons, ComCtrls, Menus, ExtCtrls, Dialogs, LCLLinux, PropEdits;
StdCtrls, Buttons, ComCtrls, Menus, ExtCtrls, Dialogs, LCLIntf, PropEdits;
type
{TGraphicPropertyEditor

2
designer/jitforms.pp
View File

@ -47,7 +47,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, TypInfo, Forms, Controls, LCLLinux, Dialogs, JITForm,
Classes, SysUtils, TypInfo, Forms, Controls, LCLIntf, Dialogs, JITForm,
ComponentReg, IDEProcs;
type

2
designer/objectinspector.pp
View File

@ -39,7 +39,7 @@ interface
uses
Forms, SysUtils, Buttons, Classes, Graphics, GraphType, StdCtrls, LCLType,
LCLLinux, LCLProc, LMessages, Controls, ComCtrls, ExtCtrls, TypInfo, Messages,
LCLIntf, LCLProc, LMessages, Controls, ComCtrls, ExtCtrls, TypInfo, Messages,
LResources, PairSplitter, Laz_XMLCfg, Menus, Dialogs, ObjInspStrConsts,
PropEdits, GraphPropEdits, ListViewPropEdit, ImageListEditor,
ComponentTreeView;

2
designer/propedits.pp
View File

@ -40,7 +40,7 @@ interface
uses
Classes, TypInfo, SysUtils, LCLProc, Forms, Controls, GraphType, Graphics,
StdCtrls, Buttons, ComCtrls, Menus, LCLType, ExtCtrls, LCLLinux, Dialogs,
StdCtrls, Buttons, ComCtrls, Menus, LCLType, ExtCtrls, LCLIntf, Dialogs,
ColumnDlg, ObjInspStrConsts;
const

2
designer/scalecompsdlg.pp
View File

@ -30,7 +30,7 @@ unit ScaleCompsDlg;
interface
uses
Classes, LCLLinux, Forms, Controls, Buttons, StdCtrls, ExtCtrls, LResources;
Classes, LCLIntf, Forms, Controls, Buttons, StdCtrls, ExtCtrls, LResources;
type
TScaleComponentsDialog = class(TForm)

2
designer/sizecompsdlg.pp
View File

@ -30,7 +30,7 @@ unit SizeCompsDlg;
interface
uses
Classes, LCLLinux, Forms, Controls, Buttons, ExtCtrls, StdCtrls, LResources;
Classes, LCLIntf, Forms, Controls, Buttons, ExtCtrls, StdCtrls, LResources;
type
TSizeComponentsDialog = class(TForm)

5
examples/checkbox.pp
View File

@ -413,6 +413,9 @@ end.
{
$Log$
Revision 1.7 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.6 2002/10/30 13:44:29 lazarus
MG: fixed examples
@ -433,7 +436,7 @@ end.
reference it from interface (GTK, Win32) units.
New Frame3d canvas method that uses native (themed) drawing (GTK only).
New overloaded Canvas.TextRect method.
LCLLinux and Graphics was split, so a bunch of files had to be modified.
LCLIntf and Graphics was split, so a bunch of files had to be modified.
Revision 1.1 2000/07/13 10:28:20 michael
+ Initial import

2
examples/speedtest.pp
View File

@ -24,7 +24,7 @@ program SpeedTest;
uses
Interfaces, Forms, SysUtils, Buttons, Classes, StdCtrls, LCLType,
LCLLinux, Graphics;
LCLIntf, Graphics;
type
TForm1 = class(TForm)

7
examples/testallform.pp
View File

@ -41,8 +41,8 @@ interface
uses classes, forms, buttons, StdCtrls, controls, menus, ExtCtrls, CListBox,
ComCtrls, SysUtils, GraphType, Graphics, Dialogs, Inifiles, Spin, clipbrd, lclLinux,
registry, lresources;
ComCtrls, SysUtils, GraphType, Graphics, Dialogs, Inifiles, Spin, clipbrd,
LCLIntf, registry, lresources;
type
TForm1 = class(TForm)
@ -2584,6 +2584,9 @@ END.
{
$Log$
Revision 1.13 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.12 2003/01/01 11:11:49 mattias
fixed testall example

2
ide/buildlazdialog.pas
View File

@ -34,7 +34,7 @@ unit BuildLazDialog;
interface
uses
Classes, SysUtils, Forms, Controls, LCLType, LCLLinux, Graphics, GraphType,
Classes, SysUtils, Forms, Controls, LCLType, LCLIntf, Graphics, GraphType,
StdCtrls, ExtCtrls, Buttons, FileCtrl, Dialogs, LResources, Laz_XMLCfg,
LazarusIDEStrConsts, TransferMacros, LazConf, IDEProcs, InputHistory,
ExtToolDialog, ExtToolEditDlg;

2
ide/codetemplatedialog.pp
View File

@ -31,7 +31,7 @@ unit CodeTemplateDialog;
interface
uses
Classes, SysUtils, LCLLinux, LResources, Forms, Buttons, Controls,
Classes, SysUtils, LCLIntf, LResources, Forms, Buttons, Controls,
SynEditAutoComplete, LazarusIDEStrConsts, StdCtrls, SynEditKeyCmds, Dialogs;
type

2
ide/codetoolsdefines.pas
View File

@ -44,7 +44,7 @@ unit CodeToolsDefines;
interface
uses
Classes, SysUtils, LCLLinux, Forms, Controls, Buttons, StdCtrls, ComCtrls,
Classes, SysUtils, LCLIntf, Forms, Controls, Buttons, StdCtrls, ComCtrls,
ExtCtrls, Menus, LResources, LCLProc, Graphics, Dialogs, ImgList, SynEdit,
Laz_XMLCfg, LazarusIDEStrConsts, DefineTemplates, CodeToolManager,
CodeToolsOptions, CodeToolsDefPreview, TransferMacros, InputFileDialog,

2
ide/editoroptions.pp
View File

@ -38,7 +38,7 @@ unit EditorOptions;
interface
uses
LCLLinux, LCLType,
LCLIntf, LCLType,
Forms, Classes, SysUtils, ComCtrls, Buttons, StdCtrls, ExtCtrls, LazConf,
FileCtrl, GraphType, Graphics, Controls, Dialogs, LResources, IDEProcs,
SynEdit, SynEditHighlighter, SynEditAutoComplete, SynEditKeyCmds,

2
ide/findinfilesdlg.pas
View File

@ -23,7 +23,7 @@ unit FindInFilesDlg;
interface
uses
Classes, SysUtils, LCLLinux, Controls, StdCtrls, Forms, Buttons, ExtCtrls,
Classes, SysUtils, LCLIntf, Controls, StdCtrls, Forms, Buttons, ExtCtrls,
LResources, LazarusIDEStrConsts, DirSel, Dialogs, SynEditTypes;
type

2
ide/keymapping.pp
View File

@ -32,7 +32,7 @@ unit KeyMapping;
interface
uses
LCLLinux, LCLType,
LCLIntf, LCLType,
Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls,
SynEdit, SynEditKeyCmds, Laz_XMLCfg, Dialogs, StringHashList,
LazarusIDEStrConsts;

9
ide/main.pp
View File

@ -47,8 +47,8 @@ uses
// codetools
Laz_XMLCfg, CodeToolsStructs, CodeToolManager, CodeCache, DefineTemplates,
// lcl
LCLType, LclLinux, LCLproc, LMessages, LResources, StdCtrls, Forms, Buttons,
Menus, FileCtrl, Controls, Graphics, GraphType, ExtCtrls, Dialogs,
LCLType, LCLIntf, LCLproc, LMessages, LResources, StdCtrls, Forms, Buttons,
Menus, FileCtrl, Controls, GraphType, Graphics, ExtCtrls, Dialogs,
// synedit
SynEditKeyCmds,
// compile
@ -2131,7 +2131,7 @@ procedure TMainIDE.ShowDesignerForm(AForm: TCustomForm);
begin
// do not call 'AForm.Show', because it will set Visible to true
AForm.BringToFront;
LCLLinux.ShowWindow(AForm.Handle,SW_SHOWNORMAL);
LCLIntf.ShowWindow(AForm.Handle,SW_SHOWNORMAL);
end;
procedure TMainIDE.SetToolStatus(const AValue: TIDEToolStatus);
@ -9792,6 +9792,9 @@ end.
{ =============================================================================
$Log$
Revision 1.649 2003/09/18 09:21:02 mattias
renamed LCLLinux to LCLIntf
Revision 1.648 2003/09/17 22:06:56 mattias
implemented default lcl widget type

2
ide/mainbar.pas
View File

@ -40,7 +40,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, LCLType, LCLLinux, StdCtrls, Buttons, Menus, ComCtrls, SysUtils,
Classes, LCLType, LCLIntf, StdCtrls, Buttons, Menus, ComCtrls, SysUtils,
Controls, Graphics, ExtCtrls, Dialogs, FileCtrl, Forms, CodeToolManager,
CodeCache, AVL_Tree, SynEditKeyCmds, LazConf, LazarusIDEStrConsts,
ProjectDefs, Project, PublishModule, BuildLazDialog, Compiler,

5
ide/project.pp
View File

@ -47,7 +47,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, LCLLinux, LCLType, Laz_XMLCfg, LazConf, CompilerOptions,
Classes, SysUtils, LCLIntf, LCLType, Laz_XMLCfg, LazConf, CompilerOptions,
FileCtrl, CodeToolManager, CodeCache, Forms, Controls, EditorOptions, Dialogs,
IDEProcs, RunParamsOpts, ProjectDefs, EditDefineTree, DefineTemplates,
PackageDefs;
@ -2712,6 +2712,9 @@ end.
{
$Log$
Revision 1.137 2003/09/18 09:21:02 mattias
renamed LCLLinux to LCLIntf
Revision 1.136 2003/09/17 08:43:17 mattias
fixed loading old project compiler options

2
ide/projectopts.pp
View File

@ -36,7 +36,7 @@ unit ProjectOpts;
interface
uses
Classes, LCLLinux, SysUtils, Forms, Controls, Graphics, StdCtrls, ExtCtrls,
Classes, LCLIntf, SysUtils, Forms, Controls, Graphics, StdCtrls, ExtCtrls,
Project, LResources, Buttons, Dialogs, IDEProcs, CodeToolManager,
LazarusIDEStrConsts, IDEOptionDefs;

5
ide/splash.pp
View File

@ -36,7 +36,7 @@ interface
uses
Classes, Controls, Forms, Buttons, SysUtils, StdCtrls, ExtCtrls, LResources,
LCLLinux{must be used before graphics}, Graphics;
LCLIntf{must be used before graphics}, Graphics;
type
TSplashForm = class(TForm)
@ -141,6 +141,9 @@ end.
{ =============================================================================
$Log$
Revision 1.19 2003/09/18 09:21:02 mattias
renamed LCLLinux to LCLIntf
Revision 1.18 2003/01/06 12:00:16 mattias
implemented fsStayOnTop+bsNone for forms under gtk (useful for splash)

2
ide/todolist.pp
View File

@ -56,7 +56,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LResources,
ExtCtrls, ComCtrls, Menus, Buttons, GraphType,
StdCtrls, mPasLex, LCLLinux, LCLType,
StdCtrls, mPasLex, LCLIntf, LCLType,
CodeCache, CodeToolManager, LazarusIDEStrConsts;
Const

4
ide/uniteditor.pp
View File

@ -41,7 +41,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, Controls, LCLProc, LCLType, LCLLinux, FileCtrl, LMessages, Forms,
Classes, Controls, LCLProc, LCLType, LCLIntf, FileCtrl, LMessages, Forms,
Buttons, ComCtrls, SysUtils, Dialogs, StdCtrls, GraphType, Graphics, Extctrls,
Menus,
// codetools
@ -2542,7 +2542,7 @@ begin
if CurCompletionControl=nil then exit;
DeactivateCompletionForm;
ActSE:=GetActiveSE;
if ActSE<>nil then LCLLinux.ShowCaret(ActSE.EditorComponent.Handle);
if ActSE<>nil then LCLIntf.ShowCaret(ActSE.EditorComponent.Handle);
end;
Procedure TSourceNotebook.ccExecute(Sender : TObject);

2
lcl/Makefile
View File

@ -246,7 +246,7 @@ override REQUIRE_PACKAGESDIR+=$(LCLCOMPONENTDIR)
override COMPILER_UNITDIR+=$(LCLUNITDIR)
override TARGET_DIRS+=interfaces
override TARGET_UNITS+=allunits
override TARGET_IMPLICITUNITS+=arrow actnlist buttons calendar clipbrd clistbox comctrls commctrl controls dialogs dynamicarray dynhasharray extctrls extendedstrings filectrl forms graphics graphmath graphtype grids imglist interfacebase lazlinkedlist lclmemmanager lcllinux lclstrconsts lcltype lmessages lresources maskedit menus messages registry spin stdctrls stringhashlist toolwin utrace vclglobals printers postscriptprinter intfgraphics dbctrls
override TARGET_IMPLICITUNITS+=arrow actnlist buttons calendar clipbrd clistbox comctrls commctrl controls dialogs dynamicarray dynhasharray extctrls extendedstrings filectrl forms graphics graphmath graphtype grids imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts lcltype lmessages lresources maskedit menus messages registry spin stdctrls stringhashlist toolwin utrace vclglobals printers postscriptprinter intfgraphics dbctrls
override TARGET_RSTS+=dialogs
override CLEAN_FILES+=$(wildcard units/*$(OEXT)) $(wildcard units/*$(PPUEXT)) $(wildcard units/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
override INSTALL_BUILDUNIT=allunits

2
lcl/Makefile.fpc
View File

@ -13,7 +13,7 @@ units=allunits
implicitunits=arrow actnlist buttons calendar clipbrd clistbox comctrls \
commctrl controls dialogs dynamicarray dynhasharray extctrls \
extendedstrings filectrl forms graphics graphmath graphtype grids \
imglist interfacebase lazlinkedlist lclmemmanager lcllinux lclstrconsts \
imglist interfacebase lazlinkedlist lclmemmanager lclintf lclstrconsts \
lcltype lmessages lresources maskedit menus messages registry spin \
stdctrls stringhashlist toolwin utrace vclglobals printers \
postscriptprinter intfgraphics dbctrls

5
lcl/allunits.pp
View File

@ -35,7 +35,7 @@ uses
// the interface base
InterfaceBase, {$IFDEF UseFPImage}IntfGraphics,{$ENDIF}
// components and functions
Buttons, Extctrls, Registry, Calendar, Clipbrd, Forms, LCLLinux, Spin,
Buttons, Extctrls, Registry, Calendar, Clipbrd, Forms, LCLIntf, Spin,
Comctrls, Graphics, StdCtrls, Arrow, Controls, ImgList, Menus, Toolwin,
Dialogs, Messages, Clistbox, ActnList, Grids, MaskEdit,
Printers, PostScriptPrinter, CheckLst, PairSplitter, DirSel, ExtDlgs,
@ -48,6 +48,9 @@ end.
{ =============================================================================
$Log$
Revision 1.30 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.29 2003/09/16 11:35:14 mattias
started TDBCheckBox

5
lcl/buttons.pp
View File

@ -37,7 +37,7 @@ interface
{$ASSERTIONS ON}
{$endif}
uses StdCtrls, VCLGlobals, Classes, LCLType, LCLProc, LCLLinux,LCLStrConsts,
uses StdCtrls, VCLGlobals, Classes, LCLType, LCLProc, LCLIntf, LCLStrConsts,
GraphType, Graphics, SysUtils, Controls, lMessages, Forms, Messages;
type
@ -307,6 +307,9 @@ end.
{ =============================================================================
$Log$
Revision 1.50 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.49 2003/09/13 15:43:05 ajgenius
make speed button FState Protected, not private. needed for descendents,

5
lcl/clipbrd.pp
View File

@ -128,7 +128,7 @@ interface
{$endif}
uses
Classes, SysUtils, LCLType, LCLLinux, GraphType, Graphics;
Classes, SysUtils, LCLType, LCLIntf, GraphType, Graphics;
{ for delphi compatibility:
@ -360,6 +360,9 @@ end.
{
$Log$
Revision 1.14 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.13 2003/09/10 19:15:15 mattias
implemented copying graphics from/to clipboard

5
lcl/comctrls.pp
View File

@ -38,7 +38,7 @@ unit ComCtrls;
interface
uses
SysUtils, Classes, LCLStrConsts, LCLLinux, LCLType, LCLProc, AvgLvlTree,
SysUtils, Classes, LCLStrConsts, LCLIntf, LCLType, LCLProc, AvgLvlTree,
Controls, Forms, StdCtrls, ExtCtrls, vclGlobals, LMessages, Menus, ImgList,
GraphType, Graphics, ToolWin, CommCtrl, Buttons, Math;
@ -2039,6 +2039,9 @@ end.
{ =============================================================================
$Log$
Revision 1.87 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.86 2003/09/13 10:06:53 mattias
fixed ColorIsStored

5
lcl/controls.pp
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils, LCLStrConsts, vclglobals, LCLType, LCLProc,
GraphType, Graphics, LMessages, LCLLinux, InterfaceBase, ImgList, UTrace,
GraphType, Graphics, LMessages, LCLIntf, InterfaceBase, ImgList, UTrace,
Menus, ActnList;
@ -1844,6 +1844,9 @@ end.
{ =============================================================================
$Log$
Revision 1.150 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.149 2003/09/13 15:51:21 mattias
implemented parent color from Micha

5
lcl/dialogs.pp
View File

@ -37,7 +37,7 @@ unit Dialogs;
interface
uses
Classes, SysUtils, LCLlinux, InterfaceBase, FileCtrl, LCLStrConsts, LCLType,
Classes, SysUtils, LCLIntf, InterfaceBase, FileCtrl, LCLStrConsts, LCLType,
VCLGlobals, LMessages, Forms, Controls, GraphType, Graphics, Buttons,
StdCtrls;
@ -421,6 +421,9 @@ end.
{ =============================================================================
$Log$
Revision 1.37 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.36 2003/09/04 10:51:30 mattias
fixed default size of preview widget

5
lcl/extctrls.pp
View File

@ -46,7 +46,7 @@ interface
uses
SysUtils, Classes, LCLStrConsts, LCLProc, Controls, Forms, StdCtrls,
vclGlobals, lMessages, GraphType, Graphics, LCLLinux, CustomTimer;
vclGlobals, lMessages, GraphType, Graphics, LCLIntf, CustomTimer;
type
{ workaround problem with fcl }
@ -755,6 +755,9 @@ end.
{
$Log$
Revision 1.75 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.74 2003/09/17 15:26:41 mattias
fixed removing TPage

2
lcl/forms.pp
View File

@ -44,7 +44,7 @@ interface
uses
Classes, Controls, LCLStrConsts, VCLGlobals, SysUtils, LCLType, LCLProc,
LCLLinux, InterfaceBase, GraphType, Graphics, Menus, LMessages, CustomTimer,
LCLIntf, InterfaceBase, GraphType, Graphics, Menus, LMessages, CustomTimer,
ActnList, ClipBrd
{$IFDEF UseCustApp},CustApp{$ENDIF}
;

5
lcl/graphics.pp
View File

@ -36,7 +36,7 @@ uses
{$IFDEF UseFPImage}
FPImage, FPReadPNG, FPWritePNG, FPReadBMP, FPWriteBMP, IntfGraphics,
{$ENDIF}
LCLStrConsts, vclGlobals, LMessages, LCLType, LCLProc, LCLLinux, LResources,
LCLStrConsts, vclGlobals, LMessages, LCLType, LCLProc, LCLIntf, LResources,
GraphType, GraphMath;
type
@ -1256,6 +1256,9 @@ end.
{ =============================================================================
$Log$
Revision 1.92 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.91 2003/09/12 14:59:43 mattias
added searching for fpImage reader/writer

8
lcl/grids.pas
View File

@ -28,7 +28,7 @@ unit Grids;
interface
uses
Classes, SysUtils, LCLStrConsts, LCLProc, LCLType, LCLLinux, Controls,
Classes, SysUtils, LCLStrConsts, LCLProc, LCLType, LCLIntf, Controls,
GraphType, Graphics, Forms, VCLGlobals, DynamicArray, LMessages, Messages,
XMLCfg, StdCtrls, LResources, MaskEdit;
@ -2435,7 +2435,7 @@ begin
if (GoEditing in Options)and(FEditor=nil) and not Focused then begin
{$IfDef dbgFocus} WriteLn(' AUTO-FOCUSING '); {$Endif}
LCLLinux.SetFocus(Self.Handle);
LCLIntf.SetFocus(Self.Handle);
end;
end;
@ -2983,7 +2983,7 @@ begin
FEditorHiding:=True;
Editor.Visible:=False;
Editor.Parent:=nil;
LCLLinux.SetFocus(Self.Handle);
LCLIntf.SetFocus(Self.Handle);
FEDitorHiding:=False;
{$IfDef dbgFocus} WriteLn('EditorHide FIN'); {$Endif}
end;
@ -3001,7 +3001,7 @@ begin
FEditorShowing:=True;
ScrollToCell(FCol,FRow);
EditorReset;
LCLLinux.SetFocus(Editor.Handle);
LCLIntf.SetFocus(Editor.Handle);
FEditorShowing:=False;
InvalidateCell(FCol,FRow,True);
{$IfDef dbgFocus} WriteLn('EditorShow FIN');{$Endif}

45
lcl/include/canvas.inc
View File

@ -280,7 +280,7 @@ procedure TCanvas.Arc(x,y,width,height,angle1,angle2 : Integer);
begin
Changing;
RequiredState([csHandleValid, csPenValid]);
LCLLinux.Arc(FHandle,x,y,width,height,angle1,angle2);
LCLIntf.Arc(FHandle,x,y,width,height,angle1,angle2);
Changed;
end;
@ -298,7 +298,7 @@ procedure TCanvas.Arc(x,y,width,height,sx,sy,ex,ey : Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.RadialArc(FHandle,x,y,width,height,sx,sy,ex,ey);
LCLIntf.RadialArc(FHandle,x,y,width,height,sx,sy,ex,ey);
Changed;
end;
@ -318,7 +318,7 @@ procedure TCanvas.RadialPie(x,y,width,height,angle1,angle2 : Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.RadialPieWithAngles(FHandle,x,y,width,height,angle1,angle2);
LCLIntf.RadialPieWithAngles(FHandle,x,y,width,height,angle1,angle2);
Changed;
end;
@ -336,7 +336,7 @@ procedure TCanvas.RadialPie(x,y,width,height,sx,sy,ex,ey: Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.RadialPie(FHandle,x,y,width,height,sx,sy,ex,ey);
LCLIntf.RadialPie(FHandle,x,y,width,height,sx,sy,ex,ey);
Changed;
end;
@ -357,7 +357,7 @@ procedure TCanvas.Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2,
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.Pie(FHandle,EllipseX1,EllipseY1,EllipseX2,EllipseY2,
LCLIntf.Pie(FHandle,EllipseX1,EllipseY1,EllipseX2,EllipseY2,
StartX,StartY,EndX,EndY);
Changed;
end;
@ -403,7 +403,7 @@ procedure TCanvas.PolyBezier(Points: PPoint; NumPts: Integer;
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.PolyBezier(FHandle,Points,NumPts,Filled, Continuous);
LCLIntf.PolyBezier(FHandle,Points,NumPts,Filled, Continuous);
Changed;
end;
@ -460,7 +460,7 @@ begin
if NumPts<=0 then exit;
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.Polygon(FHandle,Points,NumPts,Winding);
LCLIntf.Polygon(FHandle,Points,NumPts,Winding);
Changed;
end;
@ -509,7 +509,7 @@ procedure TCanvas.Polyline(Points: PPoint; NumPts: Integer);
begin
Changing;
RequiredState([csHandleValid, csPenValid]);
LCLLinux.Polyline(FHandle,Points,NumPts);
LCLIntf.Polyline(FHandle,Points,NumPts);
Changed;
end;
@ -536,7 +536,7 @@ procedure TCanvas.Ellipse(x1, y1, x2, y2: Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.Ellipse(FHandle,x1,y1,x2,y2);
LCLIntf.Ellipse(FHandle,x1,y1,x2,y2);
Changed;
end;
@ -563,7 +563,7 @@ procedure TCanvas.FillRect(const ARect : TRect);
begin
Changing;
RequiredState([csHandleValid, csBrushValid]);
LCLLinux.FillRect(FHandle, ARect, Brush.Handle);
LCLIntf.FillRect(FHandle, ARect, Brush.Handle);
Changed;
end;
@ -586,7 +586,7 @@ procedure TCanvas.FloodFill(X, Y: Integer; FillColor: TColor; FillStyle: TFillSt
begin
Changing;
RequiredState([csHandleValid, csBrushValid]);
LCLLinux.FloodFill(FHandle, X, Y, FillColor, FillStyle, Brush.Handle);
LCLIntf.FloodFill(FHandle, X, Y, FillColor, FillStyle, Brush.Handle);
Changed;
end;
@ -601,7 +601,7 @@ procedure TCanvas.Frame3d(var ARect: TRect; const FrameWidth : integer;
begin
Changing;
RequiredState([csHandleValid]);
LCLLinux.Frame3d(FHandle, ARect, FrameWidth, Style);
LCLIntf.Frame3d(FHandle, ARect, FrameWidth, Style);
Changed;
end;
@ -614,7 +614,7 @@ procedure TCanvas.Frame(const ARect: TRect);
begin
Changing;
RequiredState([csHandleValid, csPenValid]);
LCLLinux.Frame(FHandle, ARect);
LCLIntf.Frame(FHandle, ARect);
Changed;
end;
@ -637,7 +637,7 @@ procedure TCanvas.FrameRect(const ARect: TRect);
begin
Changing;
RequiredState([csHandleValid, csBrushValid]);
LCLLinux.FrameRect(FHandle, ARect, Brush.GetHandle);
LCLIntf.FrameRect(FHandle, ARect, Brush.GetHandle);
Changed;
end;
@ -661,7 +661,7 @@ procedure TCanvas.Rectangle(X1,Y1,X2,Y2 : Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.Rectangle(FHandle, X1, Y1, X2, Y2);
LCLIntf.Rectangle(FHandle, X1, Y1, X2, Y2);
Changed;
end;
@ -686,7 +686,7 @@ Procedure TCanvas.RoundRect(X1, Y1, X2, Y2: Integer; RX,RY : Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.RoundRect(FHandle, X1, Y1, X2, Y2, RX, RY);
LCLIntf.RoundRect(FHandle, X1, Y1, X2, Y2, RX, RY);
Changed;
end;
@ -825,7 +825,7 @@ end;
Procedure TCanvas.MoveTo(X1, Y1 : Integer);
begin
RequiredState([csHandleValid]);
if LCLLinux.MoveToEx(FHandle, X1, Y1, nil) then FPenPos:= Point(X1, Y1);
if LCLIntf.MoveToEx(FHandle, X1, Y1, nil) then FPenPos:= Point(X1, Y1);
End;
{------------------------------------------------------------------------------
@ -838,7 +838,7 @@ procedure TCanvas.LineTo(X1, Y1 : Integer);
begin
Changing;
RequiredState([csHandleValid, csPenValid]);
if LCLLinux.LineTo(FHandle, X1, Y1) then FPenPos:= Point(X1, Y1);
if LCLIntf.LineTo(FHandle, X1, Y1) then FPenPos:= Point(X1, Y1);
Changed;
end;
@ -993,7 +993,7 @@ procedure TCanvas.Chord(x,y,width,height,angle1,angle2 : Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.AngleChord(FHandle,x,y,width,height,angle1,angle2);
LCLIntf.AngleChord(FHandle,x,y,width,height,angle1,angle2);
Changed;
end;
@ -1011,7 +1011,7 @@ procedure TCanvas.Chord(x,y,width,height,sx,sy,ex,ey : Integer);
begin
Changing;
RequiredState([csHandleValid, csBrushValid, csPenValid]);
LCLLinux.RadialChord(FHandle,x,y,width,height,sx,sy,ex,ey);
LCLIntf.RadialChord(FHandle,x,y,width,height,sx,sy,ex,ey);
Changed;
end;
@ -1236,6 +1236,9 @@ end;
{ =============================================================================
$Log$
Revision 1.53 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.52 2003/08/27 08:14:37 mattias
fixed system fonts for win32 intf
@ -1413,7 +1416,7 @@ end;
reference it from interface (GTK, Win32) units.
New Frame3d canvas method that uses native (themed) drawing (GTK only).
New overloaded Canvas.TextRect method.
LCLLinux and Graphics was split, so a bunch of files had to be modified.
LCLIntf and Graphics was split, so a bunch of files had to be modified.
Revision 1.14 2002/01/02 15:24:58 lazarus
MG: added TCanvas.Polygon and TCanvas.Polyline

2
lcl/include/controlscrollbar.inc
View File

@ -141,7 +141,7 @@ begin
else
KindID:=SM_CXVSCROLL;
if HandleAllocated then
Result:=LCLLinux.GetScrollBarSize(ControlHandle,KindID)
Result:=LCLIntf.GetScrollBarSize(ControlHandle,KindID)
else
Result:=GetSystemMetrics(KindID);
end;

13
lcl/include/customform.inc
View File

@ -305,7 +305,7 @@ begin
or (not NewFocusControl.Visible)
or (not NewFocusControl.Enabled) then
exit;
LCLLinux.SetFocus(NewFocusControl.Handle);
LCLIntf.SetFocus(NewFocusControl.Handle);
if GetFocus = NewFocusControl.Handle then
NewFocusControl.Perform(CM_UIACTIVATE, 0, 0);
end;
@ -337,7 +337,7 @@ begin
{$IFDEF VerboseFocus}
writeln('TCustomForm.WMShowWindow B ',FActiveControl.Name,':',FActiveControl.ClassName);
{$ENDIF}
LCLLinux.SetFocus(FActiveControl.Handle);
LCLIntf.SetFocus(FActiveControl.Handle);
end;
DoShow;
end else begin
@ -696,7 +696,7 @@ begin
{$IFDEF VerboseFocus}
writeln('[TCustomForm.WndProc] ',Name,':',ClassName);
{$ENDIF}
LCLLinux.SetFocus(FocusHandle);
LCLIntf.SetFocus(FocusHandle);
Exit;
end;
end;
@ -1115,7 +1115,7 @@ begin
Show;
BringToFront;
//writeln('TCustomForm.ShowOnTop ',Name,':',ClassName,' ',Visible,' ',HandleAllocated,' ',csDesigning in ComponentState);
LCLLinux.ShowWindow(Handle,SW_SHOWNORMAL);
LCLIntf.ShowWindow(Handle,SW_SHOWNORMAL);
end;
{------------------------------------------------------------------------------
@ -1255,7 +1255,7 @@ begin
{$IFDEF VerboseFocus}
writeln('TCustomForm.CreateWnd A ',FActiveControl.Name,':',FActiveControl.ClassName);
{$ENDIF}
LCLLinux.SetFocus(FActiveControl.Handle);
LCLIntf.SetFocus(FActiveControl.Handle);
end;
end;
//writeln('TCustomForm.CreateWnd END ',ClassName);
@ -1435,6 +1435,9 @@ end;
{ =============================================================================
$Log$
Revision 1.115 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.114 2003/09/13 10:04:35 mattias
fixed ColorIsStored

5
lcl/include/customnotebook.inc
View File

@ -401,7 +401,7 @@ end;
function TCustomNotebook.TabIndexAtClientPos(ClientPos: TPoint): integer;
begin
if HandleAllocated then
Result:=LCLLinux.GetNotebookTabIndexAtPos(Handle,ClientPos)
Result:=LCLIntf.GetNotebookTabIndexAtPos(Handle,ClientPos)
else
Result:=-1;
end;
@ -763,6 +763,9 @@ end;}
{ =============================================================================
$Log$
Revision 1.34 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.33 2003/09/17 15:26:41 mattias
fixed removing TPage

5
lcl/include/messagedialogs.inc
View File

@ -221,7 +221,7 @@ end;
Function InputQuery(const ACaption, APrompt : String; MaskInput : Boolean;
var Value : String) : Boolean;
begin
Result := LCLLinux.RequestInput(ACaption, APrompt, MaskInput, Value);
Result := LCLIntf.RequestInput(ACaption, APrompt, MaskInput, Value);
end;
Function InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;
@ -233,6 +233,9 @@ end;
{
$Log$
Revision 1.23 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.22 2003/04/13 13:45:04 mattias
implemented broken dependencies dialog

2
lcl/include/mouse.inc
View File

@ -41,7 +41,7 @@ Begin
writeln('TMouse.SetCapture ');
{$ENDIF}
FCapture := Value;
if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value);
if Value = 0 then ReleaseCapture else LCLIntf.SetCapture(Value);
end;
Procedure TMouse.SetCursorPos(Value : Tpoint);

5
lcl/include/promptdialog.inc
View File

@ -68,7 +68,7 @@ begin
// focus the next button to the left or right
// search old focused button
OldFocusControl:=FindControl(LCLLinux.GetFocus);
OldFocusControl:=FindControl(LCLIntf.GetFocus);
if (OldFocusControl=nil) or (GetParentForm(OldFocusControl)<>Self)
or (not (OldFocusControl is TButton)) then
begin
@ -375,6 +375,9 @@ end;
{
$Log$
Revision 1.8 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.7 2003/08/27 08:14:37 mattias
fixed system fonts for win32 intf

2
lcl/include/screen.inc
View File

@ -374,7 +374,7 @@ begin
Exit;
end;
end;}
LCLLinux.SetCursor(Cursors[FCursor]);
LCLIntf.SetCursor(Cursors[FCursor]);
end;
Inc(FCursorCount);
end;

21
lcl/include/wincontrol.inc
View File

@ -656,7 +656,7 @@ var
begin
Result:=false;
if not HandleAllocated then exit;
LCLLinux.GetClientRect(Handle,IntfClientRect);
LCLIntf.GetClientRect(Handle,IntfClientRect);
Result:=(FClientWidth<>IntfClientRect.Right)
or (FClientHeight<>IntfClientRect.Bottom);
end;
@ -749,7 +749,7 @@ Begin
//writeln('[TWinControl.GetClientOrigin] ',Name,':',ClassName,' ',Handle);
if HandleAllocated then begin
// get the interface idea where the client area is on the screen
LCLLinux.ClientToScreen(Handle,Result);
LCLIntf.ClientToScreen(Handle,Result);
// adjust the result by all bounds, that are not yet sent to the interface
AControl:=Self;
repeat
@ -799,12 +799,12 @@ begin
StoreClientRect(Result);
end else if wcfClientRectNeedsUpdate in FFlags then begin
// update clientrect from interface
LCLLinux.GetClientRect(Handle, Result);
LCLIntf.GetClientRect(Handle, Result);
// the LCL is not always in sync with the interface
// -> adjust client rect based on LCL bounds
// for example: if the Width in LCL differ from the Width of the Interface
// object, then adjust the clientwidth accordingly
LCLLinux.GetWindowSize(Handle, InterfaceWidth, InterfaceHeight);
LCLIntf.GetWindowSize(Handle, InterfaceWidth, InterfaceHeight);
Result.Right:=Width-(InterfaceWidth-Result.Right);
Result.Bottom:=Height-(InterfaceHeight-Result.Bottom);
StoreClientRect(Result);
@ -837,7 +837,7 @@ var
ScrolledOffset: TPoint;
begin
if HandleAllocated then begin
LCLLinux.GetClientBounds(Handle,Result);
LCLIntf.GetClientBounds(Handle,Result);
if Scrolled then begin
ScrolledOffset:=GetClientScrollOffset;
inc(Result.Left,ScrolledOffset.X);
@ -1171,7 +1171,7 @@ begin
if (Control is TWinControl) and TWinControl(Control).HandleAllocated then
begin
// map coordinates to client area of control
LCLLinux.GetClientBounds(TWinControl(Control).Handle,ClientBounds);
LCLIntf.GetClientBounds(TWinControl(Control).Handle,ClientBounds);
dec(P.X,ClientBounds.Left);
dec(P.Y,ClientBounds.Top);
{$IFDEF VerboseMouseBugfix}
@ -1214,7 +1214,7 @@ procedure TWinControl.PaintHandler(var TheMessage: TLMPaint);
var
I, Clip, SaveIndex: Integer;
DC: HDC;
PS: TPaintStruct; //defined in LCLLinux.pp
PS: TPaintStruct; //defined in LCLIntf.pp
ControlsNeedsClipping: boolean;
begin
//writeln('[TWinControl.PaintHandler] ',Name,':',ClassName,' DC=',HexStr(Message.DC,8));
@ -1714,7 +1714,7 @@ begin
if Form <> nil then
Form.FocusControl(Self)
else if Visible and HandleAllocated then
LCLLinux.SetFocus(Handle);
LCLIntf.SetFocus(Handle);
end;
{------------------------------------------------------------------------------}
@ -2664,7 +2664,7 @@ var
{ procedure WriteClientRect(const Prefix: string);
var r: TRect;
begin
LCLLinux.GetClientRect(Handle,r);
LCLIntf.GetClientRect(Handle,r);
if csDesigning in ComponentState then
writeln('WriteClientRect ',Prefix,' ',Name,':',ClassName,' r=',r.Right,',',r.Bottom);
end;}
@ -3081,6 +3081,9 @@ end;
{ =============================================================================
$Log$
Revision 1.170 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.169 2003/09/17 15:26:41 mattias
fixed removing TPage

5
lcl/interfaces/gnome/gnomeint.pp
View File

@ -40,7 +40,7 @@ interface
uses
InterfaceBase, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf} gtk, gdk,
glib, SysUtils, LMessages, Classes, Controls, Forms, VclGlobals,
LCLLinux, LCLType, gtkDef, DynHashArray, LazQueue, GraphType,
LCLIntf, LCLType, gtkDef, DynHashArray, LazQueue, GraphType,
GraphMath, gtkInt, {$Ifndef NoGdkImlib}gdk_imlib,{$EndIf}
libgnome, libart, libgnomeui;
@ -246,6 +246,9 @@ end.
{
$Log$
Revision 1.18 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.17 2003/06/05 15:53:30 mattias
increased version to 0.9.0 beta

5
lcl/interfaces/gtk/gtkdef.pp
View File

@ -41,7 +41,7 @@ uses
{$ELSE}
glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf}
{$ENDIF}
Classes, LCLLinux, LCLType, VclGlobals, LCLMemManager, DynHashArray,
Classes, LCLIntf, LCLType, VclGlobals, LCLMemManager, DynHashArray,
GraphType;
type
@ -465,6 +465,9 @@ end.
{ =============================================================================
$Log$
Revision 1.47 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.46 2003/09/15 03:10:46 ajgenius
PANGO support for GTK2 now works.. sorta. TextOut/ExtTextOut broken?

2
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -26,7 +26,7 @@ uses
glib, gdk, gtk,
{$ENDIF}
LMessages, Controls, Forms,
VclGlobals, LCLLinux, LCLType, GTKDef, DynHashArray, LazLinkedList;
VclGlobals, LCLIntf, LCLType, GTKDef, DynHashArray, LazLinkedList;
{$I dragicons.inc}

5
lcl/interfaces/gtk/gtkint.pp
View File

@ -59,7 +59,7 @@ uses
{$ENDIF}
xlib,
SysUtils, Classes, ExtDlgs, Dialogs, Controls, Forms, LCLStrConsts, LMessages,
VclGlobals, LCLProc, LCLLinux, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
VclGlobals, LCLProc, LCLIntf, LCLType, gtkDef, DynHashArray, gtkMsgQueue,
GraphType, GraphMath, Graphics;
@ -372,6 +372,9 @@ end.
{ =============================================================================
$Log$
Revision 1.147 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.146 2003/09/15 03:10:46 ajgenius
PANGO support for GTK2 now works.. sorta. TextOut/ExtTextOut broken?

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -45,7 +45,7 @@ uses
glib, gdk, gtk, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf}
{$ENDIF}
LMessages, Controls, Forms, VclGlobals, LCLProc,
LCLStrConsts, LCLLinux, LCLType, gtkDef, DynHashArray, LazLinkedList,
LCLStrConsts, LCLIntf, LCLType, gtkDef, DynHashArray, LazLinkedList,
GraphType, GraphMath, Graphics, Buttons, Menus, GTKWinApiWindow, StdCtrls,
ComCtrls, CListBox, KeyMap, Calendar, Arrow, Spin, CommCtrl, ExtCtrls,
Dialogs, ExtDlgs, FileCtrl, LResources, Math, GTKGlobals;

17
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -597,7 +597,7 @@ end;
{------------------------------------------------------------------------------
Function: ClipboardGetOwnerShip
Params: ClipboardType
OnRequestProc - TClipboardRequestEvent is defined in LCLLinux.pp
OnRequestProc - TClipboardRequestEvent is defined in LCLIntf.pp
If OnRequestProc is nil the onwership will end.
FormatCount - number of formats
Formats - array of TClipboardFormat. The supported formats the owner
@ -5289,8 +5289,8 @@ function TgtkObject.GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Lo
end;
If GradientBrush <> 0 then
LCLLinux.DeleteObject(GradientBrush);
GradientBrush := LCLLinux.CreateBrushIndirect(NewBrush);
LCLIntf.DeleteObject(GradientBrush);
GradientBrush := LCLIntf.CreateBrushIndirect(NewBrush);
end;
Function FillTriMesh(Mesh : tagGradientTriangle) : Boolean;
@ -5364,7 +5364,7 @@ function TgtkObject.GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Lo
Steps := Min(BR.Y - TL.Y, MaxSteps);
for I := 0 to Steps - 1 do begin
GetGradientBrush(StartColor, EndColor, I, Steps, UseBrush);
LCLLinux.FillRect(DC, Rect(TL.X, TL.Y + I, BR.X, TL.Y + I + 1),
LCLIntf.FillRect(DC, Rect(TL.X, TL.Y + I, BR.X, TL.Y + I + 1),
UseBrush)
end
end
@ -5372,12 +5372,12 @@ function TgtkObject.GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Lo
Steps := Min(BR.X - TL.X, MaxSteps);
for I := 0 to Steps - 1 do begin
GetGradientBrush(StartColor, EndColor, I, Steps, UseBrush);
LCLLinux.FillRect(DC, Rect(TL.X + I, TL.Y, TL.X + I + 1, BR.Y),
LCLIntf.FillRect(DC, Rect(TL.X + I, TL.Y, TL.X + I + 1, BR.Y),
UseBrush);
end;
end;
If UseBrush <> 0 then
LCLLinux.DeleteObject(UseBrush);
LCLIntf.DeleteObject(UseBrush);
end;
end;
@ -8794,6 +8794,9 @@ end;
{ =============================================================================
$Log$
Revision 1.284 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.283 2003/09/17 19:40:46 ajgenius
Initial DoubleBuffering Support for GTK2
@ -9546,7 +9549,7 @@ end;
reference it from interface (GTK, Win32) units.
New Frame3d canvas method that uses native (themed) drawing (GTK only).
New overloaded Canvas.TextRect method.
LCLLinux and Graphics was split, so a bunch of files had to be modified.
LCLIntf and Graphics was split, so a bunch of files had to be modified.
Revision 1.59 2002/01/24 15:40:59 lazarus
MG: deactivated clipboard setting target list for win32

9
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -42,13 +42,13 @@ uses
gdk2pixbuf, gtk2, gdk2, glib2, Pango,
LMessages, Controls, Forms, VclGlobals, LCLProc,
LCLStrConsts, LCLLinux, LCLType, DynHashArray, LazLinkedList,
LMessages, Controls, Forms, VclGlobals, LCLProc,
LCLStrConsts, LCLIntf, LCLType, DynHashArray, LazLinkedList,
GraphType, GraphMath, Graphics, Buttons, Menus, GTKWinApiWindow, StdCtrls,
ComCtrls, CListBox, KeyMap, Calendar, Arrow, Spin, CommCtrl, ExtCtrls,
Dialogs, ExtDlgs, FileCtrl, LResources, Math, GTKGlobals,
gtkDef, gtkProc, gtkInt;
gtkDef, gtkProc, gtkInt;
type
TGtk2Object = class(TGtkObject)
@ -1046,6 +1046,9 @@ end.
{
$Log$
Revision 1.15 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.14 2003/09/17 20:30:57 ajgenius
fix(?) DCOffset for DrawText

2
lcl/interfaces/qt/qtint.pp
View File

@ -35,7 +35,7 @@ interface
uses
InterfaceBase, sysutils, lmessages, Classes, Controls,
extctrls, forms,dialogs, VclGlobals,stdctrls, comctrls,
LCLLinux,qt;
LCLIntf, qt;

5
lcl/interfaces/win32/win32int.pp
View File

@ -37,7 +37,7 @@ Interface
}
Uses
Windows, Classes, LCLStrConsts, ComCtrls, Controls, Dialogs, DynHashArray,
ExtCtrls, Forms, GraphMath, GraphType, InterfaceBase, LCLLinux, LCLType,
ExtCtrls, Forms, GraphMath, GraphType, InterfaceBase, LCLIntf, LCLType,
LMessages, StdCtrls, SysUtils, VCLGlobals, Win32Def, Graphics;
Type
@ -186,6 +186,9 @@ End.
{ =============================================================================
$Log$
Revision 1.41 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.40 2003/09/14 09:43:45 mattias
fixed common dialogs from Karl

2
lcl/intfgraphics.pas
View File

@ -31,7 +31,7 @@ unit IntfGraphics;
interface
uses
Classes, SysUtils, fpImage, AvgLvlTree, LCLLinux, LCLType, LCLProc, GraphType;
Classes, SysUtils, fpImage, AvgLvlTree, LCLIntf, LCLType, LCLProc, GraphType;
type
{ TLazIntfImage }

10
lcl/lcllinux.pp → lcl/lclintf.pas
View File

@ -2,7 +2,7 @@
{ $Id$ }
{
/***************************************************************************
LCLLinux.pp
LCLIntf.pas
-----------
Component Library Windows Controls
Initial Revision : Fri Jul 23 20:00:00 PDT 1999
@ -31,11 +31,10 @@
This unit is being created specifically for compatibility with Delphi. It
should only be used for constants and type definitions that are included in
the Delphi Windows unit. This is only done for compatibiltiy.
the Delphi Windows unit. This is only done for compatibility.
}
unit LCLLinux;
unit LCLIntf;
{$mode objfpc}{$H+}
@ -145,6 +144,9 @@ end.
{
$Log$
Revision 1.1 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.25 2002/12/16 12:12:50 mattias
fixes for fpc 1.1

5
lcl/menus.pp
View File

@ -45,7 +45,7 @@ interface
{$endif}
uses
Classes, SysUtils, LCLStrConsts, LCLLinux, LCLType, LCLProc, VCLGlobals,
Classes, SysUtils, LCLStrConsts, LCLIntf, LCLType, LCLProc, VCLGlobals,
LMessages, ActnList, Graphics, ImgList;
@ -386,6 +386,9 @@ end.
{
$Log$
Revision 1.51 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.50 2003/07/21 23:43:32 marc
* Fixed radiogroup menuitems

2
lcl/pairsplitter.pas
View File

@ -36,7 +36,7 @@ interface
uses
Classes, SysUtils, LCLProc, LMessages, VCLGlobals, Graphics, GraphType,
LCLLinux, Controls;
LCLIntf, Controls;
type
TCustomPairSplitter = class;

2
lcl/postscriptprinter.pas
View File

@ -31,7 +31,7 @@ unit PostScriptPrinter;
interface
uses
Classes, SysUtils, GraphType, Graphics, GraphMath, LCLLinux, Forms;
Classes, SysUtils, GraphType, Graphics, GraphMath, LCLIntf, Forms;
// uses lcllinux or winapi for RGB conversions and FORMS for application object

5
lcl/stdctrls.pp
View File

@ -31,7 +31,7 @@ interface
uses
VCLGlobals, Classes, SysUtils, LCLStrConsts, LCLType, LCLProc,
Graphics, GraphType, LMessages, Controls, ExtendedStrings, LCLLinux,
Graphics, GraphType, LMessages, Controls, ExtendedStrings, LCLIntf,
GraphMath, Forms;
@ -1464,6 +1464,9 @@ end.
{ =============================================================================
$Log$
Revision 1.104 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf
Revision 1.103 2003/08/28 09:10:00 mattias
listbox and comboboxes now set sort and selection at handle creation

2
lcl/toolwin.pp
View File

@ -43,7 +43,7 @@ interface
uses
Classes, Controls, SysUtils, stdCtrls, GraphType, Graphics, vclGlobals,
LMessages, LCLType, LCLLinux;
LMessages, LCLType, LCLIntf;
type