You are not logged in.

Gerhard

Beginner

  • "Gerhard" started this thread

Posts: 14

Date of registration: Apr 16th 2010

  • Send private message

1

Thursday, May 13th 2010, 1:50pm

Is something wrong with the ColorDialog ?

Hello !



It seems that something is wrong with the ColorDialog.
Please take a look at the image. If the button right to the red field is clicked, than the defaultcolor for the ColorDialog should be red. But it is blue - as you can see. If the button right to the blue field is clicked, than it is red - but it should be blue. You can see the source at the left of the image.
Do you know something about this "mystery" ?


Or is: nCol = txtC1.BackColor

different to: nCol = RGB(255, 0, 0) ??


Best Regards
Gerhard

This post has been edited 1 times, last edit by "Gerhard" (May 13th 2010, 2:01pm)

OlimilO

Intermediate

  • "OlimilO" is male

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

  • Send private message

2

Thursday, May 13th 2010, 3:08pm

Yes, it's a well known issue of the old Jabaco Framework.
Do you want to receive a newer version of the framework from me by email?
My version is from 29.oct.2009 and i have already fixed this.

regards
OlimilO

Gerhard

Beginner

  • "Gerhard" started this thread

Posts: 14

Date of registration: Apr 16th 2010

  • Send private message

3

Thursday, May 13th 2010, 3:47pm

Oh great ! Sure I want to have it. :rolleyes:

Please send it at them mailadress office@kmudata.com
Thanks a lot.
Can you tell me the maindifferences between the old framework and yours ?


Gerhard

A1880

Intermediate

  • "A1880" is male

Posts: 500

Date of registration: Jan 1st 2009

Location: Hanover, Germany

Occupation: Software Engineer

Hobbies: Hilbert Curves

  • Send private message

4

Saturday, May 15th 2010, 5:30pm

I've just tested the color dialog with the following code:

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Public Sub Command1_Click()
   Dim dlg As New CommonDialog
   Dim c As Long
   Dim r, g, b As Integer 
   
   dlg.ShowColor 
   
   c = dlg.Color 
   
   r = c And 255
   g = (c \ 256) And 255
   b = (c \ 256) \ 256
   
   Debug.print "RGB(" & r & "," & g & "," & b & ")"
   
End Sub


My framework version is Jabaco200910070500.jar
The behaviour looks OK to me.

Greetings

A1880

Similar threads

Rate this thread
WoltLab Burning Board