AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

[Delphi]Farben

Ein Thema von netmario · begonnen am 8. Okt 2009 · letzter Beitrag vom 8. Okt 2009
Antwort Antwort
Seite 1 von 4  1 23     Letzte »    
netmario

Registriert seit: 7. Okt 2009
73 Beiträge
 
Delphi 7 Personal
 
#1

[Delphi]Farben

  Alt 8. Okt 2009, 17:44
Hallo, wollte ein Farbcode Programm machen und habe drei Scrollbars, die jeweils von 0-255 gehen, also ein Byte. Ich habe jetzt den Wert den Scrollbars zugeordnet, der Rote Anteil funktioniert perfekt. Der Grüne und der Blaue, bei diesen beiden weiß ich nicht welche Werte ich zuordnen muss, könnt ihr mir helfen, vielen Dank.
Mario
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

Re: [Delphi]Farben

  Alt 8. Okt 2009, 17:48
Es gibt eine Funktion namens RGB, damit sollte es am Einfachsten gehen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
netmario

Registriert seit: 7. Okt 2009
73 Beiträge
 
Delphi 7 Personal
 
#3

Re: [Delphi]Farben

  Alt 8. Okt 2009, 17:52
Sry, ich programmier noch nicht lange mit Delphi, wie kann man denn diese Funktion anwenden?
Mario
  Mit Zitat antworten Zitat
8. Okt 2009, 17:55
Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#5

Re: [Delphi]Farben

  Alt 8. Okt 2009, 17:55
Delphi-Quellcode:
var
  Farbe: TColor;
begin
  Farbe := RGB(ScrollbarRot.position, ScrollbarGruen.Position, ScrollbarBlau.Position);

// Im Shape anzeigen
  Shape.Color := Farbe;
end;
  Mit Zitat antworten Zitat
netmario

Registriert seit: 7. Okt 2009
73 Beiträge
 
Delphi 7 Personal
 
#6

Re: [Delphi]Farben

  Alt 8. Okt 2009, 18:03
Ich versteh das nicht so ganz, dass ist was ich bisher gemacht habe.
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    FRot: TPanel;
    SRot: TScrollBar;
    ZRot: TLabel;
    FGruen: TPanel;
    ZGruen: TLabel;
    SGruen: TScrollBar;
    FBlau: TPanel;
    ZBlau: TLabel;
    SBlau: TScrollBar;
    FarbenPanel: TPanel;
    procedure SRotChange(Sender: TObject);
    procedure SGruenChange(Sender: TObject);
    procedure SBlauChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Farben,rot,gruen,blau:Integer;
    Farbe:TColor;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SRotChange(Sender: TObject);
begin
  rot:=SRot.Position;
  Zrot.Caption:=IntToStr(rot);
  FRot.Color:=rot;
end;

procedure TForm1.SGruenChange(Sender: TObject);
begin
  Gruen:=SGruen.Position;
  ZGruen.Caption:=IntToStr(Gruen);
  FGruen.Color:=Gruen;
end;

procedure TForm1.SBlauChange(Sender: TObject);
begin
  Blau:=SBlau.Position;
  ZBlau.Caption:=IntToStr(Blau);
  FBlau.Color:=Blau;
end;

end.
Mario
  Mit Zitat antworten Zitat
changlee
(Gast)

n/a Beiträge
 
#7

Re: [Delphi]Farben

  Alt 8. Okt 2009, 18:08
Hi,

du weist der Farbe des Panels den integer Wert von der Scrollbar-Position zu. Das geht nicht. Und selbst wenn doch, dann würdest du ja nur eine der drei Grundfarben berücksichtigen.
Du solltest nicht diesen integer Wert zuweisen, sondern die Farbe, die du mittels RGB() erhälst.

Gruß,
Stefan.
  Mit Zitat antworten Zitat
netmario

Registriert seit: 7. Okt 2009
73 Beiträge
 
Delphi 7 Personal
 
#8

Re: [Delphi]Farben

  Alt 8. Okt 2009, 18:11
So funktioniert es aber auch, ich weiß nur nicht die Werte für Gruen und Blau, mit Rot geht es. Wie müsste es denn genau mit RGB aussehen?
Mario
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#9

Re: [Delphi]Farben

  Alt 8. Okt 2009, 18:12
Delphi-Quellcode:
procedure TForm1.SRotChange(Sender: TObject);
begin
  rot:=SRot.Position;
  Zrot.Caption:=IntToStr(rot);
  FRot.Color:=rot;
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
end;

procedure TForm1.SGruenChange(Sender: TObject);
begin
  Gruen:=SGruen.Position;
  ZGruen.Caption:=IntToStr(Gruen);
  FGruen.Color:=Gruen;
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
end;

procedure TForm1.SBlauChange(Sender: TObject);
begin
  Blau:=SBlau.Position;
  ZBlau.Caption:=IntToStr(Blau);
  FBlau.Color:=Blau;
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
end;
So ungefähr
  Mit Zitat antworten Zitat
Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#10

Re: [Delphi]Farben

  Alt 8. Okt 2009, 18:13
Wie der Name RGB schon sagt:
Maximum R=255
Maximum G=255
Maximum B=255

Gruß

Wolgang
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 4  1 23     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz