Quellcode durchsuchen

Update ROPS: its 357e7728 was reverted because the true issue was fixed recently.

Because of this revert our 07b77192 change to isxclasses.pas.
Martijn Laan vor 1 Woche
Ursprung
Commit
1bfbb0e47f
2 geänderte Dateien mit 4 neuen und 4 gelöschten Zeilen
  1. 1 1
      Components/UniPs
  2. 3 3
      ISHelp/isxclasses.pas

+ 1 - 1
Components/UniPs

@@ -1 +1 @@
-Subproject commit 798fdbc43f86c1217d54d50c7e17ff3118fe4bbd
+Subproject commit 0ac7e8e909551028f812e73735276c69ea4b1366

+ 3 - 3
ISHelp/isxclasses.pas

@@ -500,20 +500,20 @@ end;
 
 TSysLinkType = (sltURL, sltID);
 
+TSysLinkEvent = procedure(Sender: TObject; const Link: string; LinkType: TSysLinkType);
+
 TCustomLinkLabel = class(TWinControl)
   property Alignment: TAlignment; read write;
   property AutoSize: Boolean; read write;
   property UseVisualStyle: Boolean; read write;
+  property OnLinkClick: TSysLinkEvent; read write;
 end;
 
-TSysLinkEvent = procedure(Sender: TObject; const Link: string; LinkType: TSysLinkType);
-
 TLinkLabel = class(TCustomLinkLabel)
   property Anchors: TAnchors; read write;
   property Caption: String; read write;
   property Color: TColor; read write;
   property Font: TFont; read write;
-  property OnLinkClick: TSysLinkEvent; read write;
 end;
 
 TNewLinkLabel = class(TLinkLabel)