AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Farbe speichern und wiedergeben

Farbe speichern und wiedergeben

Ein Thema von Rippo · begonnen am 12. Mai 2015 · letzter Beitrag vom 13. Mai 2015
Antwort Antwort
Seite 3 von 3     123
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.706 Beiträge
 
Delphi 2007 Professional
 
#21

AW: Farbe speichern und wiedergeben

  Alt 13. Mai 2015, 10:36
Im aktuellen Beispiel: Was steht denn drin, wenn ich keine Standard-Farben nehme und die String-Variante verwende? Vermutlich auch wieder Zahlen.
In Delphi-Referenz durchsuchenGraphUtil gäbe es auch noch Delphi-Referenz durchsuchenColorToWebColorName/Delphi-Referenz durchsuchenWebColorNameToColor. Damit würdest du mehr Farben abdecken.
Uli Gerhardt
  Mit Zitat antworten Zitat
Rippo

Registriert seit: 10. Feb 2015
75 Beiträge
 
Delphi 10 Seattle Professional
 
#22

AW: Farbe speichern und wiedergeben

  Alt 13. Mai 2015, 10:50
Habs gelöst

ich hab übesehen das die procedure ganz unten war und hab die LoadColorSettings in OnShow gemacht
jetzt gehts
  Mit Zitat antworten Zitat
Rippo

Registriert seit: 10. Feb 2015
75 Beiträge
 
Delphi 10 Seattle Professional
 
#23

AW: Farbe speichern und wiedergeben

  Alt 13. Mai 2015, 13:35
Andere Frage zu TButtonColor

Wenn ich die farbe auswähle, wie schaffe ich es das sich diese Farbe auf die anderen Formulare überträgt und abgespeichert wird? und beim laden diese ausgwählte farbe erscheint?

Delphi-Quellcode:
procedure TfrmKonfig.ButtonColor1Click(Sender: TObject);
begin
  Color := ButtonColor1.SymbolColor;
end;
Delphi-Quellcode:
                   //Farbe Speichern
procedure TfrmKonfig.SaveColorSettings;
const
  IniName = 'C:\Color.ini';
var
  Ini: TIniFile;
  Color : Integer;
begin
 Ini := TIniFile.Create(IniName);
 try
   Ini.WriteInteger('Farben', 'Ident', Color);
 finally
   Ini.Free;
 end;
end;
                   // Farbe wiedergeben
procedure Tfrmkonfig.LoadColorSettings;
const
  IniName = 'C:\Color.ini';
var
  Ini: TIniFile;
  Color : Integer;
Begin
  Ini := TIniFile.Create(IniName);
  try
   Color := TColor(Ini.ReadInteger('Farben','Ident', Color));
   //frmKonfig.Color := TColor(Ini.ReadInteger('farben', 'Ident', Color));
  finally
   Ini.Free;
  end;
end;
Delphi-Quellcode:
procedure TfrmKonfig.btnSpeichernClick(Sender: TObject);
 begin
    Color := ButtonColor1.SymbolColor;
    SaveColorSettings;
 end;
Delphi-Quellcode:
procedure TfrmKonfig.FormShow(Sender: TObject);
begin
    LoadColorSettings;
end;
  Mit Zitat antworten Zitat
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.380 Beiträge
 
Delphi 10.4 Sydney
 
#24

AW: Farbe speichern und wiedergeben

  Alt 13. Mai 2015, 14:56
Zum Beispiel so. Für jede Form eine ander Section wählen. In FormCreate load und in FormDestroy Save ausführen.
Delphi-Quellcode:
  function LoadFormColorFromIniFile(const FileName, Section: string): TColor;
  procedure SaveFormColorToIniFile(const FileName, Section: string; const Color: TColor);
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 23:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf