>procedure TAutoLoopBldrForm.NewLoopButtonMouseUp(Sender: TObject;
> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>
> begin
>
> PSQLQuery1.Close;{close the query}
> //assign new SQL expression
> PSQLQuery1.SQL.Clear;
> PSQLQuery1.SQL.Add ('Select Monitor_Item_ID');
> PSQLQuery1.SQL.Add ('FROM P_ID.Loops');
> PSQLQuery1.SQL.Add ('WHERE Loop_name = :Loop_Name');
> PSQLQuery1.Open ;
> DeviceNotebookMouseUpAlias(Sender, Button, Shift, X, Y);
>end;
Is this actual code? If not then I'm not seeing the real picture and you can
pretty much ignore the following. But if so then you have quite a few pieces
to fill in.
Firstly your parameter loop_name needs a value
(PSQLQuery1.ParamByName('loop_name').AsString := ...). But much more
importantly, you aren't translating between database fields and an image -
the Sender, Button, Shift, X, Y parameters are just the parameters that were
passed into your function.
If you're storing an image in a database, I presume you will need to stream
it into a blob (look up TBlobField) in order to save it to the database, and
then extract it back into a TImage before you can pass it to be used. You
need to create a TImage (ie. LImage := TImage.Create) before you have it to
pass to DeviceNotebookMouseUpAlias (as the Sender parameter).
Hope that helps a little but I'm not sure because I haven't entirely
fathomed where you're heading yet.
Cheers,
Carl
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of Bob Pawley
Sent: Monday, March 26, 2007 9:51 AM
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] New User Of Delphi
I think I need more specific help as I am new to Pascal - although I have
some experiance in HTML and SQL.
Let me explain what I have -
The following is the existing sender and receiver (handler?) -
-------
Sender
procedure TLoopBuilderForm.DeviceNotebookMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
{request a device build}
DeviceNotebookMouseUpAlias(Sender, Button, Shift, X, Y);
end;
---------
Handler
procedure DeviceNotebookMouseUpAlias(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
indx : integer;
RegisteredClass : TdsDeviceClass;
PermissionGranted : Boolean ;
begin
if Sender is TImage then
begin
{check if this is a device request}
try
PermissionGranted := FALSE;
indx := StreamClassRegistry.indexOf(TImage(Sender).name);
RegisteredClass := StreamClassRegistry.OBJECTS[indx] AS
TdsDeviceClass;
CurrDeviceReq := RegisteredClass.TheClass; {create the
registered object}
{first check if any device spawning is required....}
DigDeviceContactSelectionForm.RequestContactSelectionUpdate
(TBaseDevice(CurrDeviceReq), PermissionGranted);
{end test.}
if PermissionGranted then
begin
----------
>From here the code goes on to develop the rest of the sequence, dependent
upon the flavour of the image just received.
Following is the code that I have developed to take the database to the
handler. This compiles but nothing happens when I click on NewLoopButton.
One of the things that I don't understand is - Does the reciever (handler)
rely on the name of the image as sent from the database to determine if it
is a TImage or does it rely on the TImage component to determine if the
Sender is a TImage?
---------
procedure TAutoLoopBldrForm.NewLoopButtonMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PSQLQuery1.Close;{close the query}
//assign new SQL expression
PSQLQuery1.SQL.Clear;
PSQLQuery1.SQL.Add ('Select Monitor_Item_ID');
PSQLQuery1.SQL.Add ('FROM P_ID.Loops');
PSQLQuery1.SQL.Add ('WHERE Loop_name = :Loop_Name');
PSQLQuery1.Open ;
DeviceNotebookMouseUpAlias(Sender, Button, Shift, X, Y);
end;
------------
Bob
----- Original Message -----
From: "Dennis Chuah" <[EMAIL PROTECTED]>
To: "NZ Borland Developers Group - Delphi List" <delphi@ns3.123.net.nz>
Sent: Sunday, March 25, 2007 1:29 PM
Subject: Re: [DUG] New User Of Delphi
>
> Bob,
>
> Hi. It would depend on your skill level, eg. whether you are new to
> Delphi, or new to Programming altogether. So to start with, this is going
> to be pretty general, and you can ask questions about the specifics. Bear
> also in mind, there are many ways to do the same thing.
>
> 1. Read the list of TImage names into a TStringList.
> 2. Handle the OnClick event of the TImage - you can probably use the same
> handler for all the TImage components.
> 3. In the handler, check TComponent (Sender).Name against the
> TStringList. You probably need to have a form level counter that is
> initialised to 0 - to represent the first item on the TStringList.
> 4. Increment this counter as the user clicks on the TImage in the correct
> sequence. An out of sequence click could set the counter back to 0.
>
> Example code:
>
> // Form variables
> FImageNames: TStringList;
> FClickIndex: Integer; // Counter
>
> // In the OnClick
> if TComponent (Sender).Name = FImageNames[FClickIndex] then
> Inc (FClickIndex)
> else
> FClickINdex := 0;
>
> Remember to create the TStringList in the FormCreate and free it in the
> FormDestroy.
>
> HTH.
>
> Regards,
> Dennis.
>
> ----- Original Message -----
> From: "Bob Pawley" <[EMAIL PROTECTED]>
> To: <delphi@ns3.123.net.nz>
> Sent: Monday, March 26, 2007 6:27 AM
> Subject: [DUG] New User Of Delphi
>
>
> Hi
>
> I've just joined your list and am seeking help.
>
> I have an existing application that performs a particular sequence of
> events when the user clicks a series of TImages.
>
> I also have a newly developed PostgreSQL database that generates a column
> that lists the names of the required TImages.
>
> I want to trigger the image sequence in Delphi from the list developed in
> PostgreSql.
>
> What do you need to know from me to provide help??
>
> Bob Pawley
>
>
>
----------------------------------------------------------------------------
----
>
>
>> _______________________________________________
>> Delphi mailing list
>> Delphi@ns3.123.net.nz
>> http://ns3.123.co.nz/mailman/listinfo/delphi
>>
>
> _______________________________________________
> Delphi mailing list
> Delphi@ns3.123.net.nz
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
_______________________________________________
Delphi mailing list
Delphi@ns3.123.net.nz
http://ns3.123.co.nz/mailman/listinfo/delphi
_______________________________________________
Delphi mailing list
Delphi@ns3.123.net.nz
http://ns3.123.co.nz/mailman/listinfo/delphi
