Pascal Programing

Chat by thunderbird.

2011-06-15T07:58:00.000-07:00

Hi!
Certainly that you see that amzing option(if you use gmail and her web client). of grouping your email's by chat's.
With this tutoria you can give you an solution.
But first some images.

In this case you see gmail using this option.

In the second case you see thunderbird after I run this tutorial.
.
In 1ºst place you need to click in Menu bar. Now click in "View", point to "Topics" and click in option "unread".
Enjoy.

Create a run-time object in Delphi.

2011-06-09T05:46:00.000-07:00

Hello reader.
Anytime you have the necessity of associate 2 object events to just 1 method? Yes, maybe.
Right now I guide you, on how to solve the problem of use the same object that you're clicked(if you use the event onClick).
In this example I've got 2 buttons with the same event onClick. We go put the caption 'Button + aleatorial number'.
So, at the event onClick of the 2 Buttons put the code:
TButton(sender).Caption := 'Button ' + IntToStr(Random(255));
I wait that it be useful

Text with border's. No problem!

2011-06-09T03:40:00.000-07:00

Hi.
Do you need of put borders in your text. in this article I solve the problem.
1 - Put a TShape in Form.
2 - At the event onPaint of TShape put the code :

Shape1.Canvas.Font.Color:=clRed;
Shape1.Canvas.TextOut(1,1,'Teste');
And now have your own Label with border.
With this way you can change the border color.

Sites of Lazarus/pascal.

2011-06-09T01:44:00.000-07:00

Hello dear reader.
Silvioprog, an follower of the lazarus-br list, said a tip on list recomending 2 sites of Lazarus.
This sites in my opinion are great sites.
One of the sites is the site lazarus-components.org .This site is a big list of components for Lazarus agrouped by categories where you can found good components for the hard moments of the life of a programmer.
This is some of categories of the site:

Components with sources

Components without source;

Another site recommended bym him is http://www.freebyte.com/programming/ . Here you can find lots of things for Delphi and Pascal in general. We recommend this sites.

Greatest experience on a chat.

2011-06-03T08:13:00.000-07:00

Hi again.
Yesterday I found a advertisement on a site related with a a new chat program. This chat is more than a chat is the most completly and amazing experience around the web. This client are IMVU.

This client is a improved mix of facebook and msn. Have the particularity of the 3d interaction with the avatars of the people.
You can make login with your own account of facebook or MSN or ohter popular social networks. Try this. Download it from here.

Amazing portuguese comunity of programming.

2011-05-31T10:10:00.000-07:00

The community Portugal-a-programar has in the past 28 on May 6 years of existence . Several years of work and dedication of many volunteer contributors, it has been possible to create and grow a community of programmers in the Portuguese language.
Consider some numbers from the community (blog, journal, wiki, etc.) and post this time, enabling them to win one of five t-shirts that are being offered.
Congratulations Portugal-a-programar and all who have contributed!

Lazarus Free Pascal Tutoriais

2011-05-30T09:52:00.000-07:00

Hi again.
I found a good site with video-classes of Lazarus Freepascal.
Here is: http://www.schoolfreeware.com/Free_Pascal_Tutorials.html .

If i got autorization I gonna publish this videos t here.

Programming Resources

2011-05-30T04:32:00.000-07:00

Hello.
Where I navigate around the web I found some amazing resources for Pascal.
So here is a list:
Articles:
Pascal Newsletter - Free Delphi Newsletter

According to the website, the Pascal Newsletter is a non-periodical (almost monthly) publication distributed free of charge via email in plain text format. There is also an archive of past newsletters in zipped .txt format with source code examples.
Interview with a Pascal Architect

Great insight into the art of compiler making .
Object Pascal beats C++

A down to Earth comparison between Object Pascal and C++.
The Pascal Programming Language

This paper is a review of the Pascal programming language.
Top 10 reasons why Pascal is better than C

Pascal article.
Using Unicode with Vector Pascal

Pacal article.
Hiding the Menu Bar (Mac)

Pascal article.
THINK Pascal and CodeWarrior Pascal

More resources at freeprogrammingresources.com .

2011-05-30T02:41:00.000-07:00

In my Delphi programs, sometimes it is necessary to simulate a keypress in TEdit that has not received the focus.
Example:

procedure TFormPegaProdutos.DBGrid1KeyPress(Sender: TObject;
var Key: Char);
begin

if not (key in ['0'..'9','/',#13,#27,'A'..'z']) Then key:=#0;
if key=#27 then close;

if (key in ['A'..'Z']) or (key in ['a'..'z']) Then
begin

PanelPesquisa.Top:=80;
PanelPesquisa.Left:=160;
PanelPesquisa.visible:=True;
Palavra1.setfocus;
if (key in ['a'..'z']) Then Key:=chr(trunc(ord(Key))-32);
keybd_event(trunc(Ord(Key)),0,0,0);
end;
if key in ['0'..'9'] Then
begin
PanelVenda.Top:=80;
PanelVenda.Left:=60;
PanelVenda.visible:=True;
ValorUni.Text:=FormatCurr('#0.00',ProTEMPP_VIS.AsCurrency);
QTD.setfocus;
keybd_event(trunc(Ord(Key)),0,0,0);
end;
...That is, the list of items (DBGrid1) the User may open a search panel for a new item without leaving the list, and can still register a sale of the item without leaving the list, which is, say By the way, very practical.

But Lazarus did not have available in the keybd_event, then how to solve this problem?

I created a simple procedure:
procedure keybd_event_on(EditControl:TEdit; var key: char);
begin
EditControl.Text:=key+' ';
EditControl.setfocus;
EditControl.SelStart:=1;
EditControl.SelLength:=1;
end;

Ready!

Now I can continue porting my programs for carrying Lazarus.
Not because of a keybd_event that the project will stop!

procedure TFormPegaProdutos.DBGrid1KeyPress(Sender: TObject;
var Key: Char);
begin

if not (key in ['0'..'9','/',#13,#27,'A'..'z']) Then key:=#0;
if key=#27 then close;

if (key in ['A'..'Z']) or (key in ['a'..'z']) Then
begin

. PanelPesquisa.Top:=80;
. PanelPesquisa.Left:=160;
. PanelPesquisa.visible:=True;
. Palavra1.setfocus;
. if (key in ['a'..'z']) Then Key:=chr(trunc(ord(Key))-32);
. keybd_event(trunc(Ord(Key)),0,0,0);
. keybd_event_on(Palavra1,Key);
end;
if key in ['0'..'9'] Then
begin
. PanelVenda.Top:=80;
. PanelVenda.Left:=60;
. PanelVenda.visible:=True;
. ValorUni.Text:=FormatCurr('#0.00',ProTEMPP_VIS.AsCurrency);
. QTD.setfocus;

. keybd_event_on(QTD,Key);
end;

The Lazarus is not 100% compatible with Delphi, but running into problems like this, we can not give up, always have an exit.

Be free!
Use lazarus / freepascal.

2011-05-30T02:28:00.000-07:00

You like to enhance your applications with gradient effects? It is also possible in Lazarus, see the figure below:

This is the component LazGradient, available for download here.
Good programs
Daniel Figueiredo

Follow

2011-05-30T02:18:00.001-07:00

Hi.
We create a feed.
Follow us at http://feeds.feedburner.com/PascalPrograming .

My new blog

2011-05-26T08:27:00.001-07:00

Hi people.
This is my new blog.
It talks about pascal programing.