Скачать: CL | DM;

Код не работает! В чём проблеа не пойму. На форме ничего нет.   Найти похожие ветки 

← →
Viktor1 ©   (2003-04-25 10:08) [0]

var
TheRect: TRect;
begin
TheRect := Rect(10,10,100,100);
Form1.Canvas.TextRect(TheRect,10,10,"Hello, world!");
Form1.Canvas.Brush.Color := clBlack;
Form1.Canvas.FrameRect(TheRect);
end;

---

← →
Palladin ©   (2003-04-25 10:20) [1]

а программа у тебя вообще туда заходит?

---

← →
Viktor1 ©   (2003-04-25 10:23) [2]

Не понял вопрос. А куда должна заходить?

---

← →
Anatoly Podgorestky   (2003-04-25 10:25) [3]

Туда

---

← →
Viktor1 ©   (2003-04-25 10:27) [4]

А можно по нормальному?

---

← →
NAlexey ©   (2003-04-25 10:34) [5]

Все отлично работает:

procedure TForm1.Button1Click(Sender: TObject);
var
TheRect: TRect;
begin
TheRect := Rect(10,10,100,100);
Form1.Canvas.TextRect(TheRect,10,10,"Hello, world!");
Form1.Canvas.Brush.Color := clBlack;
Form1.Canvas.FrameRect(TheRect);
end;

Вот потому у тебя и спрашивают, приведенный тобой код вообще выполняется или нет?

---

← →
Viktor1 ©   (2003-04-25 11:43) [6]

Как насчёт такого, не работает
верней работает только мышкой надо Resize.

procedure AlingmentTextEdit(var TheEdit : TEdit);
var
Str : String;
Rgn : TRect;
TheCanvas : TControlCanvas;
begin
TheCanvas := TControlCanvas.Create;
try
TheCanvas.Control := TheEdit;
Str := TheEdit.Text;
Rgn := TheEdit.ClientRect;
TheCanvas.TextRect (Rgn, 0, 2, Str);
finally
TheCanvas.Free;
end;
end;


procedure TForm1.FormPaint(Sender: TObject);
begin
AlingmentTextEdit(Edit1);
end;

---

← →
Palladin ©   (2003-04-25 11:53) [7]

ну ведь работает
почему ты говоришь что не работает?

---

← →
Viktor1 ©   (2003-04-25 12:13) [8]

Извени, зарапортавался :-)

А почему последний приведённый код не работает при появлении формы. Или надо писать не в FormPaint?

---

← →
NewN ©   (2003-04-25 12:34) [9]

Потому что сначала рисуется форма, а потом - объекты на ней, а когда делаешь OnResize Windows думает, что Edit1 перерисовывать необязательно.

---

← →
Viktor1 ©   (2003-04-25 13:07) [10]

Понял, спасибо!
А что лучше(сказать точнеем ...достаточно...) в данном случае использовать
Edit1.Refresh;
или
Edit1.RePaint;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c