Search results for query: *

Hi, Apparantly there are several issues with printing a bitmap (such as the size). The code below should solve most of them: var Info: PBitmapInfo; InfoSize: DWORD; Image: Pointer; ImageSize: DWORD; Bits: HBITMAP; DIBWidth, DIBHeight: LongInt; begin Printer.BeginDoc; try...

This is more or less what I use: http://www.swissdelphicenter.ch/en/showcode.php?id=1096

Thanks a lot for all the information! I tried your second suggestion and it is working now. Regards, Raoul

Thanks, If all of your procedures return the mouse position then: procedure Handle_WM_LButtonUp(var msg:TMessage); message WM_LBUTTONUP; // left button is the only one I need. But I can't figure out how to implement it. I have looked around for examples but still can't get it to work. a...

Hi, For some drag drop operations of data between a combobox and a listview I need the OnMouseOver and OnMouseUp events for the ComboBox. Does anyone know how to do this or where I can find a TComboBox with these events added? Thanks, Raoul

Yes, that solved it untill I rightclicked on another node while the popup was already opened. It seems the OnMouseMove event of the listview is not triggered with an open popup. The wrong node is selected in this case.

Still got a problem. This is the code when selecting 'delete' from the popup menu: procedure TTrnmntForm.Delete1Click(Sender: TObject); var tmp : string; begin TreeView.Select ( TreeView.Selected ); DeleteNode(PMyRec(TreeView.Selected.Data)^.NodeID)// database...

Thanks, working now!

Hi, I am trying to change popup window contents in a treeview depending on the node that is rightclicked. It seems that when you release the mouse button after right clicking, the previously selected node gets selected. You first have to left click on the node to keep the node selected. This...

Did you check the FAQs? http://www.tek-tips.com/faqs.cfm?spid=102&sfid=3600

Thanks Buho! for i := 1 to 45 do (FindComponent('P'+IntToStr(i)) as TEdit).Text := ... have to test this though! As for the lazy part, Yes you are right! :) But actually I got 4 of these procedures for different component sets on the form and personally I also don't like those long...

Hi, I have a form with a lot of TEdits. I would like to fill the text property of each of them through a for statement. I can't figure out how to refer to the specific TEdit dynamically. I know I can use an array of TEdit but isn't there another solution like: for i := 1 to 45 do ('P'+i as...

Sorry, my mistake. The exact message was 'Field x has no default value' which was caused by a typo.

It seems you cannot just go ahead with the sql query. It raises errors for fields with no value. So you still have to go through the source record and make sure only fields with a value are included in the insert query, correct? I also wonder if you can return the ID of the new record from the...

Nice LucieLastic! I didn't think of using sql for doing this which is rather stupid as my main experience with databases so far is MySQL / PHP. The table is not that big so it is not a problem to manually enter the field names. However it would be interesting to know how to extract the field...

Yes, I was hoping for a simple solution. But thanks a lot, your function looks very complete. It seems it uses another function 'InTextList'. Any chance of posting this function too? regards, Raoul

Hi, What would be the fastest way to duplicate all fields of a record in a table (ADO) and then edit 2 of the fields manually? Thanks, Raoul

Thanks!

I definetely will look at the client-server environment in the future. But at this stage I think I will head in the direction of ADO. Then the next stage is chosing a database. From this thread I get that it better not to use Paradox with ADO. I got it working but I don't know about the...

> I bet you are now throughly bewildered, Safra. :-) ;-) Thanks, next time I will think again before asking something... Especially that last sentence... > there is no one right answer, but there certainly are some wrong ones. But all of this is kinda crucial. I belief all of you have...