C# windows form-ban kellene egy aprócska segítség. Valaki?
Visual studioval készítettem egy jegyzettömböt. A háttér egy írógép és a textbok úgy van beszúrva mintha a papír jönne ki az írógépből.
Kérdésem az lenne, hogy hogyan lehet azt elérni, hogy ha írok egy sort akkor az a lap alján jelenjen meg és ah ütök egy entert akkor az adott sor egyel fentebb kerüljön, mintha a lap jött volna kintebb?
válasza:Elsőnek köszönöm, a héten valamelyik nap megpróbálkozok vele, ha nem menne írok :)
Második: Lehet hogy ilyesmi, csak az a gond, hogy a gépem nem nyitja meg, mivel semmi aláírás nincs, hogy milyen forrásból származik.
válasza:Bíráld felül. Én írtam pár sor, igaz Delphi de nagyon érthető:
function TForm1.AutoSizeMemoY(Memo: TMemo): word;
begin
Canvas.Font := Memo.Font;
Result := Canvas.TextExtent(Memo.Lines.Strings[0]).cy * Memo.Lines.Count
+ Canvas.TextExtent(Memo.Lines.Strings[0]).cy;
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = 13 then
begin
Memo1.Lines.Append(Edit1.Text);
Edit1.Text:='';
if Memo1.Top > 40 then
begin
Memo1.Top := Edit1.Top - AutoSizeMemoY(Memo1);
Memo1.Height := AutoSizeMemoY(Memo1);
end;
end;
Form1.Caption := 'Sorok száma: ' + Inttostr(Memo1.Lines.Count);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Top := Edit1.Top - AutoSizeMemoY(Memo1);
Memo1.Height := 0;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.SetFocus;
end;
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!