Re: [Lazarus] white popup hint box
On Tuesday, September 16, 2014, Rik van Kekem r...@graficalc.nl wrote: Isn't Lazarus 1.3 r42488 a really old version? (November 2013?) Or am I seeing this wrong? It is older, from August 2013. More than a year old. Waldo should update sometimes. You will get many goodies with the latest revision. The hint window issues were not from my changes. They happened later. Juha -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] white popup hint box
On 9/15/2014 7:36 PM, Rik van Kekem wrote: On 16 september 2014 01:17:55 CEST, waldo kitty wkitt...@windstream.net wrote: as noted previously, i don't use any installer... i pull trunk from the repository and compile it as per my previously posted command lines... Isn't Lazarus 1.3 r42488 a really old version? (November 2013?) Or am I seeing this wrong? you are seeing it right... there appears to be a problem with Svn2RevisionInc not being able to read and parse the info from tortoisesvn's newer version for some reason... the actual revision of lazarus i'm running is 46236 according to the properties of my lazarus directory... [time passes] it seems that the newer tortoisesvn uses a sqlite database to store revision info in... at least, there's a wc.db file in the .svn directory and a quick look at it with a binary file viewer tool shows that it starts with sqlite but i don't know if it contains the desired information for Svn2RevisionInc to gather and use... looking at the code for Svn2RevisionInc, the info that Svn2RevisionInc wants is definitely not in the entries file... that one only has three bytes in it now with this version of tortoisesvn... i've just spent the last while working out a .BAT file named svnversion.bat in the hopes that Svn2RevisionInc would execute it... i'm assuming that Svn2RevisionInc expects the file to be in the path so i placed it in the same place as tortoisesvn's SubWCRev.exe tool... the bat file calls SubWCRev.exe with the necessary path as fed from Svn2RevisionInc... SubWCRev creates an output file which the .BAT file types so that Svn2RevisionInc can get the revision number from stdout but Svn2RevisionInc doesn't even seem to execute the svnversion.bat file as desired... this is easy to see because the intermediate file for the bat file is not created and the resulting revision.inc file contains an empty string for the RevisionStr instead of Unknown as expected... i'm not sure how to fix it so that Svn2RevisionInc can get the revision number for the revision.inc file and since it is now almost 0300 in the morning my local time and i've been up for 24+ hours (again), i'm going to go to bed and try to get an hour or two of sleep [sigh] -- NOTE: No off-list assistance is given without prior approval. Please *keep mailing list traffic on the list* unless private contact is specifically requested and granted. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] white popup hint box
On 9/16/2014 2:06 AM, Juha Manninen wrote: On Tuesday, September 16, 2014, Rik van Kekem r...@graficalc.nl mailto:r...@graficalc.nl wrote: Isn't Lazarus 1.3 r42488 a really old version? (November 2013?) Or am I seeing this wrong? It is older, from August 2013. More than a year old. Waldo should update sometimes. You will get many goodies with the latest revision. i started this topic by stating that i had just updated for the first time in 4 months... previous to that i had been updating at least once every 2 months... please see my last post where i've fought with svn2revisioninc trying to get it to work with a bat file to replicate svnversion at least as far as getting the revision number from tortoisesvn's tool... -- NOTE: No off-list assistance is given without prior approval. Please *keep mailing list traffic on the list* unless private contact is specifically requested and granted. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] PostMessage return value
I did a draft of a TThreadPool class. Most of it works (creating assigning and re-assigning tasks works, stopping the thing still produces an exception). If anybody wants to test it I can post the project. -Michael -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] PostMessage return value
Hi Michael, Could you please post it somewhere, e.g. github? Thanks! 2014-09-16 19:44 GMT+08:00 Michael Schnell mschn...@lumino.de: I did a draft of a TThreadPool class. Most of it works (creating assigning and re-assigning tasks works, stopping the thing still produces an exception). If anybody wants to test it I can post the project. -Michael -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] PostMessage return value
I added a notify event for having both a single task and all task issue an event when having don the scheduled work. -Michael -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] TAChart with transparent background
I see. If you can keep the chart size unchanged then it is certainly a good idea to stretch the image to the requested size immediately after loading and use a simple Draw of the obtained image while charting. If you know the range of your data in advance it may also help to freeze the chart extent to avoid unnecessary repaints when data arrive. And you could also enclose the AddXY calls by calls to Begin/EndUpdate of the ChartSource. Avoiding unnecessary repainting can have a dramatic effect on speed. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] TAChart CandleStick Chart
In r46244 the TOpenHighLowCloseSeries has a new property Mode: selection mOHLC does the standard painting as before while mChandleStick paints the candlesticks that you requested. Since your code was mostly a copy of existing code I decided to stick to the old series type, but just add the painting modes. There are also properties CandleStickUpBrush, CandleStickDownBrush and CandleStickLinePen to control painting of the up and down bars and the border and shadow line. I also added a little demo financial to the demo folder of the TAChart installation which demonstrates both modes. It would be nice if you could have a look if everything is fine - I'm not an expert in financial charts. I also fixed the bug which ignored the true minimum of the data - therefore, it is no longer necessary to calculate the minimum by yourself, just have a look at the code in the demo project. And, finally, I modified the AddXOHLC method such that it automatically initializes the size of the YCount of the chart source if the current size would not be enough. -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Displaying a Listview entry in bold and a different colour
Hi Howard,
Many thanks for your reply.
That does seem to work, but my subitems and images don't seem to be
displayed now?
Would you mind giving me a further pointer as to how to display the images,
and the subitems in the same colour?
Thanks
Richard
On 15 September 2014 16:42, Howard Page-Clark h...@talktalk.net wrote:
On 15/09/2014 13:10, Richard Mace wrote:
Hi All,
I just want to make sure that I am not doing anything wrong here, please
can somebody give me a little code example of how to correctly set the
font to bold and a differnet colour in a listview entry?
I wouldn't claim the following is 'correct', but it works on Windows using
TListView's OnCustomDrawItem() event.
Howard
==code==
unit mainListviewOwnerDraw;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Graphics, ComCtrls, LCLType, StdCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure ListView1CustomDrawItem(Sender: TCustomListView; Item:
TListItem;
State: TCustomDrawState; var DefaultDraw: Boolean);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.FormCreate(Sender: TObject);
var
li: TListItem;
lc: TListColumn;
i: Integer;
begin
ListView1.ViewStyle:=vsReport;
ListView1.OwnerDraw:=True;
lc:=TListColumn.Create(ListView1.Columns);
lc.Caption:='Select an item to show custom draw:';
lc.Width:=ListView1.Canvas.TextWidth(lc.Caption) + 20;
for i:=0 to 4 do begin
li:=TListItem.Create(ListView1.Items);
li.Caption:=Format('Item number %d',[i]);
ListView1.Items.AddItem(li);
end;
end;
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
rct: TRect;
begin
DefaultDraw:=False;
if (cdsSelected in State) then begin
Sender.Canvas.Font.Style:=[fsBold];
Sender.Canvas.Font.Color:=clRed;
end
else begin
Sender.Canvas.Font.Style:=[];
Sender.Canvas.Font.Color:=clBlack;
end;
rct:=Item.DisplayRect(drLabel);
Sender.Canvas.FillRect(rct); //paint background with default brush colour
Sender.Canvas.TextOut(rct.Left, rct.Top, Item.Caption);
end;
end.
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] PostMessage return value
2014-09-16 23:08 GMT+08:00 Michael Schnell mschn...@lumino.de: I added a notify event for having both a single task and all task issue an event when having don the scheduled work. But where is the source please? -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
