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

Cocoa: fix the length of BUTTON_CAPTION_ARRAY in CocoaConst

Browse Source
This commit is contained in:
rich2014 2024-08-22 00:49:33 +08:00
parent 0b2e8cf5ed
commit 6fb52e6528
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoaconst.pas
View File

@ -241,7 +241,7 @@ end;
function BUTTON_CAPTION_ARRAY: TNSStringArray; function BUTTON_CAPTION_ARRAY: TNSStringArray;
begin begin
if length(_BUTTON_CAPTION_ARRAY)=0 then begin if length(_BUTTON_CAPTION_ARRAY)=0 then begin
setlength( _BUTTON_CAPTION_ARRAY, idButtonNoToAll ); setlength( _BUTTON_CAPTION_ARRAY, idButtonNoToAll+1 );
_BUTTON_CAPTION_ARRAY[idButtonOk]:= LclTitleToNSString( rsMbOK ); _BUTTON_CAPTION_ARRAY[idButtonOk]:= LclTitleToNSString( rsMbOK );
_BUTTON_CAPTION_ARRAY[idButtonCancel]:= LclTitleToNSString( rsMbCancel ); _BUTTON_CAPTION_ARRAY[idButtonCancel]:= LclTitleToNSString( rsMbCancel );
_BUTTON_CAPTION_ARRAY[idButtonHelp]:= LclTitleToNSString( rsMbHelp ); _BUTTON_CAPTION_ARRAY[idButtonHelp]:= LclTitleToNSString( rsMbHelp );