Das Notes Forum

Sonstiges => Offtopic => Thema gestartet von: MrMagoo am 12.09.03 - 12:24:30

Titel: Farbwerte gesucht
Beitrag von: MrMagoo am 12.09.03 - 12:24:30

Hallo zusammen,

also um es ganz einfach zu beschreiben.
Z.B. FFFFFF ergibt ja weiß
Was ich jetzt bräuchte wäre eine Übersicht über möglichst viele Farbwerte? Weiß jemand wo ich das bekomme??

Titel: Re:Farbwerte gesucht
Beitrag von: TMC am 12.09.03 - 12:32:57

gib mal in Google

Zitat

farbwerte html

ein  ;)

TMC

Titel: Re:Farbwerte gesucht
Beitrag von: MrMagoo am 12.09.03 - 13:11:30

Wäre denn sowas

http://www.foggynotion.de/internet/winfarbe.php3?farbe=A

Danke

Titel: Re:Farbwerte gesucht
Beitrag von: eknori am 12.09.03 - 13:41:38

... nimm doch Notes und ein bisschen Script ( Na gut, API )

Type ChooseColor
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   rgbResult As Long
   lpCustColors As String
   flags As Long
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type

Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long


Sub Click(Source As Button)
   Dim cc As ChooseColor
   Dim lngCustColor(16) As Long
   
   cc.lStructSize = Len(cc)
   cc.hwndOwner = 0
   cc.hInstance = 0
   cc.flags = 0
   cc.lpCustColors = String$(16 * 4, 0)
   lngReturn = ChooseColor(cc)
   
   ShowColor = Str$(cc.rgbResult)
   HexColors = Hex$(ShowColor)
   
   ccolorlength = Len (HexColors)
   
   If ccolorlength < 6 Then
      
      hexcolors = Ustring$((6-ccolorlength), "0")  & hexcolors
      
   End If
   
   newcolor= Right$(hexcolors, 2) & Mid$(hexcolors, 3, 2) & Left$(hexcolors , 2)
   
   Msgbox newcolor
   
End Sub

Farbe auswählöen und OK klicken, dann wir dir der Farbwert angezeigt  8) ;D

Titel: Re:Farbwerte gesucht
Beitrag von: TMC am 12.09.03 - 18:18:31

cool, war klar dass es mit Notes (API) auch wer kann  ;D

Also sorry für meine Unverschämtheit, auf google zu verweisen, nach dem Motto "Appetit kann man sich ja draußen holen, aber gegessen wird zu Hause !!!"
 ;D

TMC

Titel: Re:Farbwerte gesucht
Beitrag von: Axel Janssen temp am 12.09.03 - 18:48:47

Ich mag Eyedropper (suche in www.tucows.de)

Mit diesem Freewaretool kann man über den Bildschirm hoovern und man bekommt die Farbwerte in hex und dec angezeigt.  

Es gibt bestimmt smartere Tools, aber seit Jahren gehört es zu den ersten 5 Zusatzprogrammen, das ich auf einem neuen Computer installiere.

Gruß Axel

Titel: Re:Farbwerte gesucht
Beitrag von: Rob Green am 13.09.03 - 10:53:42

ein klitzkleiner Änderungsvorschlag eines Noteslers:

"flag$= Inputbox("Copy and Paste your color code to where it is needed!", "", newcolor )

instead of

msgbox newcolor"

(siehe http://www.basicthinking.de/blog/archive/000262.htm wo ich Deinen coolen Colorpicker gepostet habe für andere, die kein Deutsch können  ;))

Titel: Re:Farbwerte gesucht
Beitrag von: MrMagoo am 15.09.03 - 10:23:32

Danke, funktioniert 1a  8)
habe auch noch ne kleinigkeit geändert bzw angehängt.

   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.CurrentDocument
   If uidoc.EditMode = False Then
      uidoc.EditMode = True
   End If
   
   Call uidoc.FieldAppendText    ("Feld", newcolor & Chr(10))
   Call uidoc.Save

und dabei ist denn auch noch ne Frage aufgekommen,
ist es auch möglich den Namen der Farbe auszulesen???