Re: [Lazarus] Lazarus Mailinglist Reader

[Ondrej Pokorny]

Thank you Werner for sharing it!

I wanted to build the application from the sources and I had the 
following problems.

1.) What CCR version do you use? I used trunk virtualtreeview-new and it 
reported a streaming problem in
TVirtualStringTree.Header.Style - hsXPStyle doesn't exist.

For me:
  TVTHeaderStyle = (
    hsThickButtons,    // TButton look and feel
    hsFlatButtons,     // flatter look than hsThickButton, like an 
always raised flat TToolButton
    hsPlates          // flat TToolButton look and feel (raise on hover 
etc.)
  );

2.) Whenever I click on a thread, I get an AV:


-->> This may have something to do with the VirtualTree version I use.

3.) FPC 3.1.1 has some issues with SynFacil code. See patch.

=> What did you use to build lmlr? "FPC 3.1.1 trunk + Lazarus 1.5 trunk 
+ CCR trunk" seem not to work properly.

Ondrej

Index: Lazarus MailingList 
Reader/trunk/source/3rdParty/synfacilsynhighlighter/SynFacilBasic.pas
===================================================================
--- Lazarus MailingList 
Reader/trunk/source/3rdParty/synfacilsynhighlighter/SynFacilBasic.pas   
(revision 53)
+++ Lazarus MailingList 
Reader/trunk/source/3rdParty/synfacilsynhighlighter/SynFacilBasic.pas   
(working copy)
@@ -118,7 +118,7 @@
     firstSec  : TFaSynBlock; //secciУГn que se debe abrir al abrir el bloque
   end;
 
-  TEvBlockOnOpen = procedure(blk: TFaSynBlock; var Cancel: boolean = false) of 
object;
+  TEvBlockOnOpen = procedure(blk: TFaSynBlock; var Cancel: boolean) of object;
 
   TArrayTokSpec = array of TTokSpec;
   //clase para manejar la definiciУГn de bloques de sintaxis
Index: Lazarus MailingList 
Reader/trunk/source/3rdParty/synfacilsynhighlighter/SynFacilHighlighter.pas
===================================================================
--- Lazarus MailingList 
Reader/trunk/source/3rdParty/synfacilsynhighlighter/SynFacilHighlighter.pas     
(revision 53)
+++ Lazarus MailingList 
Reader/trunk/source/3rdParty/synfacilsynhighlighter/SynFacilHighlighter.pas     
(working copy)
@@ -670,7 +670,7 @@
 genera una excepciУГn}
 var
   tok  : TPtrTokEspec;
-  tmp: String;
+  tmp, tmpnew: String;
   procedure ActProcRange(var r: TTokSpec);
   //Configura el puntero pRange() para la funciУГn apropiada de acuerdo al 
delimitador final.
   begin
@@ -703,10 +703,10 @@
   //configura token especial
   for tmp in lisTmp do begin
     if (tmp<>'') and (tmp[1]='^') then begin
-      tmp := copy(tmp,2,length(tmp));
-      CreaBuscEspec(tok, tmp, 1); //busca o crea
+      tmpnew := copy(tmp,2,length(tmp));
+      CreaBuscEspec(tok, tmpnew, 1); //busca o crea
     end else begin
-      CreaBuscEspec(tok, tmp, 0); //busca o crea
+      CreaBuscEspec(tok, tmpnew, 0); //busca o crea
     end;
     //actualiza sus campos. Cambia, si ya existУ­a
     tok^.dEnd  :=dEnd;
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus