Új hozzászólás Aktív témák

• #2146 Tomi_78 aktív tag Tomi_78 #2145

  Új Válasz 2024-05-05 13:48:54 #2146

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tomi_78

  aktív tag

  válasz Tomi_78 #2145 üzenetére

  Annyiban előrébbjutottam, hogy a Form1-re már ki tudom rajzolni háttér nélkül a rácsot, de az eredeti helyére, ahová kellene, oda még nem. Ott mindig mutatja a vászna fekete háttérszínét, vagy ha megjegyzéssé teszek bizonyos sorokat, akkor semmit sem látni:
  procedure TForm1.racsmutatoGombMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if tvracsmutat=true then begin tvracsmutat:=false; if vantvracs=true then begin FreeAndNil(tvracskep); vantvracs:=false; end; end else begin tvracsmutat:=true; if vantvracs=false then begin tvracskep:=TImage.Create(tvScrBox); tvracskep.Parent:=tvScrBox; tvracskep.Left:=0; tvracskep.Top:=0; tvracskep.width:=terepVaszon.width; tvracskep.height:=terepVaszon.Height; tvracsrajzolas(tvracskep); end; vantvracs:=true; end; end; procedure TForm1.tvracsrajzolas(Sender: TObject); var vszvonalhely,fugvonalhely: word; begin if tvracsmutat=true then begin fugvonalhely:=csempeszel; vszvonalhely:=csempemag; //with tvracskep do // Ha ezek ki vannak kommentelve, a rács látszódik, //begin // de nem a tvracskep koordinátáiban és nem is tudom eltüntetni. canvas.pen.color:=clBlue; while fugvonalhely<terepVaszon.width do begin canvas.line(fugvonalhely,0,fugvonalhely,terepVaszon.height); inc(fugvonalhely,csempeszel); end; while vszvonalhely<terepVaszon.height do begin canvas.line(0,vszvonalhely,terepVaszon.width,vszvonalhely); inc(vszvonalhely,csempemag); end; //end; end; end;

Új hozzászólás Aktív témák