Recent content by safra

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...