ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
Dear Doug
The one that you want to do, is to change the source to be printed of a certain field of a table, when other field any has a certain value.
If it goes only this, it is easy. You should make the following:
1 - it tests the value of the field that will determine the type of the source used in the impression.
2 - of acôrdo with the found value, the source of the variable of the field to be printed, it will assume the following wanted value.
Use the following code in its program:
VarFonte -> Variable to be tested to determine the impression source.
VarPrint -> Variable to be printed.
if VarFonte=1 Then
VarPrint.Font.Style := [] {normal Impression}
else if VarFonte=1 Then
VarPrint.Font.Style:=[fsBo
else if VarFonte=2Then
VarPrint.Font.Style:=[fsUn
I believe that this solves its problem.
Regards
Gaona
PS. - Sorry if my english is bad.
The one that you want to do, is to change the source to be printed of a certain field of a table, when other field any has a certain value.
If it goes only this, it is easy. You should make the following:
1 - it tests the value of the field that will determine the type of the source used in the impression.
2 - of acôrdo with the found value, the source of the variable of the field to be printed, it will assume the following wanted value.
Use the following code in its program:
VarFonte -> Variable to be tested to determine the impression source.
VarPrint -> Variable to be printed.
if VarFonte=1 Then
VarPrint.Font.Style := [] {normal Impression}
else if VarFonte=1 Then
VarPrint.Font.Style:=[fsBo
else if VarFonte=2Then
VarPrint.Font.Style:=[fsUn
I believe that this solves its problem.
Regards
Gaona
PS. - Sorry if my english is bad.
You need to have a look at the BeforePrint event for the band that contains the control you wish to change and add something like this to it.
if table1.fieldbyname('A String Field').Value='Male' then
begin
qrlabelSex.Font.Style:=[fs
end
else
begin
qrlabelSex.Font.Style:=[fs
end;
if table1.fieldbyname('A String Field').Value='Male' then
begin
qrlabelSex.Font.Style:=[fs
end
else
begin
qrlabelSex.Font.Style:=[fs
end;
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
The uses clause is one of those things that just tends to grow and grow.
Most of the time this is in the main form, as it's from this form that all others are called.
If you have a big application (including many forms),
the uses clause in the in…
Introduction
I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need.
This article will address some of the concepts when dealing with a multithreaded delphi database…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash"
After Shake : http://www.videocopilot.net/presets/after_shake/
All lightning effects with instructions : http://www.mediaf…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month4 days, 15 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
636 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.