Bij het uitvoeren van het stukje code hieronder wordt het lijnstuk dat ik probeer te tekenen met de procedure "Paintform" vreemd genoeg in 2 stukken "gebroken".
Het gebeurt alleen als de edit- en statictext veldjes op de coordinaten staan zoals vermeld in "left" en "top". Bij het verplaatsen van de veldjes verdwijnt het probleem (meestal). Heeft iemand enig idee ?
Delphi Code:
unit NieuwlijnenU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit; // left = 124, top = 277
Edit2: TEdit; // left = 124, top = 309
Edit3: TEdit; // left = 124, top = 344
Edit4: TEdit; // left = 124, top = 376
StaticText1: TStaticText; // left = 24, top = 368
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormPaint(Sender: TObject);
begin
with canvas do
begin
MoveTo(840,420); // beginpunt lijnstuk
LineTo(960,45); // eindpunt lijnstuk
end; // with canvas do
end;
end.
Bookmarks