Font.Style ins Clientdataset Laden

[himitsu]

Nur das Normal würde ich besser weglassen, daß es eine "nutzlose" doppelte Information ist.


Nicht nur nutzlos, sondern glatt wiedersprüchlich, denn was ist, wenn Normal mal True ist und irgendeines der Anderen Felder auch?

[Perlsau]

Zitat von himitsu:

Nur das Normal würde ich besser weglassen, daß es eine "nutzlose" doppelte Information ist.

Mein lieber Himitsu, das steht doch bereits in meinem Posting, wenn du noch mal nachlesen möchtest:
"Das Normal-Feld kannst du natürlich weglassen, das definiert sich ja schon dadurch, daß eines der anderen Felder True ist."

Natürlich wird das Normal zum Abspeichern in der DB nicht benötigt. Da ich jedoch ein Popupmenü beschrieben habe, das den Style eines selektieren Textes wiedergeben soll, gehörte dort das Normal dazu. Oder mit anderen Worten: Am späten Abend neigt man häufig zum Drüberlesen, so daß einem wichtige Details entgehen können.

Zitat von Natcree:

Also habe gerade das Popupmenu erstellt aber er ändert den Haken nich von normal auf Kursiv oder fett.

Mein lieber Natcree, du hattest doch vor, die Style-Eigenschaften eines (oder vielleicht auch mehrerer) Buttons in der Datenbank abzulegen und nicht die Style-Eigenschaften eines selektierten Textes in einem PopUp-Menü abzubilden. Wozu hast du dir denn jetzt ein PopUp-Menü erstellt und was hast du versucht, um dort eingetragene Style-Eigenschaften mit Checked-Haken zu versehen bzw. diese zu entfernen?

[Natcree]

Weiss ich auch nicht hmmm ????

Habe mal das Versucht
FontStyleAsInt := integer(Schaltflaeche.Font.Style); Zeigt mir aber invalid typcast an

[Perlsau]

Ich geb's auf ...

[Natcree]

nein Bitte nicht....


Über diesen schnipsel lade ich einen Button aus der DB

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
clientdataset1.LoadFromFile('C:\Delphi Progs\Menü 2\schaltflaeche.xml');
    clientdataset1.First;
    repeat
    Schaltflaeche                 := TButton.Create(Form1);
    Schaltflaeche.Name:= clientdataset1.FieldValues['name'];
    Schaltflaeche.Caption:= clientdataset1.FieldValues['Caption'];
    Schaltflaeche.top:= clientdataset1.FieldValues['top'];
    Schaltflaeche.Left := clientdataset1.FieldValues['left'];
    Schaltflaeche.Width := clientdataset1.FieldValues['Width'];
    Schaltflaeche.Font.Style      := integer(Schaltflaeche.Font.Style);//Hier sagt er invalid Typcast
    Schaltflaeche.parent          := Self;
    Schaltflaeche.PopupMenu       := popupmenu1;
    Schaltflaeche.OnContextPopup  := SchaltflaecheContextPopup;
    Schaltflaeche.OnMouseDown     := SchaltflaecheMouseDown;
    Schaltflaeche.OnMouseMove     :=  SchaltflaecheMouseMove;
    Schaltflaeche.OnMouseup       := SchaltflaecheMouseup;
    Clientdataset1.Next;
    until CLientdataset1.Eof;
    Umbenennen := nil;
end;

Und dann will ich wärend der Laufzeit Buttons erstellen und speicher sie in die DB
hiermit

Delphi-Quellcode:

procedure TForm1.SchaltflaecheHinzufuegen1Click(Sender: TObject);

begin
    Schaltflaeche                := TButton.Create(Form1);
    Schaltflaeche.Name           := 'Schaltflaeche'+inttostr(clientdataset1.RecordCount+1);
    Schaltflaeche.Caption        := Schaltflaeche.name;
    Schaltflaeche.Parent         := Self;
    Schaltflaeche.Top            := 50;
    Schaltflaeche.Width          := 100;
    Schaltflaeche.Left           := 50;
    Schaltflaeche.Font.Style     :=[fsbold];
    Schaltflaeche.PopupMenu      := PopupMenu1;
    Schaltflaeche.OnContextPopup := SchaltflaecheContextPopup;
    Schaltflaeche.OnMouseDown    := SchaltflaecheMouseDown;
    Schaltflaeche.onMouseMove    := SchaltflaecheMouseMove;
    Schaltflaeche.onMouseUp      := SchaltflaecheMouseUp;
    clientdataset1.Insert;
    Clientdataset1.FieldByName('name').AsString:= Schaltflaeche.name;
    clientdataset1.FieldByName('Caption').AsString:=Schaltflaeche.Caption;
    clientdataset1.FieldByName('top').AsInteger:= Schaltflaeche.top;
    clientdataset1.FieldByName('left').AsInteger:= Schaltflaeche.Left ;
    clientdataset1.FieldByName('width').AsInteger:= Schaltflaeche.width ;
    clientdataset1.FieldByName('Height').AsInteger:= Schaltflaeche.Height ;
    clientdataset1.FieldByName('Fontname').AsString:= Schaltflaeche.font.Name ;
    clientdataset1.FieldByName('Fontsize').AsInteger:= Schaltflaeche.Font.Size ;
    clientdataset1.FieldByName('Fontstyle').AsInteger:=//???
    Clientdataset1.post;
end;

[Natcree]

Schaltflaeche Hinzufuegen.click wird dann während der Laufzeit ausgeführt. Es wird ein TButton erstellt und anschliessend diese daten in eine xml abgespeichert. Nunmehr kann mann später diese button über xml laden und auch wenn nötig bearbeiten.

Mousedown und move....... sind die Proceduren die der Button dann ausführen kann.

Wie gesagt er zeigt mir in der genannten reihe invalid typcast an.

[himitsu]

Zitat von Natcree:

Habe mal das Versucht
FontStyleAsInt := integer(Schaltflaeche.Font.Style); Zeigt mir aber invalid typcast an

Wie lautet denn die genaue Fehlermeldung?

Nja, entweder man nimmt Ord, daß vom Compiler in seiner größe angepasst wird, oder du mußt einen Integer.Typ nehmen, der genau so groß ist, in Bytes, wie der umzuwandelnde Typ.