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

← →
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]

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

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

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

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

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

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