sjlou
02-16-2012, 07:51 AM
like the title said im trying to make a tbox with 4 different dtms
something like this
http://desmond.imageshack.us/Himg577/scaled.php?server=577&filename=tbox.png&res=medium
var lo,lb,rb,ro,xlo,ylo,xbl,ybl,xrb,yrb,xro,yro:intege r;
rbox: TBox;
begin
lo := DTMFromString('maQEAAHicE2RgYAhkYmAIAeIwKI2Mo4A4C4 grgTgFiMuBuAiIE4E4GIjzgDgaiEuB5uQDcREQpwFxPMhcIHYC YiskDJIvBmJzKLYE4hIGiH4GdlaGT69fEo1B6tGxEdAYSjEjED NBMQuZGAMAAExSLrA=');
lb := DTMFromString('mqAEAAHicE2FgYAhmYmAIAeIwIE4E4hwgLo OKwXAQEAcCcQxUHiYWAcRJUPW5QBwLxJZAM22B2AoNOwOxNxDH AnEQELsAsTkUFwBxCRAXQXExEJdCMQM7K8On1y/xYpAaZAwTw6bGCGgkNTEjEmahAsYGAK5CM80=');
rb:= DTMFromString('mPwEAAHic42dgYFjIxMAwB4jnAfFUIO4E4k oofy4Ug9Q0QdkgNR1QNZ5A/d5A7AelYTgSiJOBuASIc4DYHYibgLgViFugmJWNjeHttx94MUg NNnVGQP3kYkYoZiEDowEAaGg0Hg==');
ro:= DTMFromString('mPwEAAHic42dgYNjIxMCwHohXAfESIJ4JxL 1QMRheDcSLoOIbgHgGEE8F4lag/nogbkbDZUCcAsSBQOyDhL2guA2I2VmZGT7+fks0BqmHYSOgfnI xIxCzkInRAADJYDK1');
FindDTM(lo,xlo,ylo, MsX1, MsY1, MsX2, MsY2);
FindDTM(lb,xbl,ybl, MsX1, MsY1, MsX2, MsY2);
FindDTM(rb,xrb,yrb, MsX1, MsY1, MsX2, MsY2);
FindDTM(ro,xro,yro, MsX1, MsY1, MsX2, MsY2);
rBox.X1 := xlo,ylo;
rBox.Y1 := xbl,ybl;
rBox.X2 := xrb,yrb;
rBox.Y2 := xro,yro;
end;
something like this
http://desmond.imageshack.us/Himg577/scaled.php?server=577&filename=tbox.png&res=medium
var lo,lb,rb,ro,xlo,ylo,xbl,ybl,xrb,yrb,xro,yro:intege r;
rbox: TBox;
begin
lo := DTMFromString('maQEAAHicE2RgYAhkYmAIAeIwKI2Mo4A4C4 grgTgFiMuBuAiIE4E4GIjzgDgaiEuB5uQDcREQpwFxPMhcIHYC YiskDJIvBmJzKLYE4hIGiH4GdlaGT69fEo1B6tGxEdAYSjEjED NBMQuZGAMAAExSLrA=');
lb := DTMFromString('mqAEAAHicE2FgYAhmYmAIAeIwIE4E4hwgLo OKwXAQEAcCcQxUHiYWAcRJUPW5QBwLxJZAM22B2AoNOwOxNxDH AnEQELsAsTkUFwBxCRAXQXExEJdCMQM7K8On1y/xYpAaZAwTw6bGCGgkNTEjEmahAsYGAK5CM80=');
rb:= DTMFromString('mPwEAAHic42dgYFjIxMAwB4jnAfFUIO4E4k oofy4Ug9Q0QdkgNR1QNZ5A/d5A7AelYTgSiJOBuASIc4DYHYibgLgViFugmJWNjeHttx94MUg NNnVGQP3kYkYoZiEDowEAaGg0Hg==');
ro:= DTMFromString('mPwEAAHic42dgYNjIxMCwHohXAfESIJ4JxL 1QMRheDcSLoOIbgHgGEE8F4lag/nogbkbDZUCcAsSBQOyDhL2guA2I2VmZGT7+fks0BqmHYSOgfnI xIxCzkInRAADJYDK1');
FindDTM(lo,xlo,ylo, MsX1, MsY1, MsX2, MsY2);
FindDTM(lb,xbl,ybl, MsX1, MsY1, MsX2, MsY2);
FindDTM(rb,xrb,yrb, MsX1, MsY1, MsX2, MsY2);
FindDTM(ro,xro,yro, MsX1, MsY1, MsX2, MsY2);
rBox.X1 := xlo,ylo;
rBox.Y1 := xbl,ybl;
rBox.X2 := xrb,yrb;
rBox.Y2 := xro,yro;
end;