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

MG: added gtk rc file support and started stule dependent syscolors

Browse Source 
git-svn-id: trunk@1709 -
This commit is contained in:
lazarus 2002-05-28 19:39:45 +00:00
parent ee79b89293
commit 8126e3f5bd
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -1042,7 +1042,7 @@ function TFindDeclarationTool.FindDeclarationOfIdentAtCursor(
A^.B().C[].Identifier
}
var
EndPos: integer;
StartPos, EndPos: integer;
ExprType: TExpressionType;
begin
{$IFDEF CTDEBUG}
@ -1053,6 +1053,8 @@ begin
{$ENDIF}
Result:=false;
MoveCursorToCleanPos(Params.Identifier);
StartPos:=CurPos.StartPos;
if Params.ContextNode.Desc<>ctnIdentifier then StartPos:=-1;
ReadNextAtom;
EndPos:=CurPos.EndPos;
ReadNextAtom;
@ -1061,7 +1063,7 @@ begin
EndPos:=CurPos.EndPos;
end;
Include(Params.Flags,fdfFindVariable);
ExprType:=FindExpressionTypeOfVariable(-1,EndPos,Params);
ExprType:=FindExpressionTypeOfVariable(StartPos,EndPos,Params);
if (ExprType.Desc<>xtContext) then begin
Params.SetResult(CleanFindContext);
end;

4
lcl/include/treeview.inc
View File

@ -2321,7 +2321,7 @@ begin
Height := 97;
TabStop := True;
ParentColor := False;
FBackgroundColor := clWhite; //clBackground;
FBackgroundColor := clWhite;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
FDefItemHeight:=20;
@ -2343,7 +2343,7 @@ begin
//FEditInstance := MakeObjectInstance(EditWndProc);
FImageChangeLink := TChangeLink.Create;
FImageChangeLink.OnChange := @ImageListChange;
FSelectedColor:=clActiveCaption;
FSelectedColor:=clHighlight;
fSeparatorColor:=clGray;
FStateChangeLink := TChangeLink.Create;
FStateChangeLink.OnChange := @ImageListChange;

6
lcl/lcltype.pp
View File

@ -961,6 +961,7 @@ BKMODE_LAST = 2;
COLOR_GRADIENTACTIVECAPTION = 27;
COLOR_GRADIENTINACTIVECAPTION = 28;
COLOR_ENDCOLORS = COLOR_GRADIENTINACTIVECAPTION;
COLOR_DESKTOP = COLOR_BACKGROUND;
COLOR_3DFACE = COLOR_BTNFACE;
COLOR_3DSHADOW = COLOR_BTNSHADOW;
@ -968,7 +969,7 @@ BKMODE_LAST = 2;
COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT;
COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT;
MAX_SYS_COLORS = COLOR_GRADIENTINACTIVECAPTION;
MAX_SYS_COLORS = COLOR_ENDCOLORS;
SYS_COLOR_BASE = $80000000;
@ -1405,6 +1406,9 @@ end.
{
$Log$
Revision 1.6 2002/05/28 19:39:45 lazarus
MG: added gtk rc file support and started stule dependent syscolors
Revision 1.5 2002/05/10 06:05:50 lazarus
MG: changed license to LGPL