AGB  ·  Datenschutz  ·  Impressum  







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

TColorscheme als String

Ein Thema von Privateer3000 · begonnen am 21. Nov 2007 · letzter Beitrag vom 26. Nov 2007
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#1

TColorscheme als String

  Alt 21. Nov 2007, 09:50
Hi Leuet,
in was muss ein Strin konvertiert werden
um als ColorScheme zu übergeben ?

Grüße
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Der_Unwissende

Registriert seit: 13. Dez 2003
Ort: Berlin
1.756 Beiträge
 
#2

Re: TColorscheme als String

  Alt 21. Nov 2007, 11:59
Hi,
eine kleine Bitte vorab, etwas mehr Zeit beim Schreiben nehmen und dafür bessere Rechtschreibung und mehr Information verwenden. Das spart zum Schluß eh Zeit, da das nachfragen wegfällt.
In was ein String konvertiert werden muss um als TColorScheme übergeben werden zu können? Na ja, in ein TColorScheme natürlich.
Da mir TColorScheme nichts sagt und auch meine Hilfe nichts dazu findet und ich einfach mal davon ausgehe, dass Deine eigentliche Frage sich auf das Wie bezieht, fehlt hier ganz klar eine Menge Informationen. Was genau möchtest Du denn machen? An wen möchtest Du einen String als TColorScheme übergeben und in welcher Unit (welcher Komponente) ist TColorScheme zu finden?

Gruß Der Unwissende
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#3

Re: TColorscheme als String

  Alt 21. Nov 2007, 12:23
Wenn die ColorSchemes der XiButtons gemeint sind. die sind so definiert:
Delphi-Quellcode:
  TColorScheme = (csNeoDesert, csNeoSky, csNeoGrass, csNeoSilver, csNeoRose, csNeoSun,
       csDesert, csGrass, csSky, csSun, csRose, csSilver, csCustom);
Da könnte man nur über die Ordnungszahl rankommen, mit String wird das nichts.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.188 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: TColorscheme als String

  Alt 21. Nov 2007, 12:28
Zitat von Progman:
Da könnte man nur über die Ordnungszahl rankommen, mit String wird das nichts.
Nicht ganz. Eine Möglichkeit muß die IDE ja auch haben um das in die DFM's zu schreiben. Über die RTTI-Infos kommt man da schon ran und irgendwo hab ich das auch mal auch gemacht. Aber wo war das wieder
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#5

Re: TColorscheme als String

  Alt 21. Nov 2007, 12:32
naja, einfach mal in den Units (XIButtons.pas) mal nachgrasen, wie der gesetzt wird, das kann schon hilfreich sein
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: TColorscheme als String

  Alt 21. Nov 2007, 14:16
Hallo,
ja es handelt sich um XIButtons.
Wie meinst du das mit Ordungszahlen?
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#7

Re: TColorscheme als String

  Alt 21. Nov 2007, 14:24
Die einzelnen Schemes haben doch eine Position in der Deklaration.
Ord(csNeoDesert) ergibt z.B. 0 (null), das nächste wäre 1 usw.
Nun müsste man über ColorSchemes[0] ja csNeoDesert zuweisen können oder so in der Art.
Das hieße, den String in die entsprechende Ordnungszahl umsetzen.
Wäre jedenfalls meine Idee dazu.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#8

Re: TColorscheme als String

  Alt 21. Nov 2007, 14:31
Delphi-Quellcode:
const
  ColorSchemeStrings: Array[0..12] of String = ('csNeoDesert', 'csNeoSky',
       'csNeoGrass', 'csNeoSilver', 'csNeoRose', 'csNeoSun',
       'csDesert', 'csGrass', 'csSky', 'csSun', 'csRose', 'csSilver',
       'csCustom');
Nun brauchst du nur nachzusehen, an welcher Position dein String steht und du hast die "Nummer" des ColorSchemes
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: TColorscheme als String

  Alt 21. Nov 2007, 14:38
Vielen Dank, werd ich probieren
Peter
+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#10

Re: TColorscheme als String

  Alt 21. Nov 2007, 14:58
Ich hatte etwas Zeit, hier ne Beispiel-Unit:
Delphi-Quellcode:
unit testUnit4;

interface

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

type
  TForm1 = class(TForm)
    XiButton1: TXiButton;
    Edit1: TEdit;
    procedure XiButton1Click(Sender: TObject);
  private
    function GetColorScheme(s: String): TColorScheme;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

const
  ColorSchemeStrings: Array[0..12] of String = ('csNeoDesert', 'csNeoSky',
       'csNeoGrass', 'csNeoSilver', 'csNeoRose', 'csNeoSun',
       'csDesert', 'csGrass', 'csSky', 'csSun', 'csRose', 'csSilver',
       'csCustom');
implementation

{$R *.dfm}

function TForm1.GetColorScheme(s: String): TColorScheme;
var i, x: Integer;
begin
  x:=-1;
  for i:=0 to 12 do
    if s = ColorSchemeStrings[i] then x:=i;
  if x > -1 then
    case x of
      0: Result:=csNeoDesert;
      1: Result:=csNeoSky;
      2: Result:=csNeoGrass;
      3: Result:=csNeoSilver;
      4: Result:=csNeoRose;
      5: Result:=csNeoSun;
      6: Result:=csDesert;
      7: Result:=csGrass;
      8: Result:=csSky;
      9: Result:=csSun;
      10: Result:=csRose;
      11: Result:=csSilver;
      12: Result:=csCustom;
    end;
end;

procedure TForm1.XiButton1Click(Sender: TObject);
begin
  XiButton1.ColorScheme:=GetColorScheme(Edit1.Text);
end;

end.
Es funktioniert
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 00:46 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