I've got a piece of code which uses TOwnerDrawStateType and TBaseOwnerDrawState
which is set of TOwnerDrawStateType , if i have on variable called state which
is TOwnerDrawStateType how do i do something like this
if odSelected in state then
begin
// My Code
end;
i get this error - Error
If state is of type TOwnerDrawStateType then it can have only one value:
var
state: TOwnerDrawStateType;
...
if odSelected = state then
begin
// My Code
end;
If state is a set type of TOwnerDrawStateType then it can have more values:
var
state: set of TOwnerDrawStateType;
...
if odSelec
Opps re reading the code it was actually
if (odSelected in State) then
and state is defined as TOwnerDrawState which points back
to -TBaseOwnerDrawState which is a set of TOwnerDrawStateType
Yet i see in TCustomListBox.DrawItem it has something the same -
if not (odPainted in State) then
On 20 Feb 2010, at 12:32, Justin Smyth wrote:
> Opps re reading the code it was actually
>
> if (odSelected in State) then
>
> and state is defined as TOwnerDrawState which points back to
> -TBaseOwnerDrawState which is a set of TOwnerDrawStateType
Please post sample code that should compile
procedure TJvCustomListBox.CNDrawItem(var Msg: TWMDrawItem);
var
State: TOwnerDrawState;
begin
with Msg.DrawItemStruct^ do
begin
State := TOwnerDrawState(word(itemState and $));
Canvas.Handle := hDC;
Canvas.Font := Font;
Canvas.Brush := Brush;
if Integer(itemID) >= 0 then
On Sat, 20 Feb 2010, Justin Smyth wrote:
procedure TJvCustomListBox.CNDrawItem(var Msg: TWMDrawItem);
var
State: TOwnerDrawState;
Try
State : Set of TOwnerDrawState;
Michael.
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://li
On 20 Feb 2010, at 13:15, Michael Van Canneyt wrote:
> On Sat, 20 Feb 2010, Justin Smyth wrote:
>
>> procedure TJvCustomListBox.CNDrawItem(var Msg: TWMDrawItem);
>> var
>> State: TOwnerDrawState;
>
> Try
>
> State : Set of TOwnerDrawState;
It is already a set:
lcltype.pp: TOwnerDrawState =
On Sat, 20 Feb 2010, Jonas Maebe wrote:
On 20 Feb 2010, at 13:15, Michael Van Canneyt wrote:
On Sat, 20 Feb 2010, Justin Smyth wrote:
procedure TJvCustomListBox.CNDrawItem(var Msg: TWMDrawItem);
var
State: TOwnerDrawState;
Try
State : Set of TOwnerDrawState;
It is already a set:
lc
On Sat, February 20, 2010 01:15, JoshyFun wrote:
> Hello Tomas,
>
> Friday, February 19, 2010, 11:55:39 PM, you wrote:
>
> TH> No, this can't work that way, otherwise output of any accented
> TH> character in one of the Windows codepages would result in the same
> TH> error.
>
> Tested the "wrong"
On Sat, 20 Feb 2010, Tomas Hajny wrote:
On Sat, February 20, 2010 01:15, JoshyFun wrote:
Hello Tomas,
Friday, February 19, 2010, 11:55:39 PM, you wrote:
TH> No, this can't work that way, otherwise output of any accented
TH> character in one of the Windows codepages would result in the same
Hello FPC-Pascal,
Saturday, February 20, 2010, 3:21:51 PM, you wrote:
MVC> I fail to see how this can be an FPC problem.
MVC> See
MVC> http://msdn.microsoft.com/en-us/library/aa365747(VS.85).aspx
MVC> and
MVC> http://msdn.microsoft.com/en-us/library/aa363858(VS.85).aspx
MVC> For an explanation. I
Hello,
REM Objects released an interesting document regarding some changes (that
looks so much like Ruby) to their Delphi Prisem.
For example assignment of a value regarding a condition:
x := if Something then 2;
y := case Other of
bla : 'hello';
foo : 'bye';
baz : 'ad
Thank you.
I have my own compiler - files from another computer - not the ubuntu package.
How can I say the Make program where are the files of the compiler?
They are in: ~/apps/fpc/bin and ~/apps/fpc/lib
2010/2/18 Marc Weustink :
> Osvaldo Filho wrote:
>>
>> Sorry:
>>
>> How can I get the FPC s
y := case Other of
bla : 'hello';
foo : 'bye';
baz : 'adius';
end;
What do you gain with this?
Doesn't look much different to
case Other of
bla : y := 'hello';
foo : y := 'bye';
baz : y := 'adius';
end;
__
On Sat, Feb 20, 2010 at 20:01, Jürgen Hestermann
wrote:
>
>
> y := case Other of
>> bla : 'hello';
>> foo : 'bye';
>> baz : 'adius';
>> end;
>>
>
> What do you gain with this?
> Doesn't look much different to
>
> case Other of
> bla : y := 'hello';
> foo : y := 'b
In our previous episode, ik said:
> >
>
> Shorter write imho.
Or something easily marketable to make people upgrade. Not a problem of FPC.
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pasca
Osvaldo Filho wrote:
Thank you.
I have my own compiler - files from another computer - not the ubuntu package.
How can I say the Make program where are the files of the compiler?
They are in: ~/apps/fpc/bin and ~/apps/fpc/lib
add ~/apps/fpc/bin to your path
( if you use bash: add the followi
I'm still getting the same errors
I've done the bit Micheal suggest now which i highlight TWMDrawItem it says
its comes from TLMDrawItems.
i still get Error: Incompatible types: got "TOwnerDrawStateType" expected
""
heres my code
procedure TJvCustomListBox.CNDrawItem(var Msg: TWMDrawItem
18 matches
Mail list logo
