AGB  ·  Datenschutz  ·  Impressum  







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

Panel mit Label dynamisch erzeugen

Ein Thema von hans ditter · begonnen am 28. Jul 2010 · letzter Beitrag vom 17. Sep 2010
Antwort Antwort
hans ditter

Registriert seit: 25. Jun 2010
Ort: Niedersachsen
263 Beiträge
 
Turbo Delphi für Win32
 
#1

AW: Panel mit Label dynamisch erzeugen

  Alt 31. Jul 2010, 15:02
Hier mal der gesamte Code von meiner Komponente, aber irgendwie funktioniert die nicht so, wie ich will.
1.) Bei der Funktion
Code:
Str(ini.ReadFloat [I]etc.[/I]
sagt Delphi, dass der linken Seite nix zuzuordnen ist...
2.)Dann sagt Delphi auch noch in mehreren Fällen, dass auf die Funktion "Brush" hier nicht zugegriffen werden kann. Ich wollte aber das Panel rot bzw. grün färben lassen, wie mach ich das dann, wenn nicht so?

Hoffe irgendwer kann mir nochmal helfen... LG, hans ditter

Delphi-Quellcode:
unit Panel1;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Graphics, IniFiles;

type
  TLabeledPanel = class(TPanel)
  private
    FLabelDatum: TLabel;
    FLabelKurzbeschreibung: TLabel;
    FLabelKategorie: TLabel;
    FLabelBetrag: TLabel;
    FLabelESign: TLabel;
    FImage: TImage;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Fuellen(ID: string);
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TLabeledPanel]);
end;

constructor TLabeledPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  //alle Labels erstellen und Eigenschaften der Labels einstellen

  FLabelDatum:=TLabel.Create(Self);
    FLabelDatum.Parent:=Self;
    FLabelDatum.Width:=56;
    FLabelDatum.Left:=128;
    FLabelDatum.Top:=5;
    FLabelDatum.Caption:='';
  FLabelKurzbeschreibung:=TLabel.Create(Self);
    FLabelKurzbeschreibung.Parent:=Self;
    FLabelKurzbeschreibung.Width:=180;
    FLabelKurzbeschreibung.Top:=24;
    FLabelKurzbeschreibung.Left:=4;
    FLabelKurzbeschreibung.Caption:='';
  FLabelKategorie:=TLabel.Create(Self);
    FLabelKategorie.Parent:=Self;
    FLabelKategorie.Width:=180;
    FLabelKategorie.Top:=43;
    FLabelKategorie.Left:=4;
    FLabelKategorie.Caption:='';
  FLabelBetrag:=TLabel.Create(Self);
    FLabelBetrag.Parent:=Self;
    FLabelBetrag.Width:=60;
    FLabelBetrag.Top:=62;
    FLabelBetrag.Left:=124;
    FLabelBetrag.Caption:='';
  FLabelESign:=TLabel.Create(Self);
    FLabelESign.Parent:=Self;
    FLabelESign.Top:=62;
    FLabelESign.Left:=186;
  FImage:=TImage.Create(Self);
    FImage.Parent:=Self;
    FImage.Left:=5;
    FImage.Top:=62;
end;

destructor TLabeledPanel.Destroy;
begin

  //alle Labels wieder freigeben

  FLabelDatum.Free;
  FLabelKurzbeschreibung.Free;
  FLabelKategorie.Free;
  FLabelBetrag.Free;
  FImage.Free;
  inherited Destroy;
end;

procedure TLabeledPanel.Fuellen(ID: String);
var ini: TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'kontoinfo.ini');
  (*Die Labels befüllen; Werte werden aus der Ini 'kontoinfo.ini' mittels dem übergebenen
    Wert in 'ID'*)

  try
    FLabelDatum.Caption:=DateToStr(ini.ReadDate('ID',ID,0));
    FLabelKurzbeschreibung.Caption:=ini.ReadString('Kurzbeschreibung',ID,'0');
    FLabelKategorie.Caption:=ini.ReadString('Kategorie',ID,'0');
    Str(ini.ReadFloat('Betrag',ID,0):9:2,FLabelBetrag.Caption);
      if ini.ReadInteger('Art',ID,-1) = 0 then
        TLabeledPanel.Brush.Color:=cllime
      else
        TLabeledPanel.Brush.Color:=clred
  finally
    ini.Free;
  end;
