Re: [Lazarus] IDE UI consolidation (was: Re: lfm as pascal)
Dear Mr. Graeme Geldenhuys: I read the documentation mentioned about gif, but really, I dont feel sure to do that. I want to attach the running leopard in my applications. Its possible? thanks in advance, yours truly, Ing. Héctor F. Fiandor hfian...@infomed.sld.cu --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Modified .po files after each build
Dear sirs: where can I found something about the po files? thanks very much Ing. Héctor F. Fiandor hfian...@infomed.sld.cu --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Loading icon from Application.Icon
Dear Paul Ishenin: I want to know if in my 0.9.27 I can insert a gif (moving chetach) in my application first form. thanks in advance, Ing. Héctor F. Fiandor hfian...@infomed.sld.cu Guionardo Furlan wrote: Windows XP SP3 FPC 2.2.2 Lazarus 0.9.26 In 0.9.27 we've made rather big icon rework. Please test with either 0.9.27 snapshot or with svn version. I think your problem is solved. Best regards, Paul Ishenin. ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus __ Información de ESET Smart Security, versión de la base de firmas de virus 3744 (20090106) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] report a bug
in the 0.9.27 with FPC 2.2.3 the component palette is not completed (TImages and others are in fault) thanks Ing. Héctor F. Fiandor hfian...@infomed.sld.cu --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] from hfiandor 27 dic 08
Dear sirs: I am interested in add the chetah animated logo in the first form of my application. How to do it? I use de Lazarus 0.9.24 and the FPC 2.2.0 Thanks in advance yours, Ing. Héctor F. Fiandor hfian...@infomed.sld.cu --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] about gif images
Dear wile64: thanks for your answer. I will see GifAnim component. yours, Ing. Héctor F. Fiandor hfian...@infomed.sld.cu - Original Message - From: wile64 To: General mailing list Sent: Saturday, December 20, 2008 9:06 AM Subject: Re: [Lazarus] about gif images 2008/12/16 Héctor Fiandor Rosario hfian...@infomed.sld.cu Dear coleagues: I use the FCIcon in my first forms programs. this is an static icon. I catch an icon of a chetahh (or other animal) animated as a gif and I want to use in my forms. I will appreciate any help. yours, See GifAnim component here http://wile64.neuf.fr/en/composants/Composants.html -- Laurent. If debugging is the art of removing bugs, then programming must be the art of creating! My Components: http://wiki.lazarus.freepascal.org/Wile64 French Forum : http://lazforum-fr.tuxfamily.org/index.php -- ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus __ Informacisn de ESET Smart Security, versisn de la base de firmas de virus 3650 (20081128) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] about gif images
Dear Mattias: thanks for your answer. I have not tried your suggestion, if you can sent to me, I will try it. I dont have a fpimage reader for gif. yours, Ing. Héctor F. Fiandor hfian...@infomed.sld.cu - Original Message - From: Mattias Gaertner nc-gaert...@netcologne.de To: lazarus@lazarus.freepascal.org Sent: Saturday, December 20, 2008 9:07 AM Subject: Re: [Lazarus] about gif images On Sat, 20 Dec 2008 13:13:34 +0200 Graeme Geldenhuys graemeg.li...@gmail.com wrote: On Tue, Dec 16, 2008 at 2:47 PM, Héctor Fiandor Rosario hfian...@infomed.sld.cu wrote: I catch an icon of a chetahh (or other animal) animated as a gif and I want to use in my forms. For fpGUI I created a simple Animation component. I reads in a composite bitmap (images forming the animation in a horizontal large [single] image). I can then set a few properties like timing, looping etc... I simply read the image, split in into separate frames and display them one after the other. Very simply, but it works very nice for some animation on a form. It should be very simple to port to LCL. Do you have a fpimage reader for gif? Mattias ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] about gif images
Dear Mr. Graeme: thanks for your answer. if you can sent me your solution, I will try it. yours Ing. Héctor F. Fiandor hfian...@infomed.sld.cu - Original Message - From: Graeme Geldenhuys graemeg.li...@gmail.com To: General mailing list lazarus@lazarus.freepascal.org Sent: Saturday, December 20, 2008 6:13 AM Subject: Re: [Lazarus] about gif images On Tue, Dec 16, 2008 at 2:47 PM, Héctor Fiandor Rosario hfian...@infomed.sld.cu wrote: I catch an icon of a chetahh (or other animal) animated as a gif and I want to use in my forms. For fpGUI I created a simple Animation component. I reads in a composite bitmap (images forming the animation in a horizontal large [single] image). I can then set a few properties like timing, looping etc... I simply read the image, split in into separate frames and display them one after the other. Very simply, but it works very nice for some animation on a form. It should be very simple to port to LCL. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] about gif images
Dear coleagues: I use the FCIcon in my first forms programs. this is an static icon. I catch an icon of a chetahh (or other animal) animated as a gif and I want to use in my forms. I will appreciate any help. yours, Ing. Héctor F. Fiandor hfian...@infomed.sld.cu --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] about DLL
Dear members: is it possible to obtain a DLL in Lazarus like in Delphi and how to do it? thanks Ing. Héctor F. Fiandor [EMAIL PROTECTED] --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] animated image
Dear sirs: I want to include as a last form one with an animated image obtained from a PowerPoint presentation, wtih extension .gif where I can learn how to do that? thanks in advance, Ing. Héctor F. Fiandor [EMAIL PROTECTED] --- Red Telematica de Salud - Cuba CNICM - Infomed ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] procedure FloatToDecimal
diar Mr. Reenen Laurie: thanks very much for your answer. really, I think that my problem was in the TFloatRec. I see that you declare as var. I will try your suggestions. yours, Ing. Héctor F. Fiandor [EMAIL PROTECTED] - Original Message - From: Reenen Laurie To: General mailing list Sent: Monday, September 01, 2008 1:29 AM Subject: Re: [Lazarus] procedure FloatToDecimal Procedure FloatToDecimal(Out Result: TFloatRec; Value: Extended; Precision, Decimals : integer); The Precision, and Decimals work together to ensure the rounding etc. So lets say you want to have float to decimal, and have 5 digits... And you do it on a value of 2 then the result will be 2.0 If you only want a precision 2 but want decimals 5, and run it for pi, you will get 3.14000 So general rule is to have your precision higher than your digits, and you'll have good rounding. Hmmm... My test program shows some funnies: procedure TForm1.FormDblClick ( Sender : TObject ) ; var t : TFloatRec; begin FloatToDecimal(t,pi,5,3); ShowMessage(inttostr(t.Exponent)+'.'+t.Digits); end; Shows 3.1432 -- not 3.143 as expected... FloatToDecimal(t,pi,2,6); Showed, 3.14 (not 3.14) as I expected... On Sat, Aug 30, 2008 at 4:19 AM, Héctor Fiandor Rosario [EMAIL PROTECTED] wrote: Dear sirs: I need to convert a Float to a number with two decimal places in a Lazarus Project for Windows.. I am thinking to use the following procedure: Procedure FloatToDecimal(Out Result: TFloatRec; Value: Extended; Precision, Decimals : integer); begin FloatToDecimal(Result,Value,fvExtended,Precision,Decimals); end; but I dont know what to write in some of the arguments. Thanks in advance for your help, yours truly, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus -- o__ ,_./ _ (_)_\(_)___ ...speed is good ___ I believe five out of four people have a problem with fractions. -- ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus __ Informacisn de ESET Smart Security, versisn de la base de firmas de virus 3317 (20080801) __ ESET Smart Security ha comprobado este mensaje. http://www.eset.com ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] procedure FloatToDecimal
Dear sirs: I need to convert a Float to a number with two decimal places in a Lazarus Project for Windows.. I am thinking to use the following procedure: procedure FloatToDecimal(var DecVal: TFloatRec; const Value; ValueType: TFloatValue; Precision, Decimals: Integer); but I dont know what to write in some of the arguments. Thanks in advance for your help, yours truly, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Colouring StringGrids
Dear Mr. Dave:
I am a new one in FP but I have some years in Delphi.
for coloring stringgrid´cells I use the following routine:
procedure TfBasica829.StringGrid2PrepareCanvas(sender: TObject; aCol,
aRow: Integer; aState: TGridDrawState);
var
aTextStyle: TTextStyle;
begin
{
clRed, clGreen, clYellow, clBlue,
clWhite, clGray, clFuchsia, clTeal,
clNavy, clMaroon, clLime, clOlive,
clPurple, clSilver, clAqua, clBlack
}
if (ACol=0) then //1
begin
Stringgrid2.Canvas.Brush.Color := clRed; //
aTextStyle := StringGrid2.Canvas.TextStyle;
aTextStyle.Alignment:=taCenter; //taRightJustify;
aTextStyle.Layout:=tlCenter; //tlBottom;
StringGrid2.Canvas.TextStyle := aTextStyle;
end
else
if ACol=1 then //1.5
begin
Stringgrid2.Canvas.Brush.Color := clOlive{Green}; //
aTextStyle := StringGrid2.Canvas.TextStyle;
aTextStyle.Alignment:=taCenter; //taRightJustify;
aTextStyle.Layout:=tlCenter; //tlBottom;
StringGrid2.Canvas.TextStyle := aTextStyle;
end
else
if ACol=2 then //2
begin
Stringgrid2.Canvas.Brush.Color := clYellow; //
aTextStyle := StringGrid2.Canvas.TextStyle;
aTextStyle.Alignment:=taCenter; //taRightJustify;
aTextStyle.Layout:=tlCenter; //tlBottom;
StringGrid2.Canvas.TextStyle := aTextStyle;
end
else
if ACol=3 then //2.5
begin
Stringgrid2.Canvas.Brush.Color := clAqua; //
aTextStyle := StringGrid2.Canvas.TextStyle;
aTextStyle.Alignment:=taCenter; //taRightJustify;
aTextStyle.Layout:=tlCenter; //tlBottom;
StringGrid2.Canvas.TextStyle := aTextStyle;
end
else
if ACol=4 then //3.0
begin
Stringgrid2.Canvas.Brush.Color := clSilver; //
aTextStyle := StringGrid2.Canvas.TextStyle;
aTextStyle.Alignment:=taCenter; //taRightJustify;
aTextStyle.Layout:=tlCenter; //tlBottom;
StringGrid2.Canvas.TextStyle := aTextStyle;
end;
end;
to obtain this
maybe this can help you.
bye,
Ing. Héctor F. Fiandor
[EMAIL PROTECTED]
- Original Message -
From: Dave Coventry [EMAIL PROTECTED]
To: General mailing list lazarus@lazarus.freepascal.org
Sent: Tuesday, July 15, 2008 7:15 AM
Subject: [Lazarus] Colouring StringGrids
Hi,
I'm using the following code to (unsuccessfully) colour the fields of
a row in a tstringgrid if the second column is empty.
if StringGrid2.Cells[1,i]='' then
begin
PriceHeader:=true;
StringGrid2.Repaint;
end;
procedure TForm1.StringGrid2DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
var oldColour:TColor;
oldBrush: TBrush;
begin
with StringGrid2 do
begin
if PriceHeader then
begin
oldcolour:=font.Color;
oldBrush:=Canvas.Brush;
Brush.Color:=clNavy;
font.Color:=clWhite;
Canvas.FillRect(aRect);
font.Color:=oldColour;
Canvas.Brush:=oldBrush;
PriceHeader:=false;
end;
end;
end;
Can anyone give me a clue as to why it's not working?
___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
__ Información de ESET Smart Security, versión de la base de firmas
de virus 3268 (20080715) __
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com
snap.jpg___
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] error in examples
Thanks very much to Jesus Reyes. It works nice. yours, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] error in examples
Dear sirs: I have found an error in the Examples of Lazarus In the archive gridcelleditor the StringGrid'index are traslocate //StringGrid1.Cells[x,y]:=IntToStr(x)+','+IntToStr(y); //[Row,Col] StringGrid1.Cells[y,x]:=IntToStr(x)+','+IntToStr(y); //[Col,Row] I am looking how to align the string in cells and how to get colors for different cells. I have implemented a MultiStringGrid component in Delphi5 but I dont know how to do it in Lazarus. thanks very much yours truly, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Another newbie question
Dear Bill de Carle: I do (in the master form) what you say to show (in a slave form) some information to the user, and when readed, it has a buttom to go back. in the master form I do: procedure TfBasicaInterno.Revisar1Click(Sender: TObject); //Revisar = review label 1; begin fRevisar := TfRevisar.create(self); fRevisar.ShowModal; fRevisar.free; ...(other things) end; and in the slave form (fRevisar) I do: show the information in a ListBox procedure TfRevisar.Regresar1Click(Sender: TObject); //Regresar=go back begin ModalResult:=1; end; excuse me the spanish language. Ing. Héctor F. Fiandor [EMAIL PROTECTED] - Original Message - From: Bill de Carle [EMAIL PROTECTED] To: General mailing list lazarus@lazarus.freepascal.org Sent: Thursday, May 15, 2008 11:20 AM Subject: [Lazarus] Another newbie question I would like to add a feature to my application but can't figure out how to do it. Basically, when the user clicks on a button in Form1 I'd like a new window to open up somewhere else on the desktop. This new window is only for displaying lines of text which I already have as strings in RAM. As each new item is entered via Form1 I'll send one line of text to the new window, appending it to whatever is already displayed in that window. The new window should have a vertical scroll bar in case the number of lines becomes too large to view all at once. The user should have the ability to operate the scroll bar and to click on a red X at the top right corner of the new window to close it when he gets tired of seeing it. Of course, my code will need a way to learn when the new window has been closed by the user so I don't keep sending additional lines to it. I've seen this feature on several Windows programs so it must be already in the can somewhere. I don't know enough of the Windows jargon and I have no idea what the accepted name of such a component might be. I thought I might be able to use a Tlistbox widget on a separate form but when I asked Lazarus to open a new form it automatically created a new unit as well and everything got more complicated. Can someone please provide a hint or tell me the name of the component I need? Perhaps there is an example somewhere. Thanks in advance, Bill ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] from hfiandor
Dear sirs: I am a new member of the FP group, with litle experience in turboPascal and Delphi5. Now I am trying to rewrite some of my products in Delphi5 to FreePascal for windows I have e methods used in Delphi5 with this declaration: FormImage := fDiplo2Interno.GetFormImage; because I prepare a Form with some components and the appearence of a Diploma, and when finished, I convert to a jpeg image and SaveToFile as a jpeg. I have not found in FreePascal how to do this. If you can help me, I will thanks you very much. yours, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] problems with de memo component
Dear list: I am working with FreePascal I have a Form with a memo component mNomGrupos. I have a record with strings datas in the variable nombre. When the Form activate I do: mNomGrupos.Text:=PtrNombresInterno^.nombre; and in the component I can see the data but with a CarReturn (line jump) not included in the variable and not wanted. I have adjusted de Properties WantReturns and WantTabs to false and WordWrap to true. I have a OK button to do nombre:=mNomGrupos.text to write the data in the variable nombre; unfortunately when saving I obtain a textfile with the datas in this way controlesca,nombre 00100,PROCESO1 , 001001000,REQUISITO1_1, with a line jump not wanted I will appreciate very much your help to avoid this effect in the memo component when charge the varible. thanks in advance, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] GetVolumeInformation
Dear sirs: I have used for years with Delphi5 the following function to get de series number of the harddisk (c) function GetVolumeID(DriveChar: Char): String; //Para obtener el # de serie de un disco var MaxFileNameLength, VolFlags, SerNum: DWord; begin if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0, @SerNum, MaxFileNameLength, VolFlags, nil, 0) then begin Result := IntToStr(SerNum); end else Result := ''; end; and now, with FreePascal, I have to use something as this for the same proposal. Somebody can help me with this task? Thanks in advance, yours truly, Ing. Héctor F. Fiandor [EMAIL PROTECTED] ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
