paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 21:02:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix some TDirList highlight errors

Browse Source
This commit is contained in:
pierre 2002-05-24 11:46:20 +00:00
parent e7fc832ddc
commit 411e018608
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fv/stddlg.pas
View File

@ -1685,7 +1685,8 @@ end;
function TDirListBox.IsSelected(Item: Sw_Integer): Boolean;
begin
IsSelected := Item = Cur;
{ IsSelected := Item = Cur; }
IsSelected := Inherited IsSelected(Item);
end;
procedure TDirListBox.NewDirectory(var ADir: DirStr);
@ -1701,6 +1702,7 @@ var
C, OldC: Char;
S, Indent: String[80];
P: PString;
NewCur: Word;
isFirst: Boolean;
SR: SearchRec;
I: Sw_Integer;
@ -1738,7 +1740,7 @@ begin
else S := MiddleDir + OldC;
AList^.Insert(NewDirEntry(S, OldC + ':' + DirSeparator));
end;
if C = GetCurDrive then Cur := AList^.Count;
if C = GetCurDrive then NewCur := AList^.Count;
OldC := C;
end;
end;
@ -1776,7 +1778,7 @@ begin
Indent := Indent + IndentSize;
Dirct := Dirct + DirSeparator;
end;
Cur := AList^.Count-1;
NewCur := AList^.Count-1;
isFirst := True;
NewDir := Dirct + '*.*';
FindFirst(NewDir, Directory, SR);
@ -1814,7 +1816,8 @@ begin
end;
end;
NewList(AList);
FocusItem(Cur);
FocusItem(NewCur);
Cur:=NewCur;
end;
procedure TDirListBox.SetState(AState: Word; Enable: Boolean);

11
fvision/stddlg.pas
View File

@ -1685,7 +1685,8 @@ end;
function TDirListBox.IsSelected(Item: Sw_Integer): Boolean;
begin
IsSelected := Item = Cur;
{ IsSelected := Item = Cur; }
IsSelected := Inherited IsSelected(Item);
end;
procedure TDirListBox.NewDirectory(var ADir: DirStr);
@ -1701,6 +1702,7 @@ var
C, OldC: Char;
S, Indent: String[80];
P: PString;
NewCur: Word;
isFirst: Boolean;
SR: SearchRec;
I: Sw_Integer;
@ -1738,7 +1740,7 @@ begin
else S := MiddleDir + OldC;
AList^.Insert(NewDirEntry(S, OldC + ':' + DirSeparator));
end;
if C = GetCurDrive then Cur := AList^.Count;
if C = GetCurDrive then NewCur := AList^.Count;
OldC := C;
end;
end;
@ -1776,7 +1778,7 @@ begin
Indent := Indent + IndentSize;
Dirct := Dirct + DirSeparator;
end;
Cur := AList^.Count-1;
NewCur := AList^.Count-1;
isFirst := True;
NewDir := Dirct + '*.*';
FindFirst(NewDir, Directory, SR);
@ -1814,7 +1816,8 @@ begin
end;
end;
NewList(AList);
FocusItem(Cur);
FocusItem(NewCur);
Cur:=NewCur;
end;
procedure TDirListBox.SetState(AState: Word; Enable: Boolean);