http://sourceforge.net/projects/embeddedwb/
if the site is still down you can download here
http://www.torry.net/vcl/internet/browsers/EmbeddedWBD5XE14.70.0.zip
Aaron
to add a field to a dbgrid at runtime
DBGrid1.Columns.Add;
DBGrid1.Columns[0].FieldName:='Id';
DBGrid1.Columns.Add;
DBGrid1.Columns[1].FieldName:='Student Names';
DBGrid1.Columns.Add;
DBGrid1.Columns[2].FieldName:='English';
DBGrid1.Columns.Add;
DBGrid1.Columns[3].FieldName:='Math';
etc..
Aaron
there’s a few ways all of which are easily found using Google.
procedure TForm1.Button1Click(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin...
found this on torry
...compare two images pixel by pixel?
procedure TForm1.Button1Click(Sender: TObject);
var
b1, b2: TBitmap;
c1, c2: PByte;
x, y, i,
different: Integer; // Counter for different pixels
begin
b1 := Image1.Picture.Bitmap;
b2 := Image2.Picture.Bitmap...
this is from memory, should be correct.
Label1.Text := IntToStr(Table1.FieldByName('30d').AsInteger + Table1.FieldByName('60d').AsInteger + Table1.FieldByName('90d').AsInteger + Table1.FieldByName('120d').AsInteger);
Aaron
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.