View Issue Details

IDProjectCategoryView StatusLast Update
0028547LazarusPatchpublic2015-09-29 23:06
ReporterJanusz TomczakAssigned ToMartin Friebe 
PrioritynormalSeverityminorReproducibilityN/A
Status closedResolutionfixed 
Product VersionProduct Build 
Target Version1.4.4Fixed in Version1.4.3 (SVN) 
Summary0028547: SynHighlighterHTML - new HTML 5 tags
DescriptionI added new HTML 5 tags: DIALOG, MAIN and MENUITEM
TagsNo tags attached.
Fixed in Revision49889
LazTarget1.4.4
Widgetset
Attached Files
  • synhighlighterhtml.pp.patch (1,680 bytes)
    Index: synhighlighterhtml.pp
    ===================================================================
    --- synhighlighterhtml.pp	(revision 49691)
    +++ synhighlighterhtml.pp	(working copy)
    @@ -1007,7 +1007,7 @@
     
     function TSynHTMLSyn.Func37: TtkTokenKind;
     begin
    -  if KeyComp('CITE') Or KeyComp('NAV') then begin
    +  if KeyComp('CITE') Or KeyComp('NAV') Or KeyComp('MAIN') then begin
         Result := tkKey;
       end else begin
         Result := tkUndefKey;
    @@ -1103,7 +1103,7 @@
     
     function TSynHTMLSyn.Func48: TtkTokenKind;
     begin
    -  if KeyComp('BLINK') then begin
    +  if KeyComp('BLINK') Or KeyComp('DIALOG') then begin
         Result := tkKey;
       end else begin
         Result := tkUndefKey;
    @@ -1451,7 +1451,7 @@
     
     function TSynHTMLSyn.Func100: TtkTokenKind;
     begin
    -  if KeyComp('FIGCAPTION') then begin
    +  if KeyComp('FIGCAPTION') Or KeyComp('MENUITEM') then begin
         Result := tkKey;
       end else begin
         Result := tkUndefKey;
    @@ -1761,7 +1761,7 @@
     
     function TSynHTMLSyn.Func159: TtkTokenKind;
     begin
    -  if KeyComp('/CITE') Or KeyComp('/NAV') then begin
    +  if KeyComp('/CITE') Or KeyComp('/NAV') Or KeyComp('/MAIN') then begin
         Result := tkKey;
       end else begin
         Result := tkUndefKey;
    @@ -1842,7 +1842,7 @@
     
     function TSynHTMLSyn.Func170: TtkTokenKind;
     begin
    -  if KeyComp('/BLINK') then begin
    +  if KeyComp('/BLINK') Or KeyComp('/DIALOG') then begin
         Result := tkKey;
       end else begin
         Result := tkUndefKey;
    @@ -2147,7 +2147,7 @@
     
     function TSynHTMLSyn.Func222: TtkTokenKind;
     begin
    -  if KeyComp('/FIGCAPTION') then begin
    +  if KeyComp('/FIGCAPTION') Or KeyComp('/MENUITEM') then begin
         Result := tkKey;
       end else begin
         Result := tkUndefKey;
    

Activities

Janusz Tomczak

2015-08-19 17:49

reporter  

synhighlighterhtml.pp.patch (1,680 bytes)
Index: synhighlighterhtml.pp
===================================================================
--- synhighlighterhtml.pp	(revision 49691)
+++ synhighlighterhtml.pp	(working copy)
@@ -1007,7 +1007,7 @@
 
 function TSynHTMLSyn.Func37: TtkTokenKind;
 begin
-  if KeyComp('CITE') Or KeyComp('NAV') then begin
+  if KeyComp('CITE') Or KeyComp('NAV') Or KeyComp('MAIN') then begin
     Result := tkKey;
   end else begin
     Result := tkUndefKey;
@@ -1103,7 +1103,7 @@
 
 function TSynHTMLSyn.Func48: TtkTokenKind;
 begin
-  if KeyComp('BLINK') then begin
+  if KeyComp('BLINK') Or KeyComp('DIALOG') then begin
     Result := tkKey;
   end else begin
     Result := tkUndefKey;
@@ -1451,7 +1451,7 @@
 
 function TSynHTMLSyn.Func100: TtkTokenKind;
 begin
-  if KeyComp('FIGCAPTION') then begin
+  if KeyComp('FIGCAPTION') Or KeyComp('MENUITEM') then begin
     Result := tkKey;
   end else begin
     Result := tkUndefKey;
@@ -1761,7 +1761,7 @@
 
 function TSynHTMLSyn.Func159: TtkTokenKind;
 begin
-  if KeyComp('/CITE') Or KeyComp('/NAV') then begin
+  if KeyComp('/CITE') Or KeyComp('/NAV') Or KeyComp('/MAIN') then begin
     Result := tkKey;
   end else begin
     Result := tkUndefKey;
@@ -1842,7 +1842,7 @@
 
 function TSynHTMLSyn.Func170: TtkTokenKind;
 begin
-  if KeyComp('/BLINK') then begin
+  if KeyComp('/BLINK') Or KeyComp('/DIALOG') then begin
     Result := tkKey;
   end else begin
     Result := tkUndefKey;
@@ -2147,7 +2147,7 @@
 
 function TSynHTMLSyn.Func222: TtkTokenKind;
 begin
-  if KeyComp('/FIGCAPTION') then begin
+  if KeyComp('/FIGCAPTION') Or KeyComp('/MENUITEM') then begin
     Result := tkKey;
   end else begin
     Result := tkUndefKey;

Martin Friebe

2015-09-29 02:27

manager   ~0086148

Thanks, applied

Issue History

Date Modified Username Field Change
2015-08-19 17:49 Janusz Tomczak New Issue
2015-08-19 17:49 Janusz Tomczak File Added: synhighlighterhtml.pp.patch
2015-08-19 23:43 Martin Friebe Assigned To => Martin Friebe
2015-08-19 23:43 Martin Friebe Status new => assigned
2015-09-29 02:27 Martin Friebe Fixed in Revision => 49889
2015-09-29 02:27 Martin Friebe LazTarget => 1.4.4
2015-09-29 02:27 Martin Friebe Note Added: 0086148
2015-09-29 02:27 Martin Friebe Status assigned => resolved
2015-09-29 02:27 Martin Friebe Fixed in Version => 1.4.3 (SVN)
2015-09-29 02:27 Martin Friebe Resolution open => fixed
2015-09-29 02:27 Martin Friebe Target Version => 1.4.4
2015-09-29 23:06 Janusz Tomczak Status resolved => closed