This commit is contained in:
mattias 2025-02-13 08:49:48 +01:00
parent be89c477d9
commit fb03756b41
25 changed files with 51 additions and 29 deletions

View File

@ -896,7 +896,9 @@ msgid "Help"
msgstr "Hilfe" msgstr "Hilfe"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Hilfe (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Hilfe (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -956,7 +956,9 @@ msgid "Help"
msgstr "Ayuda" msgstr "Ayuda"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Ayuda (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Ayuda (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -905,7 +905,9 @@ msgid "Help"
msgstr "Ohje" msgstr "Ohje"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Ohje (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Ohje (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -878,7 +878,9 @@ msgid "Help"
msgstr "Aide" msgstr "Aide"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Aide (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Aide (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -878,7 +878,9 @@ msgid "Help"
msgstr "Súgó" msgstr "Súgó"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Súgó (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Súgó (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -922,7 +922,9 @@ msgid "Help"
msgstr "Žinynas" msgstr "Žinynas"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Žinynas (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Žinynas (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -847,7 +847,7 @@ msgid "Help"
msgstr "" msgstr ""
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "" msgstr ""
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -876,7 +876,9 @@ msgid "Help"
msgstr "Ajuda" msgstr "Ajuda"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Ajuda" msgstr "Ajuda"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -877,7 +877,9 @@ msgid "Help"
msgstr "Справка" msgstr "Справка"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Справка (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Справка (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -878,7 +878,9 @@ msgid "Help"
msgstr "Yardım" msgstr "Yardım"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Yardım (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Yardım (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -878,7 +878,9 @@ msgid "Help"
msgstr "Довідка" msgstr "Довідка"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "Довідка (http://wiki.freepascal.org/Online_Package_Manager)" msgstr "Довідка (http://wiki.freepascal.org/Online_Package_Manager)"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -878,7 +878,9 @@ msgid "Help"
msgstr "帮助" msgstr "帮助"
#: opkman_const.rsmainfrm_tbhelp_hint #: opkman_const.rsmainfrm_tbhelp_hint
msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)" #, fuzzy
#| msgid "Help (http://wiki.freepascal.org/Online_Package_Manager)"
msgid "Help (https://wiki.freepascal.org/Online_Package_Manager)"
msgstr "帮助http://wiki.freepascal.org/Online_Package_Manager" msgstr "帮助http://wiki.freepascal.org/Online_Package_Manager"
#: opkman_const.rsmainfrm_tbinstall_caption #: opkman_const.rsmainfrm_tbinstall_caption

View File

@ -22,7 +22,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Online Package Manager is a tool that automates the process of installing, upgrading, configuring Lazarus packages. The packages are stored in the main repository(see repository column) as zip files, along with a JSON file. The JSON contains all necessary information about the packages. On request the packages are downloaded/extracted/compiled/installed into the IDE. If available, it&apos;s also possible to update a previously installed package from the maintainer webpage. <Description Value="Online Package Manager is a tool that automates the process of installing, upgrading, configuring Lazarus packages. The packages are stored in the main repository(see repository column) as zip files, along with a JSON file. The JSON contains all necessary information about the packages. On request the packages are downloaded/extracted/compiled/installed into the IDE. If available, it&apos;s also possible to update a previously installed package from the maintainer webpage.
For more info please visit: http://wiki.freepascal.org/Online_Package_Manager"/> For more info please visit: https://wiki.freepascal.org/Online_Package_Manager"/>
<License Value="GPL"/> <License Value="GPL"/>
<Version Major="1" Release="1" Build="2"/> <Version Major="1" Release="1" Build="2"/>
<Files Count="30"> <Files Count="30">

View File

@ -44,9 +44,9 @@ const
cLocalRepositoryUpdatesFile = 'updates_%s.xml'; cLocalRepositoryUpdatesFile = 'updates_%s.xml';
cExcludedFilesDef = '*.,*.a,*.o,*.ppu,*.compiled,*.bak,*.or,*.rsj,*.~,*.exe,*.dbg,*.zip,*.so,*.dll,*.dylib'; cExcludedFilesDef = '*.,*.a,*.o,*.ppu,*.compiled,*.bak,*.or,*.rsj,*.~,*.exe,*.dbg,*.zip,*.so,*.dll,*.dylib';
cExcludedFoldersDef = 'lib,backup,updates,compiled,.git,.svn,units'; cExcludedFoldersDef = 'lib,backup,updates,compiled,.git,.svn,units';
cHelpPage = 'http://wiki.freepascal.org/Online_Package_Manager'; cHelpPage = 'https://wiki.freepascal.org/Online_Package_Manager';
cHelpPage_CreateRepositoryPackage = 'http://wiki.freepascal.org/Online_Package_Manager#Create_repository_package'; cHelpPage_CreateRepositoryPackage = 'https://wiki.freepascal.org/Online_Package_Manager#Create_repository_package';
cHelpPage_CreateExternalJSON = 'http://wiki.freepascal.org/Online_Package_Manager#Create_JSON_for_updates'; cHelpPage_CreateExternalJSON = 'https://wiki.freepascal.org/Online_Package_Manager#Create_JSON_for_updates';
{$ifdef win64} {$ifdef win64}
//cOpenSSLURL = 'http://packages.lazarus-ide.org/openssl-1.0.2j-x64_86-win64.zip'; //cOpenSSLURL = 'http://packages.lazarus-ide.org/openssl-1.0.2j-x64_86-win64.zip';
cOpenSSLURL = 'http://packages.lazarus-ide.org/openssl-1.1.1o-x64_86-win64.zip'; cOpenSSLURL = 'http://packages.lazarus-ide.org/openssl-1.1.1o-x64_86-win64.zip';

View File

@ -706,7 +706,7 @@ end;
procedure TMainFrm.tbHelpClick(Sender: TObject); procedure TMainFrm.tbHelpClick(Sender: TObject);
begin begin
OpenURL('http://wiki.freepascal.org/Online_Package_Manager'); OpenURL('https://wiki.freepascal.org/Online_Package_Manager');
end; end;
procedure TMainFrm.tbRefreshClick(Sender: TObject); procedure TMainFrm.tbRefreshClick(Sender: TObject);

View File

@ -507,7 +507,7 @@ end;
procedure TIDETodoWindow.acHelpExecute(Sender: TObject); procedure TIDETodoWindow.acHelpExecute(Sender: TObject);
begin begin
// usual API from IdeHelpIntf don't work // usual API from IdeHelpIntf don't work
OpenURL('http://wiki.freepascal.org/IDE_Window:_ToDo_List'); OpenURL('https://wiki.freepascal.org/IDE_Window:_ToDo_List');
end; end;
procedure TIDETodoWindow.acExportExecute(Sender: TObject); procedure TIDETodoWindow.acExportExecute(Sender: TObject);

View File

@ -217,7 +217,7 @@ begin
// Insert the values into the database // Insert the values into the database
// We're using ParamByName which prevents SQL Injection // We're using ParamByName which prevents SQL Injection
// http://wiki.freepascal.org/Working_With_TSQLQuery#Parameters_in_TSQLQuery.SQL // https://wiki.freepascal.org/Working_With_TSQLQuery#Parameters_in_TSQLQuery.SQL
SQLQuery1.SQL.Text := 'Insert into DATA (Current_Time,User_Name,Info) values (:Current_Time,:User_Name,:Info)'; SQLQuery1.SQL.Text := 'Insert into DATA (Current_Time,User_Name,Info) values (:Current_Time,:User_Name,:Info)';
SQLQuery1.Params.ParamByName('Current_Time').AsDateTime := Now; SQLQuery1.Params.ParamByName('Current_Time').AsDateTime := Now;
SQLQuery1.Params.ParamByName('User_Name').AsString := txtUser_Name.Text; SQLQuery1.Params.ParamByName('User_Name').AsString := txtUser_Name.Text;

View File

@ -232,7 +232,7 @@ end;
procedure TCleanBuildProjectDialog.HelpButtonClick(Sender: TObject); procedure TCleanBuildProjectDialog.HelpButtonClick(Sender: TObject);
begin begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Clean_up_build_files_dialog'); OpenUrl('https://wiki.freepascal.org/IDE_Window:_Clean_up_build_files_dialog');
end; end;
procedure TCleanBuildProjectDialog.PkgOutCheckBoxChange(Sender: TObject); procedure TCleanBuildProjectDialog.PkgOutCheckBoxChange(Sender: TObject);

View File

@ -422,7 +422,7 @@ end;
procedure TDesktopForm.HelpButtonClick(Sender: TObject); procedure TDesktopForm.HelpButtonClick(Sender: TObject);
begin begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Desktops'); OpenUrl('https://wiki.freepascal.org/IDE_Window:_Desktops');
end; end;
procedure TDesktopForm.RefreshList(SelectName: string); procedure TDesktopForm.RefreshList(SelectName: string);

View File

@ -1040,7 +1040,7 @@ end;
procedure TFindRenameIdentifierDialog.HelpButtonClick(Sender: TObject); procedure TFindRenameIdentifierDialog.HelpButtonClick(Sender: TObject);
begin begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Find_or_Rename_identifier'); OpenUrl('https://wiki.freepascal.org/IDE_Window:_Find_or_Rename_identifier');
end; end;
procedure TFindRenameIdentifierDialog.RenameCheckBoxChange(Sender: TObject); procedure TFindRenameIdentifierDialog.RenameCheckBoxChange(Sender: TObject);

View File

@ -196,7 +196,7 @@ end;
procedure TToolBarConfig.btnHelpClick(Sender: TObject); procedure TToolBarConfig.btnHelpClick(Sender: TObject);
begin begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Toolbar_Config'); OpenUrl('https://wiki.freepascal.org/IDE_Window:_Toolbar_Config');
end; end;
function TToolBarConfig.FilterEditFilterNode(ItemNode: TTreeNode; out Done: Boolean): Boolean; function TToolBarConfig.FilterEditFilterNode(ItemNode: TTreeNode; out Done: Boolean): Boolean;

View File

@ -417,8 +417,8 @@ type
// The following dummy categories fix bugs in the Cocoa bindings available in FPC // The following dummy categories fix bugs in the Cocoa bindings available in FPC
// Remove them when the FPC binding parser is fixed. // Remove them when the FPC binding parser is fixed.
// More details: // More details:
// http://wiki.freepascal.org/FPC_PasCocoa/Differences#Sending_messages_to_id // https://wiki.freepascal.org/FPC_PasCocoa/Differences#Sending_messages_to_id
// http://wiki.lazarus.freepascal.org/FPC_PasCocoa#Category_declaration // https://wiki.lazarus.freepascal.org/FPC_PasCocoa#Category_declaration
NSBitmapImageRepFix = objccategory external(NSBitmapImageRep) NSBitmapImageRepFix = objccategory external(NSBitmapImageRep)
function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:'; function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:';
function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; bitmapFormat_: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:'; function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; bitmapFormat_: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:';

View File

@ -271,8 +271,8 @@ type
// The following dummy categories fix bugs in the Cocoa bindings available in FPC // The following dummy categories fix bugs in the Cocoa bindings available in FPC
// Remove them when the FPC binding parser is fixed. // Remove them when the FPC binding parser is fixed.
// More details: // More details:
// http://wiki.freepascal.org/FPC_PasCocoa/Differences#Sending_messages_to_id // https://wiki.freepascal.org/FPC_PasCocoa/Differences#Sending_messages_to_id
// http://wiki.lazarus.freepascal.org/FPC_PasCocoa#Category_declaration // https://wiki.lazarus.freepascal.org/FPC_PasCocoa#Category_declaration
NSBitmapImageRepFix = objccategory external(NSBitmapImageRep) NSBitmapImageRepFix = objccategory external(NSBitmapImageRep)
function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:'; function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bytesPerRow:bitsPerPixel:';
function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; bitmapFormat_: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:'; function initWithBitmapDataPlanes_pixelsWide_pixelsHigh__colorSpaceName_bitmapFormat_bytesPerRow_bitsPerPixel(planes: PPByte; width: NSInteger; height: NSInteger; bps: NSInteger; spp: NSInteger; alpha: Boolean; isPlanar_: Boolean; colorSpaceName_: NSString; bitmapFormat_: NSBitmapFormat; rBytes: NSInteger; pBits: NSInteger): id; message 'initWithBitmapDataPlanes:pixelsWide:pixelsHigh:bitsPerSample:samplesPerPixel:hasAlpha:isPlanar:colorSpaceName:bitmapFormat:bytesPerRow:bitsPerPixel:';

View File

@ -280,7 +280,7 @@ begin
if AWSPrivate = nil then WSPrivate := TWSPrivate if AWSPrivate = nil then WSPrivate := TWSPrivate
else WSPrivate := AWSPrivate; else WSPrivate := AWSPrivate;
// Determine VMT count and size => http://wiki.freepascal.org/Compiler-generated_data_and_data_structures // Determine VMT count and size => https://wiki.freepascal.org/Compiler-generated_data_and_data_structures
VvmtCount := 0; VvmtCount := 0;
Vvmt := Pointer(ANode^.WSClass) + vmtMethodStart; Vvmt := Pointer(ANode^.WSClass) + vmtMethodStart;
// AWSComponent is equal to ANode^.WSClass; // AWSComponent is equal to ANode^.WSClass;

View File

@ -237,7 +237,7 @@ end;
procedure TPkgGraphExplorerDlg.HelpButtonClick(Sender: TObject); procedure TPkgGraphExplorerDlg.HelpButtonClick(Sender: TObject);
begin begin
OpenUrl('http://wiki.freepascal.org/IDE_Window:_Package_Graph'); OpenUrl('https://wiki.freepascal.org/IDE_Window:_Package_Graph');
end; end;
procedure TPkgGraphExplorerDlg.LvlGraphControl1SelectionChanged(Sender: TObject procedure TPkgGraphExplorerDlg.LvlGraphControl1SelectionChanged(Sender: TObject