AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Nach gewisser länge Zelle färben

Ein Thema von SaFu · begonnen am 9. Jun 2008 · letzter Beitrag vom 9. Jun 2008
Antwort Antwort
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#1

Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:30
Hallo

Und zwar habe ich folgendes Problem ich lasse eine Zelle im StringGrid färben, je nach dem ob ein spezieller fester String in der Zelle steht.

Jetzt wollte ich aber prüfen ob in der zelle bis zur 3 stelle der String steht wenn ja soll sie gefärbt werden

Also gefärbt wird zurzeit bei aa/ und wenn jetzt aa/xy steht wird die zelle nicht gefärbt also soll geprüft werden ob aa/ in den ertsen 3 stellen steht wenn ja wird die zell gefärbt.

so mach ich es zur zeit
Delphi-Quellcode:
if LowerCase(GetUpperValue(ACol, ARow)) = 'aa/then
  begin
   UpperBrushColor := sAAColor; //Zellenfarbe oberer Teil
   UpperFontColor := sAAFontColor; //Schriftfarbe
   Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //Text fett
  end;

 if LowerCase(GetUpperValue(ACol, ARow)) = 'aathen
  begin
   SetupperValue(Acol,ARow,'aa/');
   UpperBrushColor := sAAColor; //Zellenfarbe oberer Teil
   UpperFontColor := sAAFontColor; //Schriftfarbe
   Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //Text fett
  end;

 if LowerCase(Cells[ACol, ARow]) = 'aathen
  begin
   Cells[ACol, ARow]:= 'aa/';
   Canvas.Brush.Color := sAAColor; //Zellenfarbe
   Canvas.Font.Color := sFAFontColor; //Schriftfarbe
   Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //Text fett
   StringGrid1.SplitCellHor(Acol, ARow);
  end;
Im bild sieht man es besser

Gruß Sascha
Miniaturansicht angehängter Grafiken
stringgrid_137.jpg  
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

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

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:31
Wie wäre es mit Delphi-Referenz durchsuchenPos?
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#3

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:34
damit habe ich es ja schon versucht aber tut nicht
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

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

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:38
Wie hast Du es denn versucht?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.859 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:38
Dann zeig mal den Code, der nicht funktioniert,
Wo prüfst du ?
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#6

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:49
moment noch versuche das wieder hinzubekommen
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

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

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:50
Lass Dir Zeit. Vielleicht siehst Du den Fehler ja, den Du gemacht hast
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:52
if Pos('aa/', LowerCase(Cells[ACol, ARow])) = 1 then... Müsste doch gehen, oder?
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
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#9

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 16:58
Ja funktioniert es so halb wie ich es haben will

Hab es vorher ungefähr so versucht bekomm es aber nicht mehr hin was totaler schwachsin war wenn ich das jetzt so mitbekomme
if Pos(LowerCase(cells[acol,ARow]='aa')
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

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

Re: Nach gewisser länge Zelle färben

  Alt 9. Jun 2008, 17:00
Naja, F1 auf Pos hätte Dir gesagt, was zurück gegeben wird.

http://static.manuel-rauber.de/pics/dp/f1help.gif
  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 08:01 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