Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2013-03

Lazarus: make buttons accessible on Windows

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Lubos Pintes

Hi,
Currently the buttons in Windows version of Lazarus are not accessible, more precisely, they are unnamed. This means that screen reader reads all buttons as "button", not "ok button", "cancel button" etc.

This "code contribution" fixes this:

class procedure TWin32WSBitBtn.SetText(const AWinControl: TWinControl;
const AText: string);
begin
   TWin32WSWinControl.SetText(AWinControl, AText);
   ...
end;

So just inserting one line. I tested it and it works. So if this will be accepted, we have buttons accessible on Windows wow. :)

Reply by email

Bart
to Lubos Pintes
Lubos Pintes wrote 16 lines
Hi, Currently the buttons in Windows version of Lazarus are not accessible, more precisely, they are unnamed. This means that screen reader reads all buttons as "button", not "ok button", "cancel button" etc. This "code contribution" fixes this: class procedure TWin32WSBitBtn.SetText(const AWinControl: TWinControl; const AText: string); begin TWin32WSWinControl.SetText(AWinControl, AText); ... end; So just inserting one line. I tested it and it works. So if this will be accepted, we have buttons accessible on Windows wow. :)

Could you please open a bugreport for this in our bugtracker, otherwise chances are it will be forgotten.

Bart

Reply by email

Lubos Pintes
to Bart

Done, bug #24135.

D?a 25. 3. 2013 14:50 Bart wrote / nap?sal(a):

Show quoted text 28 lines
On 3/25/13, Lubos Pintes wrote: > Hi, > Currently the buttons in Windows version of Lazarus are not accessible, > more precisely, they are unnamed. This means that screen reader reads > all buttons as "button", not "ok button", "cancel button" etc. > > This "code contribution" fixes this: > > class procedure TWin32WSBitBtn.SetText(const AWinControl: TWinControl; > const AText: string); > begin > TWin32WSWinControl.SetText(AWinControl, AText); > ... > end; > > So just inserting one line. I tested it and it works. So if this will be > accepted, we have buttons accessible on Windows wow. :) Could you please open a bugreport for this in our bugtracker, otherwise chances are it will be forgotten. Bart -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply by email