paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix a bug in CodeCompleteDialog

Browse Source
This commit is contained in:
pierre 2002-09-04 14:42:43 +00:00
parent 5953173600
commit e7ec0cde6d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpcodcmp.pas
View File

@ -356,10 +356,12 @@ begin
R2.Copy(R); R2.Move(0,-1); R2.B.Y:=R2.A.Y+1; Dec(R2.A.X);
Insert(New(PLabel, Init(R2, 'Unit handling', CB)));
R2.Copy(R); R2.Move(0,-1); R2.B.Y:=R2.A.Y+1;
If UseStandardUnitsInCodeComplete then
If ShowOnlyUnique then
CB^.Press(0);
If UseAllUnitsInCodeComplete then
If UseStandardUnitsInCodeComplete then
CB^.Press(1);
If UseAllUnitsInCodeComplete then
CB^.Press(2);
{ Standard unit name boolean }
R.Copy(R3); R.A.Y:=R.B.Y-1; Inc(R.A.X); Dec(R.B.X);
@ -439,8 +441,9 @@ begin
if Assigned(CodeCompleteWords) then Dispose(CodeCompleteWords, Done);
CodeCompleteWords:=C;
CodeCompleteCase:=TCodeCompleteCase(RB^.Value);
UseStandardUnitsInCodeComplete:=CB^.Mark(0);
UseAllUnitsInCodeComplete:=CB^.Mark(1);
ShowOnlyUnique:=CB^.Mark(0);
UseStandardUnitsInCodeComplete:=CB^.Mark(1);
UseAllUnitsInCodeComplete:=CB^.Mark(2);
if UseStandardUnitsInCodeComplete and (not UseAllUnitsInCodeComplete or not assigned(UnitsCodeCompleteWords)) and
((StandardUnits<>GetStr(InputL^.Data)) or not assigned(UnitsCodeCompleteWords)) then
begin