Forum: Multimedia
by Luckie,
13. Jul 2007
So, Problem ist gelöst. Ich habe einfach zu kompliziert gedacht. Ich musste nur das Konzept etwas ändern und das Problem, war auf einmal kein Problem mehr. ;)
Forum: Multimedia
by Luckie,
5. Jul 2007
So, ich habe wieder Zeit mich dem Problem zu widmen.
Die if-Anweisung geht nicht einfacher. Der Aufruf sieht wie folgt aus:
FotoBook.ShowGrid(FPageOptions.FShowGrid);
Dies wird immer dann aufgerufen, wenn ein Optionsdialog mit OK geschlossen wird. Und FShowGrid ist immer dann True, wenn der Haken, der entsprechenden Option gesetzt ist. Um jetzt zu verhindern, dass das Grid jedesmal...
Forum: Multimedia
by Luckie,
22. Mai 2007
Danke. Ich werde das morgen mal ausprobieren, jetzt ist erstmal Feierabend.
Forum: Multimedia
by Luckie,
22. Mai 2007
Der Code ist mittlerweile etwas an die neuen Angepasst:
procedure TFotoBook.PaintGrid(Page: TImageEnvect; Show: Boolean = True);
var
i : Integer;
j : Integer;
begin
// alle Layer deselektieren, sonst würden wir nur auf das aktuelle Layer zeichen
Page.LayersCurrent := 0;
// Zeichenstiftmodus setzen
if (Show and not Grid) or (Show and Grid) then
Forum: Multimedia
by Luckie,
29. Mär 2007
An meine gute alte D6 Hilfe hab eich dann auch gedacht. Ich habe es mittlerweile mit Punkten gelöst, das sieht auch besser aus:
procedure TDWFotoBook.PaintGrid(GridWidth: Integer; Show: Boolean = True);
var
i : Integer;
j: Integer;
begin
// deselect all layers, otherwise we would also draw on the selected layers
FImageEnVect.LayersCurrent := 0;
// set pen mode
...
Forum: Multimedia
by Luckie,
29. Mär 2007
Ich zeichne mit folgendem Code eine Raster auf ein Bitmap:
procedure TDWFotoBook.PaintGrid(GridWidth: Integer);
var
i : Integer;
begin
with FImageEnVect do
begin
for i := 0 to Width div GridWidth do
begin
Bitmap.Canvas.MoveTo(i * GridWidth, 0);