Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by elmar.faber,
13. Aug 2018
Also die Tabelle sieht so aus:
TablesSQLite :=
'CREATE TABLE IF NOT EXISTS tbl_data_ingredient ( '+
' IngredientID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,'+
' RecipeRefID INTEGER NOT NULL, '+
' IngredientRefID INTEGER NOT NULL, '+ // aus tbl_sel_Ingredient
' Amount DOUBLE NULL, '+ // Menge z.B. 10
' UnitRefID ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by elmar.faber,
9. Aug 2018
Vielen Dank für den Hinweis, ich dachte ich könnte damit das Problem lösen, aber
irgendwie denke ich wohl falsch herum... Mal ein einfaches Beispiel:
procedure TFrmZutaten.Grid1DrawColumnCell(Sender: TObject;
const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
const Row: Integer; const Value: TValue; const State: TGridDrawStates);
Var
V : TValue;
S : String;...