|
Hi,
here are some mistakes:
1) iCurrentBit += 1 should be in the else part of the
previous if otherwise you will cycle 0,1,...7,1,2,...7,1,2,...7
2) iByte = iByte Or (2 << iCurrentBit) is wrong, it should be
iByte = iByte Or (1 << iCurrentBit) since the bit values are 1, 2, 4, etc.
3) iByte = iByte Or ((2 << iCurrentBit) - 1) does not seem right; the integer
value of bit 7 is -128, not 255
There may be more.
BTW: the flush-close sequence does not make sense, flush is useful only if you don't immediately close!
|
|
|
|
|
Thanks, I've fixed the errors and found more.
I thought I'd post the fixed source code in case someone else finds it useful.
Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(newFilename)
Dim img As Bitmap = Image.FromFile(filename)
' Write Header
fs.WriteByte(0)
fs.WriteByte(0)
fs.WriteByte(img.Width)
fs.WriteByte(img.Height)
' Convert colour to 1bit and packet bits into byte
Dim iByte As Byte = 0
Dim iCurrentBit As Integer = 7
For y As Integer = 0 To img.Height - 1
For x As Integer = 0 To img.Width - 1
Dim clr As Color = img.GetPixel(x, y)
If (clr.R > 128) And (clr.G > 128) And (clr.B > 128) Then
iByte = iByte Or (1 << iCurrentBit)
End If
If (x >= img.Width - 1) And (x Mod 8) Then
fs.WriteByte(iByte)
iByte = 0
iCurrentBit = 7
ElseIf iCurrentBit = 0 Then
fs.WriteByte(iByte)
iByte = 0
iCurrentBit = 7
Else
iCurrentBit -= 1
End If
Next
Next
fs.Close()
|
|
|
|
|
Great. Thanks for sharing.
|
|
|
|
|
Hi,
I want to play .pps/.ppt file without installing MS Office powerpoint component.
For now I am playing same in browser control which internally runs powerpoint executable file. if I dont have powerpoint installed, it stops playing.
Do we have any component/ocx which can play it without installing MS Office.
Thanks
|
|
|
|
|
Have you googled around for any third part component? If one exists, I am sure it'll cost some money. Why not just require Office to be installed and use the Office Interop Library?
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Requiring office on the machine would be a way to offset costs to the consumer, instead of the programmer having to pay for a third party control
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios
Discounted or Free Software for Students:
DreamSpark - downloads.channel8.msdn.com
MSDN Academic Alliance - www.msdnaa.com
|
|
|
|
|
Thomas Stockwell wrote: Requiring office on the machine would be a way to offset costs to the consumer
That is true, but the user would be able to use more than just Powerpoint.
Thomas Stockwell wrote: programmer having to pay for a third party control
He could always pass on the third party control cost to the user(s).
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I know there are functions built into .NET that will resize images, but they don't do what i want. I am making an icon editor, and it needs to be able to resize images with a pixel resize. That is a type of resize where if you zoom in enough you can actually see the individual pixels of the original images, like Paint Shop Pro or Photoshop (or even paint) do. I have make an algorithm to do this, but it is unbelievably slow, and i need to make it do this almost instantly. I am using the Bitmap class and the Bitmap.GetPixle\Bitmap.SetPixle methods. Here is my algorithm:
Public Shared Function ResizePixles(ByVal image As Bitmap, ByVal factor As Integer) As Bitmap
On Error Resume Next
Dim rbmp As New Bitmap(image.Width * factor, image.Height * factor)
For x As Integer = 0 To image.Width - 1
For y As Integer = 0 To image.Height - 1
Dim c As Color = image.GetPixel(x, y)
For x2 As Integer = x * factor To x * factor + factor - 1
For y2 As Integer = y * factor To y * factor + factor - 1
rbmp.SetPixel(x2, y2, c)
Next
Next
Next
Next
Return rbmp
End Function
As you can see, i have 4 For loops in my code, which makes it very slow.
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
|
|
|
|
|
Hi,
I haven't used this myself as of late, but are you aware Graphics has an InterpolationMode property,
which accepts values such as NearestNeighbor, basically just duplicating pixels, not inventing new
ones?
If you only need to see it scaled up, use it in a Panel's OnPaint; if you really also need the
new Bitmap, do Graphics.FromImage(rnmp) then Graphics.DrawImage
|
|
|
|
|
I have tried all the items in the InterpolationMode when resizing an image with a graphics class, but none produced the result i wanted. I will try with the NearestNeighbor item again, and see if i am mistaken.
Also, could you (or anyone) please elaborate on what you ment by the OnPaint thing?
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
modified on Tuesday, July 15, 2008 6:49 PM
|
|
|
|
|
Hi,
You did not specify how exactly it does not what you want.
Three ideas:
1)
I ran a little experiment, and it seems to work fine, with one proviso: the NearestNeighbour
does duplicate pixels, but due to the nearest (not the left) source pixel, it will not duplicate
the leftmost/topmost pixel a sufficient number of times.
So to be exact, you should proceed as follows (I'll explain in one dimension):
input width w1, output width wanted w2, scalefactor f=w2/w1 (use reals for scale!)
split the output in three regions, with widths wa,wb,wc
wa=f/2 <--- represents half an input pixel
wb=(w1-1)*f
wc=w2-wa-wb <--- represents half an input pixel
now duplicate the leftmost pixel of input to wa,
duplicate the rightmost pixel of input to wc,
finally do the DrawImage scale with nearestneighbour from w1 to wb (i.e. shifted by wa)
That should put every single pixel at the right spot.
2)
I am pretty sure the complex copying of the edges could be handled by DrawImage itself,
provided you give it appropriate parameters.
3)
As an approximation you could do a two step approach:
- do DrawImage with Normal InterpolationMode for the full size;
- do DrawImage with NearestNeighbour InterpolationMode for a size that is half a pixel smaller
on all four edges of the output image (don't modify the input sizes!)
|
|
|
|
|
Thanks! With your help, i managed to figure it out. A while back, i posted this question on both ProgrammersHeaven.com and DreamInCode.net and i didn't get an answer on either site. Thanks so much! 
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
|
|
|
|
|
You're welcome. Glad to be of help.
|
|
|
|
|
Hi,
I once assembled a short text giving the essentials of painting:
there are several steps to draw something so it becomes visible on the screen:
1.
decide upon what object you want to draw; it normally is a Control (e.g. a Panel) or a
Form itself. I prefer to add a Panel to a Form, then draw on the Panel.
2.
create some variables (Rectangle, struct, class, whatever) that hold the parameters of
your drawing. For a rectangle that could be top and left coordinate, and width+height,
or just a Rectangle. etc.
3.
create a Paint handler (either add your own paint handler to the Paint event, or
override the OnPaint method) for that Panel, and do all your drawing in there,
using the Graphics class and your variables.
4.
when you want to change things, modify the variables and call Panel.Invalidate() or
one of its overloads (for selective invalidation).
5.
If you want to animate things, perform the move (step 4) inside the Tick handler
of a Windows.Forms.Timer
BTW: if you need to create some objects (Fonts, Pens, Brushes, ...) either keep them
alive in class members (hence create them only once); or create them inside the Paint
handler and don't forget to call Dispose() on them.
|
|
|
|
|
Hi,
in my latest experiment, I came up with a really simple way of modifying nearestneighbour into
copy_from_left/top; it suffices to indicate half a pixel translation, as in this C# code.
The source image has size (w,h) and is translated to (x,y) and scaled up by the fraction zoomT/zoomN:
Rectangle r=new Rectangle(x, y, w*zoomT/zoomN, h*zoomT/zoomN);
g.InterpolationMode=InterpolationMode.NearestNeighbor;
g.DrawImage(image, r, -0.5f, -0.5f, w, h, GraphicsUnit.Pixel);
So instead of using the pixels 0, 1, 2, ... w-1 of the source image, I am actually using
the pixels -0.5, 0.5, 1.5, ... w-1.5 which means whenever I need something in some interval
(say the first -0.5 to 0.5) it will take the nearest integer, which is the middle of the translated
interval, i.e. the left/top of the original interval!
Can't get more simple than that.
|
|
|
|
|
I am creating a treeview dynamically.
In one .vb file - First I am reading the xml and storing the data in hashtable.
In another file - I don't want to read the xml again so I am going through hashtable and creating the nodes. How do I create Sub nodes if any. How should I store the nodes and subnodes diffrentiated in hashtable.
LK
|
|
|
|
|
|
From the reference you have given that is actually creating a custom tree view control from what i understood. But what I need is:
I cannot create a tree data structure because I have to read the xml first and store in some collection.
I have a user control where I have: a picture box control and tree view control below that. When the picture box is clicked I want to show the treeview with nodes and sub nodes if any looping through the collection. Any examples of this kind please.
Thanks for your help in advance !
LK
|
|
|
|
|
I don't know if I understood this properly, but as you want to loop through your XMLDocument and placing the items into a TreeView, you can try the following. MainTree is the TreeNode and doc is the XMLdocument.
Dim doc As New XmlDocument<br />
doc.Load(PathName)<br />
MainTree.Nodes.Clear()<br />
For Each mainroot As XmlNode In doc.ChildNodes<br />
Dim maintreenode As New TreeNode<br />
maintreenode.Text = mainroot.Name<br />
MainTree.Nodes.Add(maintreenode)<br />
For Each subnode As XmlNode In mainroot.ChildNodes<br />
Dim subroot As New TreeNode<br />
subroot.Text = subnode.Name<br />
maintreenode.Nodes.Add(subroot)<br />
<br />
etc..<br />
<br />
Next<br />
Next<br />
Hope this helps you out, 
--Zaegra--
Motivation is the key to software development.
|
|
|
|
|
Member 2260473 wrote: From the reference you have given that is actually creating a custom tree view control from what i understood.
Ähm, no. Its a Tree-Datastructure, no Control. And I build a Tree from it, which each leafs type String.
Why cant u create a similar tree datastructure ("Value" can be any type, so I suppose, also the datatype u need), and fill it by reading the xml?
And from that tree build ur UserControl-Treeview, and do the other things, u want to do.
|
|
|
|
|
This is a silly question, but is there a way to get datagridview columns names in intelli-sense as properties?
For example:
grdUsers.Rows(vlngUserRow).Cells("SoftwareSystemSecurityID").Value
Is it possible to do something like (property vs. having to type the column name)?
grdUsers.Rows(vlngUserRow).Cells.SoftwareSystemSecurityID.Value
Thanks for any help/suggestions!
|
|
|
|
|
If you added the column at design time, you could reference it like this:
grdUsers.Rows(vlngUserRow).Cells(SoftwareSystemSecurityID.Index).Value
But if you get the column because you had set the grid's datasource to a dataset/datatable that contains the column, this doesn't work.
Hope this helps.
|
|
|
|
|
Score!
Don't know how I missed that. Thanks!
|
|
|
|
|
There are 2 list box and a horizontal Splitter. When I resize the window, both the listbox does not resize proportionally. The top listbox remains in same height, the bottom listbox gets resized.
The properties for splitter is
cursor - HSplit
Dock - Top
The properties for listbox1 is
Dock - Top
Anchor - Top,Left
The properties for listbox2 is
Dock - Fill
Anchor - Top,Left
Changing the dock or Anchor do not work out..
|
|
|
|
|
Hi,
Since the Dock property is set to Top, the width will resize in proportion to the window size.
Therefore, in order to get the desired resolution try setting the Dock property of first ListBox to Fill. This will ensure that the ListBox resizes proportionally to the window.
Hope this helps .
Regards,
John Adams
ComponentOne LLC
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
