paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 13:52:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: completion box: fixed colors

Browse Source 
git-svn-id: trunk@58141 -
This commit is contained in:
mattias 2018-06-05 16:56:25 +00:00
parent a282a46751
commit c371a56c4f
4 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/compileroptions.pp
View File

@ -325,7 +325,8 @@ type
ccloAddVerboseAll, // add -va
ccloDoNotAppendOutFileOption, // do not add -o option
ccloAbsolutePaths,
ccloNoMacroParams // no search paths, no linker options, no custom options
ccloNoMacroParams, // no search paths, no linker options, no custom options
ccloAddCompilerPath
);
TCompilerCmdLineOptions = set of TCompilerCmdLineOption;
@ -2892,6 +2893,9 @@ begin
Kind:=pcFPC;
end;
if ccloAddCompilerPath in Flags then
switches:=ConvertOptionsToCmdLine('',RealCompilerFilename);
CurTargetOS:='';
CurTargetCPU:='';
if not (ccloNoMacroParams in Flags) then

2
ide/main.pp
View File

@ -6937,7 +6937,7 @@ begin
debugln(['Error: (lazarus) [TMainIDE.DoBuildProject] Compile failed']);
exit;
end;
// compilation succeded -> write state file
// compilation succeeded -> write state file
IsComplete:=[pbfSkipLinking,pbfSkipAssembler,pbfSkipTools]*Flags=[];
Result:=Project1.SaveStateFile(CompilerFilename,CompilerParams,IsComplete);
if Result<>mrOk then begin

3
ide/showcompileropts.pas
View File

@ -224,7 +224,8 @@ var
ParamList: TStrings;
begin
if CompilerOpts=nil then exit;
Flags:=CompilerOpts.DefaultMakeOptionsFlags;
Flags:=CompilerOpts.DefaultMakeOptionsFlags+[ccloAddCompilerPath];
if not RelativePathsCheckBox.Checked then
Include(Flags,ccloAbsolutePaths);
CurOptions := CompilerOpts.MakeOptionsString(Flags);

9
ide/sourceeditprocs.pas
View File

@ -293,10 +293,11 @@ begin
begin
if ItemSelected then
begin
ForegroundColor := ColorToRGB(Colors^.TextSelectedColor);
AllowFontColor := ForegroundColor=clNone;
if ForegroundColor=clNone then
ForegroundColor := Colors^.TextColor;
AllowFontColor := Colors^.TextSelectedColor=clNone;
if AllowFontColor then
ForegroundColor := ColorToRGB(Colors^.TextColor)
else
ForegroundColor := ColorToRGB(Colors^.TextSelectedColor);
BackgroundColor:=ColorToRGB(Colors^.BackgroundSelectedColor);
end else
begin