end;

end.
RudiRüsselSeineSocketKomponente - SirRufo (--> Chat mit PM)

Delphi Programming is the best one!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

AW: Panel mit Label dynamisch erzeugen

  Alt 1. Aug 2010, 09:36
Versuch es mal so (ungetestet):
Delphi-Quellcode:
procedure TLabeledPanel.Fuellen(ID: String);
var ini: TIniFile;
    s: string;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'kontoinfo.ini');
  (*Die Labels befüllen; Werte werden aus der Ini 'kontoinfo.ini' mittels dem übergebenen
    Wert in 'ID'*)

  try
    FLabelDatum.Caption:=DateToStr(ini.ReadDate('ID',ID,0));
    FLabelKurzbeschreibung.Caption:=ini.ReadString('Kurzbeschreibung',ID,'0');
    FLabelKategorie.Caption:=ini.ReadString('Kategorie',ID,'0');
    Str(ini.ReadFloat('Betrag',ID,0):9:2,s); //Das letzte ist ein Var-Parameter
    FLabelBetrag.Caption := s;
    if ini.ReadInteger('Art',ID,-1) = 0 then
      Canvas.Brush.Color:=cllime //Setzen der Farbe der Zeichenfläche
    else
      Canvas.Brush.Color:=clred;
    Invalidate; //neu zeichnen lassen
  finally
    ini.Free;
  end;
end;
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
hans ditter

Registriert seit: 25. Jun 2010
Ort: Niedersachsen
263 Beiträge
 
Turbo Delphi für Win32
 
#3

AW: Panel mit Label dynamisch erzeugen

  Alt 1. Aug 2010, 22:19
hallo DeddyH...
danke für deinen Vorschlag, ich hab ihn gleich mal probiert, was du vorgeschlagen hast. Aber weder in der Unit meiner Komponente noch während der Laufzeit funktioniert das. Ich hatte auch nochmal versucht, wenn die Komponente createt wird, sie einzufärben, hat aber leider auch nicht geklappt.

Hat noch jmd eine Idee?
RudiRüsselSeineSocketKomponente - SirRufo (--> Chat mit PM)

Delphi Programming is the best one!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

AW: Panel mit Label dynamisch erzeugen

  Alt 2. Aug 2010, 08:20
Na dann einfach mal Color setzen (ohne Brush oder Canvas).
Delphi-Quellcode:
if ini.ReadInteger('Art',ID,-1) = 0 then
  Color:=cllime //Setzen der Farbe
else
  Color:=clred;
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
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#5

AW: Panel mit Label dynamisch erzeugen

  Alt 2. Aug 2010, 08:44
Hallo,

beim Panel sollte man den Wert der Eigenschaft Delphi-Referenz durchsuchenParentBackground noch auf False abändern.

Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

AW: Panel mit Label dynamisch erzeugen

  Alt 2. Aug 2010, 09:01
Richtig, da war sowas, ich kam nur nicht mehr drauf
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
hans ditter

Registriert seit: 25. Jun 2010
Ort: Niedersachsen
263 Beiträge
 
Turbo Delphi für Win32
 
#7

AW: Panel mit Label dynamisch erzeugen

  Alt 2. Aug 2010, 13:02
@ DeddyH nur Color setzten hat geholfen und dafür brauchte ich auch...
@ Hawkeye ... nicht ParentBackground auf false setzten...

Trotzdem vielen Dank an euch beide
RudiRüsselSeineSocketKomponente - SirRufo (--> Chat mit PM)

Delphi Programming is the best one!
  Mit Zitat antworten Zitat
Antwort Antwort


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:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz