If (Windows.GetParent(data_child_form.Handle)=pad_form.Handle) Which would work fine in Delphi but not in Lazarus, and nor does: If (data_child_form.Visible=True) and (data_child_form.Parent=pad_form) It might be better to duplicate the form and use a different one in each place where it is needed.) (I can't remember why I did that, and it's causing problems in Lazarus. On a small screen showing it when the user didn't request it could be annoying. Which means it may have been set Visible there, and simply testing Visible doesn't prove that it is showing on the trackpad. Unfortunately it is a bit more complicated, because the same form is used as a child elsewhere, like this: Let me know if you would prefer for me to post the complete file. + keep_form.read_info_buttonClick(data_child_form) + if Assigned(data_child_form) and (data_child_form.Visible=True) then With keepform_listbox do ItemHeight:=Round(Canvas.TextHeight(' ')*8/7) // owner-draw listbox, 8/7 arbitrary. If hi_color=True then ref_panel.Color:=keepform_listbox.Color //alert_colour // ice-blue or white. Not earth-shattering really, but just so we have a complete record.Īnother change that was 95% investigation / 5% coding. I will look at adding printer settings to saved preferences, as you asked me to a couple of days ago,ĭo we need another topic specifically for contributions to be posted? (or have I missed something?)Īnyway, this was the first change I made. I would prefer to put my efforts elsewhere. Sorry, but I could find any enthusiasm for doing this - it feels like a move in the wrong direction.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |