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

fixed PerformTab call

Browse Source 
git-svn-id: trunk@4619 -
This commit is contained in:
mattias 2003-09-13 16:43:01 +00:00
parent 4196d41aae
commit 6c84448ce9
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/wincontrol.inc
View File

@ -1055,7 +1055,7 @@ begin
If List.Count > 0 then begin
J := List.IndexOf(CurrentControl);
if J<0 then exit;
//writeln('TWinControl.FindNextControl A ',CurrentControl.Name,' ',J);
//writeln('TWinControl.FindNextControl A ',CurrentControl.Name,' ',J,' ',GoForward,',',CheckTabStop,',',CheckParent,',',OnlyWinControls);
I := J;
Repeat
If GoForward then begin
@ -1070,13 +1070,14 @@ begin
if I=J then exit;
Next := TControl(List[I]);
//writeln('TWinControl.FindNextControl B ',Next.Name,' ',I);
If (((Not CheckTabStop) or Next.TabStop)
and ((not CheckParent) or (Next.Parent = Self)))
and (Next.Enabled and Next.Visible)
and ((not OnlyWinControls) or (Next is TWinControl)) then
Result := Next;
until (Result <> nil);
//writeln('TWinControl.FindNextControl B ',Result.Name,' ',I);
//writeln('TWinControl.FindNextControl END ',Result.Name,' ',I);
end;
finally
List.Free;
@ -3078,6 +3079,9 @@ end;
{ =============================================================================
$Log$
Revision 1.168 2003/09/13 16:43:01 mattias
fixed PerformTab call
Revision 1.167 2003/09/13 14:01:39 mattias
fixed taborder dlg

5
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -639,7 +639,7 @@ begin
and (PGtkWindow(TopLevel)^.focus_widget=Widget) then begin
StopKeyEvent('key_press_event');
//writeln('GTKKeyUpDown ',TControl(Data).Name,':',TControl(Data).ClassName);
{$Ifdef GTk1}result:={$EndIf}TControl(Data).PerformTab(ssShift in ShiftState);
{$Ifdef GTk1}Result:={$EndIf}TControl(Data).PerformTab(not (ssShift in ShiftState));
If Result then begin
{$IfNDef Win32}
{$ifdef GTK2}
@ -2847,6 +2847,9 @@ end;
{ =============================================================================
$Log$
Revision 1.190 2003/09/13 16:43:01 mattias
fixed PerformTab call
Revision 1.189 2003/09/12 17:40:45 ajgenius
fixes for GTK2(accel groups, menu accel, 'draw'),
more work toward Pango(DrawText now works, UpdateDCTextMetric mostly works)