Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 |
Parent.setCaretColor(RGBtoColor(NotRGB(v))) |
Jabaco Source |
|
1 |
Parent.setCaretColor(Parent.getForeground()) |
Jabaco Source |
|
1 |
Parent.setCaretColor(RGB (Parent.getBackground.getBlue XOR 255, Parent.getBackground.getGreen XOR 255, Parent.getBackground.getRed XOR 255)) |
This post has been edited 2 times, last edit by "theuserbl" (Jan 28th 2011, 8:56pm)
Quoted
Public Property Let BackColor(v As Long)
Parent.setBackground(RGBtoColor(v))
Base.setBackground(Parent.getBackground())
Parent.setCaretColor(RGBtoColor(NotRGB(v)))
End Property
O.O You are right. Thanks for that info.Quoted
The line is in the BackColor Property. I have the same issue in my program but if I set the BackColor of the textfield while the program runs, the caret is perfekt afterwards.
Right.Quoted
I dunno if changing the lines as suggested will solve the problem as it uses the same information at the same point as the not working one.
Ok. Thanks. That clarify all.Quoted
The same is when i change the backcolor in the IDE.
Ok. Right.Quoted
During run the color remains white, i have to modify the color while the program runs.
I think there problem have more to do with handling of system colors.Quoted
Maybe the Init of the textbox has a problem, it looks the textbox is built but not komplet set correct.
Yes, it helps much to find the bug. Thanks.Quoted
I am not a big programmer just my 5c, maybe it helps.
Source code |
|
1 2 3 4 5 6 |
Public Sub Applet_Init() Dim wt As Long = RGB(255, 255, 255) Text1.BackColor = wt Text2.BackColor = wt Text3.BackColor = wt End Sub |
Did anyone come up with a fix to this yet?
Quoted
1. when I set a mouse listener for example tp a Jbgrid I can't get Me.mousepointer = vbHoureglass / vbDefault to work
--> does anyone know when setting a mouse listener to the JbGrid header, how to change the mousecursor?
Quoted
2. at runtime when I set a Textbox (or other control) to FontBold nothing happens!
Jabaco Source |
|
1 2 3 |
Public Sub Command1_Click() Text1.FontBold = True End Sub |
Quoted
I have tried it out and it works perfect.
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
' in a module Global prgRef As tPrgRef 'ProgRef Referenz Array...about 20 values! Type tPrgRef tmpBool1 As Boolean = False End Type ' in a frm Public Sub cmdChangeSettings_Click() cmdChangeSettings.FontBold = True Dim dlgChangeSettings1 As New dlgChangeSettings dlgChangeSettings1.Show(1) prgRef.tmpBool1 = False If prgRef.tmpBool1 = False Then cmdChangeSettings.FontBold = False cmdChangeSettings.FontBold = False 'grdMain_init End Sub |
Yes. Done.Did anyone come up with a fix to this yet?
Fixed.Quoted
2. at runtime when I set a Textbox (or other control) to FontBold nothing happens!
Currently still not looked at it.Quoted
1. when I set a mouse listener for example tp a Jbgrid I can't get Me.mousepointer = vbHoureglass / vbDefault to work
--> does anyone know when setting a mouse listener to the JbGrid header, how to change the mousecursor?
Jabaco Source |
|
1 2 3 4 5 |
' JBGrid Public Sub Form_Load() grdTest.TextMatrix(0, 0) = "Test" grdTest.DataMatrix(0, 0).FontBold = True End Sub |
Jabaco Source |
|
1 |
grdTest.DataMatrix(0, 0).CellForeColor = vbred |