Search Results

Search found 5 results on 1 pages for 'tframe'.

Page 1/1 | 1 

  • Passing parameters to a delphi TFrame

    - by ajob
    To avoid singletons and global variables I'd like to be able to pass parameters to a TFrame component. However since a TFrame normally is included on form at design time it is only possible to use the default constructor. The parent form can of course set some properties in the OnCreate callback after the TFrame has been created. However this does not ensure that a property is not forgotten, and the dependencies are not as clear as using a constructor. A nice way would be if it was possible to register a factory for creating components while the dfm file is being read. Then the required parameters could be passed to the TFrame constructor when created by the factory. Is there a way of accomplishing this? Or does anyone have a better solution on how to pass parameters to a TFrame?

    Read the article

  • Wrapping a Delphi TFrame descendant as an ActiveX control

    - by Mmarquee
    I am trying to wrap up a TFrame descendant as an ActiveX control, but don't seem to be able to get the control to show up in the ActiveX Control wizard. Is this approach possible, and if so, are there any working examples that I can be pointed at. I have tried to follow the instructions here, but as I said the control show in the list of available controls. Thanks in advance.

    Read the article

  • Java BoxLayout alignment issue

    - by ManInMoon
    Can anyone help me. Why is the Label "Current" NOT left aligned in Panel/Frame? public static void main(String[] args) { JFrame TFrame = new JFrame("Test DisplayLayout"); TFrame.setResizable(true); TFrame.setSize(new Dimension(900, 840)); TFrame.setLocationRelativeTo(null); TFrame.setTitle("DisplayLayout"); TFrame.setVisible(true); JPanel P = DisplayLayout2(); P.setVisible(true); P.setOpaque(true); P.setLayout(new BoxLayout(P, BoxLayout.Y_AXIS)); TFrame.add(P); TFrame.revalidate(); TFrame.repaint(); } public static JPanel DisplayLayout2() { JPanel Panel=new JPanel(); Panel.setVisible(true); Panel.setOpaque(true); Panel.setLayout(new BoxLayout(Panel, BoxLayout.Y_AXIS)); Panel.setAlignmentX(Component.LEFT_ALIGNMENT); JLabel lab = new JLabel("Current"); lab.setHorizontalAlignment(SwingConstants.LEFT); lab.setForeground(Color.WHITE); lab.setBackground(Color.PINK); lab.setOpaque(true); Panel.add(lab,Component.LEFT_ALIGNMENT); JPanel posPanel = new JPanel(); JScrollPane scrollPane = new JScrollPane(posPanel,JScrollPane.VERTICAL_SCROLLBAR_ALWAYS,JScrollPane.HORIZONTAL_SCROLLBAR_NEVER); scrollPane.setPreferredSize(new Dimension(290, 200)); scrollPane.setOpaque(true); posPanel.setBackground(Color.YELLOW); posPanel.setPreferredSize(new Dimension(290, 200)); posPanel.setLayout(new BoxLayout(posPanel, BoxLayout.Y_AXIS)); posPanel.setAlignmentX(Component.LEFT_ALIGNMENT); Panel.add(scrollPane); return Panel; }

    Read the article

  • Delphi> Please explain this: type... procedure of object

    - by Richard Woolf
    I've encountered some code that's new to me... I've never really seen a type declaration of a procedure of object, and I just don't see the point. Why couldn't the developer simply keep a field of type Boolean? interface type TFinishedCaptureEvent = procedure(AFinished: Boolean) of object; TFrameCard = class(TFrame) ... private FOnFinishedCapture: TFinishedCaptureEvent; public property OnFinishedCapture: TFinishedCaptureEvent read FOnFinishedCapture write FOnFinishedCapture; end; implementation ... if Assigned(FOnFinishedCapture) then FOnFinishedCapture(False);

    Read the article

  • Delphi Unit local variables - how to make each instance unique?

    - by Justin
    Ok, this, I'm sure is something simple that is easy to do. The problem : I've inherited scary spaghetti code and am slowly trying to better it when new features need adding - generally when a refactor makes adding the new feature neater. I've got a bunch of code I'm packing into a single unit which, in different places in the application, controls the same physical thing in the outside world. The control appears in several places in the application and operates slightly differently in each instance. What I've done is to create a unit with all of the features I need which I can simply drop, as a frame, into each form that requires it. Each form then uses the unit's interface methods to customise the behaviour for each instance. The problem within the problem : In the unit in question (the frame) I have a variable declared in the IMPLEMENTATION section - local to the unit. I also have a procedure, declared in the TYPE section which takes an argument and assigns that argument to the local variable in question - each form passes a unique variable to each instance of the frame/unit. What I want it to do is for each instance of the frame to keep its own version of that variable, different from the others, and use that to define how it operates. What seems to be happening, however, is that all instances are using the same value, even if I explicitly pass each instance a different variable. ie: Unit FlexibleUnit; interface uses //the uses stuff type TFlexibleUnit=class(TFrame) //declarations including procedure makeThisInstanceX(passMeTheVar:integer); private // public // end; implementation uses //the uses var myLocalVar; procedure makeThisInstanceX(passMeTheVar:integer); begin myLocalVar:=passMeTheVar; end; //other procedures using myLocalVar //etc to the end; Now somewhere in another Form I've dropped this Frame onto the Design pane, sometimes two of these frames on one Form, and have it declared in the proper places, etc. Each is unique in that : ThisFlexibleUnit : TFlexibleUnit; ThatFlexibleUnit : TFlexibleUnit; and when I do a: ThisFlexibleUnit.makeThisInstanceX(var1); //want to behave in way "var1" ThatFlexibleUnit.makeThisInstanceX(var2); //want to behave in way "var2" it seems that they both share the same variable "myLocalVar". Am I doing this wrong, in principle? If this is the correct method then it's a matter of debugging what I have (which is too huge to post) but if this is not correct in principle then is there a way to do what I am suggesting? Thanks in advance, Stack Overflow - you guys (and gals!) are legendary.

    Read the article

1